exm064_5.m

北京航空航天大学出版社张志涌、徐彦琴主编的matlab教程附带的mfile例程压缩包

%exm064_5.m

clear
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次。