clear;clc;
[x,y]=meshgrid(-8:.1:8);
writerObj=VideoWriter('test.avi'); %// 定义一个视频文件用来存动画
open(writerObj); %// 打开该视频文件
for j=1:10
f=@(x,y)(sin(sqrt((11-j)*(x.^2+y.^2)))./sqrt((11-j)*(x.^2+y.^2)+eps));
z=f(x,y);
surf(x,y,z);
shading interp;
M(j) = getframe;
frame = getframe; %// 把图像存入视频文件中
writeVideo(writerObj,frame); %// 将帧写入视频
if j==1
[I,map]=rgb2ind(M(j).cdata,256);
imwrite(I,map,'out.gif','DelayTime',.1,'LoopCount',Inf) %gif图像无限循环
else
[I,map]=rgb2ind(M(j).cdata,256);
imwrite(I,map,'out.gif','WriteMode','append','DelayTime',0.1) %添加到图像
end
end
close(writerObj); %// 关闭视频文件句柄
