动图制作

隋汶燕

% 将多幅图片制成动图
clear;
for i=1:3          %图片数量图片从1开始命名
    str = strcat(num2str(i), '.png');   %横向连接字符串，.png为输入图片的格式
    A=imread(str);
    [I,map]=rgb2ind(A,256);       %将RGB图像（A）转换为索引图像
    if(i==1)
        imwrite(I,map,'movefig.gif','DelayTime',0.1,'LoopCount',Inf)
    else
        imwrite(I,map,'movefig.gif','WriteMode','append','DelayTime',0.1)    %imwrite-将图像写入图形文件
    end
end