球运动的修改
求高手注释一下下面代码的意思,顺便说一下怎么样修改球的大小和颜色?代码如下:
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