MATLAB生成Gif图片并保存为视频文件程序源代码.rar

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); %// 关闭视频文件句柄