Matlab 图片转gif

做汇报ppt经常会用到一些动图GIF展示，奈何被各种流氓剪辑软件折磨，正版太贵，盗版的捆绑一些垃圾软件；之前突然想到用matlab来处理，学习了一些，供大家互相学习参考。

clc;
clear;
fclose all;

%根
strRootPath='F:\其它研究工作\';
%图片路径
strRadarPath='';

%保存文件夹
strSaveDir='动画制作';

%创建保存路径
strSavePath=F_BuildFileDirectoryAndGiveFinalPath(strRootPath, strSaveDir);

%% 处理
fn=dir(strRadarPath);
n=0;
for i=1:length(fn)
    if(fn(i).isdir==0 && contains(fn(i).name,'.png'))   %图片后缀格式
        n=n+1;
        strFile=[strRadarPath,fn(i).name];
        A=imread(strFile);
        [I, map]=rgb2ind(A, 256);
        
        strSaveFile=[strSavePath,'20170710.gif'];  %输出路径
        if(n==1)
            imwrite(I, map, strSaveFile, 'DelayTime', 1, 'LoopCount', Inf);
        else
            imwrite(I, map, strSaveFile, 'WriteMode','append','DelayTime',1);
        end
        
    end
end