数学建模社区-数学中国

标题: 【MATLAB动画教程八】 [打印本页]

---

作者: 士心之约    时间: 2015-9-17 20:55
标题: 【MATLAB动画教程八】

1. % by xiezhh
   
2. filename = 'xiezhh.gif';
   
3. z = linspace(0, 10*pi, 100); %产生一个行向量
   
4. x = [20*sin(z),zeros(1,10)];
   
5. y = [20*cos(z),20*ones(1,10)];
   
6. z = [z,linspace(10*pi,0,10)];
   
7. plot3(x, y, z, 'r', 'linewidth', 2); %绘制螺旋线
   
8. hold on %图形保持
   
9. h = plot3(0,20,0, '.' , 'MarkerSize' ,40, 'EraseMode' , 'xor' );
   
10. xlabel('X'); ylabel('Y'); zlabel('Z'); %添加坐标轴标签
    
11. axis([-25 25 -25 25 0 40]); %设置坐标轴范围
    
12. view(-210,30); %设置视角
    
13. for i = 1:length(x)
    
14. set(h, 'xdata' ,x(i), 'ydata' ,y(i), 'zdata' ,z(i));
    
15. drawnow; % 刷新屏幕
    
16. pause(0.05)
    
17. f = getframe(gcf);
    
18. imind = frame2im(f);
    
19. [imind,cm] = rgb2ind(imind,256);
    
20. if i == 1
    
21. imwrite(imind,cm,filename,'gif', 'Loopcount',inf,'DelayTime',0.1);
    
22. else
    
23. imwrite(imind,cm,filename,'gif','WriteMode','append','DelayTime',0.1);
    
24. end
    
25. end

复制代码

---

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

Powered by Discuz! X2.5