| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 460 人关注过本帖
标题:球运动的修改
只看楼主 加入收藏
biancku
Rank: 2
等 级:论坛游民
帖 子:41
专家分:19
注 册:2010-11-30
结帖率:64.71%
收藏
 问题点数:0 回复次数:0 
球运动的修改
求高手注释一下下面代码的意思,顺便说一下怎么样修改球的大小和颜色?
代码如下:
h=[0 0 30];
g=[0 0 -9.8];
k=0.005; % 空气阻力和速度的关系系数
m=1;
R=1;
%=======================
[x,y,zz]=sphere;
z=zz+h (3);
H=mesh (x,y,z);
view (0 ,0);
t=0;
dt=0.08;   %弹跳的速度
v=[0 0 0];
E=m*9.8*(h (3)-1);
axis ([-10 10 -10 10 -1 35]);

while  E
    E=1/2*v (3)^2+m*9.8*(h (3)-1);
    s=get (gcf,'currentkey');
    if strcmp (s,'space')
        break;
    end
     if E<68
        E=0;
        h (3)=1;   
    end
    if v (3)<=0
    h=h+v*dt;
    a=k*v.^2/m+g;
    v=v+a*dt;
    delete (H);
    z=zz+h (3);
    H=mesh (x,y,z);
  axis ([-10 10 -10 10 -1 35]);
    end   
    if  h (3)<R
       v=-v;
    end   
    if v (3)>0
        h=h+v*dt;
        a=-k*v.^2/m+g;
        v=v+a*dt;
     delete (H);
     z=zz+h (3);
     H=mesh (x,y,z);
    axis ([-10 10 -10 10 -1 35]);
    end
    t=t+dt;
    pause (0.00005);
end
2011-06-12 17:12
快速回复:球运动的修改
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.012726 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved