【MATLAB动画教程四】

士心之约

1. %挂摆横梁
   
2. %by dynamic
   
3. %see also http://www.matlabsky.com
   
4. %2008.6.9
   
5. %
   
6. h=figure('numbertitle','off','name','擦除动画演示(挂摆横梁)——Matlabsky')
   
7. %绘制横梁
   
8. plot([-0.2;0.2],[0;0],'-k','linewidth',20);
   
9. %画初始位置的单摆
   
10. g=0.98;%重力加速度,可以调节摆的摆速
    
11. l=1;%摆长
    
12. theta0=pi/4;%初始角度
    
13. x0=l*sin(theta0);%初始x坐标
    
14. y0=-l*cos(theta0);%初始y坐标
    
15. axis([-0.75,0.75,-1.25,0]);
    
16. axis off
    
17. %创建摆锤
    
18. %擦除模式为xor
    
19. head=line(x0,y0,'color','r','linestyle','.','erasemode','xor','markersize',40);
    
20. %创建摆杆
    
21. body=line([0;x0],[-0.05;y0],'color','b','linestyle','-','erasemode','xor');
    
22. %摆的运动
    
23. t=0;%时间变量
    
24. dt=0.01;%时间增量
    
25. while 1
    
26. t=t+dt;
    
27. theta=theta0*cos(sqrt(g/l)*t);%单摆角度与时间的关系
    
28. x=l*sin(theta);
    
29. y=-l*cos(theta);
    
30. if ~ishandle(h),return,end
    
31. set(head,'xdata',x,'ydata',y);%改变擦除对象的坐标数据
    
32. set(body,'xdata',[0;x],'ydata',[-0.05;y]);
    
33. drawnow;%刷新屏幕
    
34. end

复制代码

风靡全球

加油  一定要努力哦

风靡全球

加油  一定要努力哦

风靡全球

加油  一定要努力哦

风靡全球

加油  一定要努力哦

风靡全球

加油  一定要努力哦

风靡全球

加油  一定要努力哦

风靡全球

加油  一定要努力哦

风靡全球

加油  一定要努力哦

风靡全球

加油  一定要努力哦