求大神解释 程序：动画演示

本帖最后由 heartsweat 于 2012-5-19 21:15 编辑

/////////////////////////////////////////////////////////////////////////////////////////////////
figure('color',[1 1 1])
plot([-0.2;0.2],[0;0],'color','y','linestyle','-','linewidth',10);%画悬线的横梁
g=9.8;                                                            %重力加速度
l=1;                                                              %线长
theta0=pi/6;                                                      %初始角度
x0=l*tan(theta0);                                                 %初始 x 值
y0=-l*cos(theta0);                                                %初始 y 值
axis([-0.75,0.75,-1.25,0]);                                       %画坐标范围
axis('off');                                                      %关闭坐标显示
head=line(x0,y0,'color','r','linestyle','.','erasemode','xor','markersize',40);    %定义小球格式
%mmonth=line(x0,y0,'color','g','linestyle','.','erasemode','xor','markersize',30);
body=line([0;x0],[0;y0],'color','b','linestyle','-','erasemode','xor');            %定义悬线格式
t=0;                                                              %时间初值
dt=0.005;                                                          %时间增量
while 1                                                           %死循环(关闭窗口后中止循环)
   t=t+dt;
  theta=theta0*cos(sqrt(g/l)*t);                                                               
   x=l*tan(theta);                                               
   y=-l*cos(theta);                                                
set(head,'xdata',x,'ydata',y);                                
   set(body,'xdata',[0;x],'ydata',[0;y]);                        
   drawnow;                                                       %重画小球与悬线
end
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////
红色部分怎么理解啊  求大神帮助 谢谢！