学习用matlab制作GIF动画（png转gif）

pulbieup

目标：将三幅图（png格式）制作成GIF
: Y1 \: L3 j. w0 g: ?* \
: P- Q) A5 ^' t准备材料：三幅png格式的图

/ V) ?* V. k, e! Z
) @' B/ G( G0 V* n
gif展现一个动态由悲到喜的过程

实现代码：

" y" D( D; A4 e6 l' X`%预定义变量
5 J8 j/ N9 m0 p) \4 F5 YPicture_save = {0};                                                        
0 B8 d3 G3 C* v' L%初始化提高效率
/ i" h1 R$ N' rfilename = 'myGIF.gif';

. S% s6 V$ V( S8 w, x0 m, a; W* x% o
%图像获取，图像类型转换
' ]- Z* _) X5 {" _$ U5 P  ]1 Z[P1, map]  = imread('1.png');     
- i0 S; a3 b9 p. Dpicture1 = ind2rgb(P1,map);                                                
%索引图必须转换为真彩图,否则颜色不对
[P2, map]  = imread('2.png');
picture2 = ind2rgb(P2,map);
2 ]( A" Y& u$ t1 |- G. h5 o[P3, map]  = imread('3.png');
picture3 = ind2rgb(P3,map);

7 m) |  T/ ^! I% `/ D% yarray = [{picture1}, {picture2} ,{picture3}];                              
4 F+ P9 x  R* d5 B& N' ~%方便循环  

%保留帧数据
for idx = 1:3
! y# Q& d) T& h: A    figure(idx)
    imshow(array{idx});                                                   
    %索引图转换为真彩图 ，{}访问数组里面的类型 （）访问元胞类型     
  }* W' {) W# Y5 |: K4 x1 O    Picture_save{idx} = frame2im(getframe(idx));                           
; j& v6 E$ t0 E9 E* e" Q    %获取figure（idx）展示的效果，将其以图片数据保存
    close all
end

%制作GIF
%有个bug 在第一次播放的时候没有中间的那一帧，之后又有了
( a: M& o3 a2 Xfor idx = 1:3
    [A,map] = rgb2ind(Picture_save{idx},256);                              
7 M" ~( k. p3 A" w    %imwrite不能显示三维图像，所以要进行转换
    if idx == 1
* V" \7 \) R# }& z        imwrite(A,map,filename,'gif','LoopCount',Inf,'DelayTime',0.5);   
         %Inf 无限循环
    else
        imwrite(A,map,filename,'gif','WriteMode','append','DelayTime',0.5);
; n* T- x; b1 M7 y$ C" C( B    end
, P0 p* L% a6 @' ]* U- V. Iend

8 {5 q% O1 U: {+ {( w+ I: Hclose all`
) N+ B- g: [; e) E% Z4 O
. a5 n" u2 i" }: E
5 o# x) Z6 _) [# Q9 U以下是代码的截图
7 ?# B: ]2 ]9 {2 n
8 U# `5 `0 x9 C0 q, ^. X) x1 z
5 I5 D6 @! t' V* [: E3 i
当然了，还有更简单的办法：
  }* `  L- l/ K  B! C
  t) i& p$ |# [4 |% I3 Y( Wfor idx = 1:3
1 d. C; \' v5 J    [A,map] = imread(strcat(num2str(idx),'.PNG'));                              %imwrite不能显示三维图像，所以要进行转换
    if idx == 1
        imwrite(A,map,'new.gif','LoopCount',Inf,'DelayTime',0.5);               %Inf 无限循环
, H+ \7 O! k4 M' m    else
( F! `; {) j5 S' h7 N2 q        imwrite(A,map,'new.gif','WriteMode','append','DelayTime',0.8);
    end
2 a/ x% U- m3 s% Rend
+ S7 C' e- `9 C
, v4 h  g/ J& j) n- Z- Z# ?
关于代码有遇到别的问题，或者有改进意见，欢迎评论。

) G- M+ j$ p9 m, d6 T在实现过程中我也遇到了很多问题，有些注释在代码中，有些遗漏了，希望可以在讨论中得到补充。
! M- `$ u  x& U0 b/ b

; x. X5 d5 W: e$ ^! D  q6 M
5 v# h) C5 R8 S+ H8 J+ ]+ T9 s

/ S& c+ S# t' S

yin123

用matlab制作GIF动画