MATLAB小程序：图片保存为视频和GIF（三）

1.picture into MOV

clear;clc;close all;

fig=figure;
aviobj=VideoWriter('example.avi');
aviobj.FrameRate=30;%set FrameRate before open it
open(aviobj);

n=30;
x=0:pi/n:2*pi;
y=sin(x);
k=0;

set(fig,'outerposition',get(0,'screensize'));%maximize the window

j=1;

for t=0:pi/n:2*pi
    k=k+1;
    x(k)=t;
    y(k)=sin(t);
    H=plot(x,y,x(k),y(k),'or');
    grid
    MOV=getframe(fig);
    writeVideo(aviobj,MOV);
    
    fmat(:,j)=getframe;
    j=j+1;
end

close(fig)
close(aviobj)


%% play
movie(fmat,1);

2.picture into GIF

clear;close all;clc;

Z = peaks;

surf(Z)
axis tight
Zl=zlim;
for k = 1:20
    surf(cos(2*pi*k/20)*Z,Z)
    zlim(Zl);
    
    % save to gif
    f = getframe;
    im=frame2im(f);
    [I,map] = rgb2ind(im,256);
    if k==1
        imwrite(I,map,'example.gif','gif','loopcount',inf,'Delaytime',0.02)
    else
        imwrite(I,map,'example.gif','gif','writemode','append','Delaytime',0.02)
    end
end