MATLAB制作GIF之大鹏展翅

clc;clear all;close all;
filename='bird.gif';
for i=1:8
    str = sprintf('photo1\\photo%d.jpg',i); % 写入文件位置和名称
    img = imread(str); % 读取图像
    img = imresize(img,[128,128]); % 重新设置图像大小
    figure(i)
    imshow(img);
    set(gcf,'color','w'); % 设置背景为白色
    set(gca,'units','pixels','Visible','off');
    q=get(gca,'position');
    q(1)=0; %设置左边距离值为零
    q(2)=0; %设置右边距离值为零
    set(gca,'position',q);
    frame = getframe(gcf,[1,1,128,128]);%
    im = frame2im(frame);%制作gif文件，图像必须是index索引图像
    imshow(im);
    [I,map] = rgb2ind(im,256); % 将真彩色图像转化为索引图像
    if i==1;
        imwrite(I,map,filename,'gif','Loopcount',inf,'DelayTime',0.1);%loopcount只是在i==1的时候才有用
    else
        imwrite(I,map,filename,'gif','WriteMode','append','DelayTime',0.1);%DelayTime用于设置gif文件的播放快慢
    end
end
close all;

转载自
www.ilovematlab.cn/thread-122348-1-1.html