MATLAB绘制的旋转抛物面动画(三个程序)

huright

这是本人收集高手们的作品，络加修改

1. x=0:0.5:10;
   
2. z=x.^2;
   
3. y=zeros(size(x));
   
4. 
   
5. theta=pi/20;
   
6. xx=x;yy=y;zz=z;
   
7. for i=1:40
   
8.    M=[cos(i*theta) sin(i*theta) 0;-sin(i*theta) cos(i*theta) 0;0 0 1];
   
9.    temp=M*[x;y;z];
   
10.    
    
11.    xx(i+1,:)=temp(1,:);yy(i+1,:)=temp(2,:);zz(i+1,:)=temp(3,:);
    
12.    axis([-12 12 -12 12 -10 100])
    
13.    mesh(xx,yy,zz);
    
14. 
    
15.    axis off
    
16.    pause(0.5)
    
17.    if i==40
    
18.        break
    
19.    end
    
20.    clf
    
21. end

复制代码

1. clear;
   
2. z=0:100;
   
3. for n=1:100
   
4. t= 2*pi*(n-1)/100:1/2*pi/100:2*pi*n/100;
   
5. X=sqrt(z)'*cos(t);
   
6. Y=sqrt(z)'*sin(t);
   
7. Z=z'*ones(1,5);
   
8. surf(X,Y,Z);
   
9. colormap(spring)
   
10. shading interp
    
11. axis square
    
12. box on
    
13. axis([-11 11 -11 11 -1 101])
    
14. hold on
    
15. axis off
    
16. pause(0)
    
17. end

复制代码

1. x=0:0.5:10;
   
2. z=x.^2;
   
3. y=zeros(size(x));
   
4. 
   
5. theta=pi/20;
   
6. xx=x;yy=y;zz=z;
   
7. for i=1:40
   
8.    M=[cos(i*theta) sin(i*theta) 0;-sin(i*theta) cos(i*theta) 0;0 0 1];
   
9.    temp=M*[x;y;z];
   
10.    
    
11.    xx(i+1,:)=temp(1,:);yy(i+1,:)=temp(2,:);zz(i+1,:)=temp(3,:);
    
12.    axis([-12 12 -12 12 -10 100])
    
13.    mesh(xx,yy,zz);
    
14. 
    
15.    axis off
    
16.    pause(0.5)
    
17.    if i==40
    
18.        break
    
19.    end
    
20.    clf
    
21. end

复制代码

mlh_2002

我决的应该说明是做什么的，毕竟都不是高手

lxq

呵呵 多看看高手写的程序<BR><BR>慢慢地就学到不少东西了

florar520

第一个好一些，还是动画效果啊。

fenghai222

不错,还是动画的.

guwind

第一个程序 跟第三个程序   雷同 ？？？？？？？？？？？

suffer

原帖由 guwind 于 2006-11-2 20:45 发表
第一个程序 跟第三个程序   雷同 ？？？？？？？？？？？

好像是相同的，可能发错了

liwensheng

谢谢楼主共享

llj690808

不错,值得研究一下