数学建模社区-数学中国

标题: 怎么将 MATLAB动画转化为别的格式播放 [打印本页]

---

作者: 陌上，烟雨遥    时间: 2013-8-7 16:51
标题: 怎么将 MATLAB动画转化为别的格式播放
机械振动MATLAB程序
%理想中的弹性振子 简谐运动 动画演示
%Clear

rectangle('position',[12,8.5,2,0.3],'FaceColor',[0.5,0.3,0.4]);

axis([0,15,-1,10]);

%画顶板

hold on

plot([13,13],[7,8.5],'r','linewidth',2);

%画直线

y=2:.2:7;

M=length(y);

x=12+mod(1:M,2)*2;

x(1)=13;

x(end-3:end)=13;

D=plot(x,y);         

%弹簧

C=0:.1:2*pi;r=0.35;

t1=r*sin(C);

F1=fill(13+r*cos(C),2+t1,'r');

% 球

set(gca,'ytick',[0:2:9]);

set(gca,'yticklabels',num2str([-1:3]'));

plot([0,15],[3.3,3.3],'black');

H1=plot([0,13],[3.3,3.3],'y');

% 句柄[黄线]

Q=plot(0,3.8,'color','r');

% 运动曲线;

td=[];yd=[];

T=0;

text(2,9,'理想中的弹簧振子简谐振动','fontsize',16);

set(gcf,'doublebuffer','on');

while T<12;

pause(0.2);

Dy=(3/2-1/2*sin(pi*T))*1/2;

Y=-(y-2)*Dy+7;

Yf=Y(end)+t1;

td=[td,T];yd=[yd,Y(end)];

set(D,'ydata',Y);

set(F1,'ydata',Yf,'facecolor',rand(1,3));

set(H1,'xdata',[T,13],'ydata',[Y(end),Y(end)]);

set(Q,'xdata',td,'ydata',yd) ;

T=T+0.1;

end
怎么将此MATLAB动画转化别的格式播放，求指教

新建 Microsoft Word 文档.doc

2013-8-7 16:47 上传

点击文件名下载附件

下载积分: 体力 -2 点

18 KB, 下载次数: 0, 下载积分: 体力 -2 点

怎么将此附件转化为别的格式播放

---

作者: madio    时间: 2013-8-7 17:25
我给你改了一下，可以录成avi的形式，保存在m文件的目录了，movie2avi函数还有一些设置你可以查阅帮助。

1. %机械振动MATLAB程序
   
2. %理想中的弹性振子 简谐运动 动画演示
   
3. %Clear
   
4. nFrames = 121;
   
5. mov(1:nFrames) = struct('cdata', [],...
   
6.                         'colormap', []);
   
7. rectangle('position',[12,8.5,2,0.3],'FaceColor',[0.5,0.3,0.4]);
   
8. 
   
9. axis([0,15,-1,10]);
   
10. 
    
11. %画顶板
    
12. 
    
13. hold on
    
14. 
    
15. plot([13,13],[7,8.5],'r','linewidth',2);
    
16. 
    
17. %画直线
    
18. 
    
19. y=2:.2:7;
    
20. 
    
21. M=length(y);
    
22. 
    
23. x=12+mod(1:M,2)*2;
    
24. 
    
25. x(1)=13;
    
26. 
    
27. x(end-3:end)=13;
    
28. 
    
29. D=plot(x,y);         
    
30. 
    
31. %弹簧
    
32. 
    
33. C=0:.1:2*pi;r=0.35;
    
34. 
    
35. t1=r*sin(C);
    
36. 
    
37. F1=fill(13+r*cos(C),2+t1,'r');
    
38. 
    
39. % 球
    
40. 
    
41. set(gca,'ytick',[0:2:9]);
    
42. 
    
43. set(gca,'yticklabels',num2str([-1:3]'));
    
44. 
    
45. plot([0,15],[3.3,3.3],'black');
    
46. 
    
47. H1=plot([0,13],[3.3,3.3],'y');
    
48. 
    
49. % 句柄[黄线]
    
50. 
    
51. Q=plot(0,3.8,'color','r');
    
52. 
    
53. % 运动曲线;
    
54. 
    
55. td=[];yd=[];
    
56. 
    
57. T=0;
    
58. 
    
59. text(2,9,'理想中的弹簧振子简谐振动','fontsize',16);
    
60. 
    
61. set(gcf,'doublebuffer','on');
    
62. k=0;
    
63. while T<12;
    
64. 
    
65. pause(0.2);
    
66. 
    
67. Dy=(3/2-1/2*sin(pi*T))*1/2;
    
68. 
    
69. Y=-(y-2)*Dy+7;
    
70. 
    
71. Yf=Y(end)+t1;
    
72. 
    
73. td=[td,T];yd=[yd,Y(end)];
    
74. 
    
75. set(D,'ydata',Y);
    
76. 
    
77. set(F1,'ydata',Yf,'facecolor',rand(1,3));
    
78. 
    
79. set(H1,'xdata',[T,13],'ydata',[Y(end),Y(end)]);
    
80. 
    
81. set(Q,'xdata',td,'ydata',yd) ;
    
82. %M(T) = getframe;
    
83. T=T+0.1;
    
84. k=k+1
    
85. mov(k) = getframe(gcf);
    
86. 
    
87. end
    
88. movie2avi(mov, 'myPeaks2.avi', 'compression', 'None','quality',100);

复制代码

---

作者: 陌上，烟雨遥    时间: 2013-8-7 17:44

madio 发表于 2013-8-7 17:25
我给你改了一下，可以录成avi的形式，保存在m文件的目录了，movie2avi函数还有一些设置你可以查阅帮助。

蒽，好的，谢谢了，

---

作者: 薛云涛    时间: 2014-1-20 19:31

---

作者: zhaoyuan020    时间: 2014-2-8 17:05

---

欢迎光临 数学建模社区-数学中国 (http://www.madio.net/)

Powered by Discuz! X2.5