function saveGif(filename,im,delay,append)
% figure保存为Gif
% filename:保存Gif文件路径
% im:figure元胞数组,类型示例:im{n} = figure
% delay:Gif切换延迟
% append:在原文件上扩展
if nargin < 4
append = false;
end
if nargin < 3
delay = 2;
end
for idx = 1:length(im)
frame = getframe(im{idx});
frame = frame2im(frame);
[A,map] = rgb2ind(frame,256);
if idx == 1 && ~append
imwrite(A,map,filename,'gif','LoopCount',Inf,'DelayTime',delay);
else
imwrite(A,map,filename,'gif','WriteMode','append','DelayTime',delay);
end
end
end