注册 登录
编程论坛 Matlab

球运动的修改

biancku 发布于 2011-06-12 17:12, 476 次点击
求高手注释一下下面代码的意思,顺便说一下怎么样修改球的大小和颜色?
代码如下:
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
0 回复
1