exm07433_1.m

来自「这是本人收集的一些程序源代码」· M 代码 · 共 14 行

%exm07433_1.m
clf;shg
x=3*pi*(-1:0.05:1);y=x;
[X,Y]=meshgrid(x,y);
R=sqrt(X.^2+Y.^2)+eps;
Z=sin(R)./R;
h=surf(X,Y,Z);colormap(jet);axis off
n=12;mmm=moviein(n);				%预设画面矩阵。新版完全可以取消此指令 。
for i=1:n
	rotate(h,[0 0 1],25);		%是图形绕z轴旋转25度/每次
	mmm(:,i)=getframe;			%捕获画面。新版改为mmm(i)=getframe 。
end
movie(mmm,5,10)					%以每秒10帧速度，重复播放5次。