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

pulbieup

目标：将三幅图（png格式）制作成GIF
5 t- @" ?/ F$ V
准备材料：三幅png格式的图
- [2 G* v; Y6 C4 r! [


( `" I5 M$ }1 N5 s; @1 hgif展现一个动态由悲到喜的过程

9 D+ ]! g3 K+ Z3 S" @3 k4 o1 L实现代码：
& e( L# k. K3 S
( z$ x* P# d; G9 G' @`%预定义变量
; _9 \7 S3 I+ {$ Q# }Picture_save = {0};                                                        
%初始化提高效率
) I4 v9 I% j: c7 Z. }filename = 'myGIF.gif';
/ i  J! l9 P3 j+ X* ~& j8 T& h
! j0 m$ c2 k3 x
6 x3 \7 h) p% C- x4 H5 n  b%图像获取，图像类型转换
[P1, map]  = imread('1.png');     
picture1 = ind2rgb(P1,map);                                                
/ E+ ]% g8 [8 N; F3 P$ \) s: Q2 `%索引图必须转换为真彩图,否则颜色不对
[P2, map]  = imread('2.png');
picture2 = ind2rgb(P2,map);
[P3, map]  = imread('3.png');
5 B) ?3 S" R* upicture3 = ind2rgb(P3,map);
) L) e- _/ h0 ]" T# T- F$ I
array = [{picture1}, {picture2} ,{picture3}];                              
3 H2 X3 r* I6 Z7 X%方便循环  
7 G/ v4 p* E  N  S
%保留帧数据
' T* T( M+ M% M9 tfor idx = 1:3
3 _; K/ \# p' l2 o* G2 m$ {1 H    figure(idx)
    imshow(array{idx});                                                   
    %索引图转换为真彩图 ，{}访问数组里面的类型 （）访问元胞类型     
9 k" L8 v1 f: g0 y" t2 U  |; C    Picture_save{idx} = frame2im(getframe(idx));                           
3 _' h" G$ ~7 P" Y    %获取figure（idx）展示的效果，将其以图片数据保存
    close all
6 a2 e" p: `# d6 F0 j8 U, dend

5 C6 ?- l$ Y" r  {%制作GIF
# S. [9 j& M& m; S* _+ Z%有个bug 在第一次播放的时候没有中间的那一帧，之后又有了
; ~+ W4 u# j' E/ J" J# k) efor idx = 1:3
6 u7 m5 o5 ^% F3 m% o8 o    [A,map] = rgb2ind(Picture_save{idx},256);                              
6 h3 T/ N' n! a/ L    %imwrite不能显示三维图像，所以要进行转换
2 k, {! K( s* f    if idx == 1
/ l) Y7 D) j+ ^) A# W+ Q7 w        imwrite(A,map,filename,'gif','LoopCount',Inf,'DelayTime',0.5);   
& M$ F7 m" F* V7 P         %Inf 无限循环
4 N7 H1 t( w3 n2 B# R3 p    else
, R' [- ?* D$ C6 ]: }        imwrite(A,map,filename,'gif','WriteMode','append','DelayTime',0.5);
    end
# [8 G9 s9 D6 O( B' F" Yend

close all`


以下是代码的截图
5 i/ \% n  ?3 f9 U

; w' i$ }. C& m) ^2 a; j
当然了，还有更简单的办法：

' K- X1 u  y5 v  \( h" }, vfor idx = 1:3
3 s5 ~7 `; U2 d: H! C" n/ e- j    [A,map] = imread(strcat(num2str(idx),'.PNG'));                              %imwrite不能显示三维图像，所以要进行转换
    if idx == 1
        imwrite(A,map,'new.gif','LoopCount',Inf,'DelayTime',0.5);               %Inf 无限循环
    else
$ _( L* f9 Q. R+ t2 D4 I7 b/ W        imwrite(A,map,'new.gif','WriteMode','append','DelayTime',0.8);
    end
- b; l# k/ l: a  _end
2 V( q' u/ F1 N6 ?% J; A% R3 E8 Q" Z
3 b" ~+ l; A+ F" m! {  K
# h0 h" V/ R: G' ]& V* S* W2 d关于代码有遇到别的问题，或者有改进意见，欢迎评论。
! q% u# P6 |; ]; l
. T, ~; _! p* L3 I. `; A在实现过程中我也遇到了很多问题，有些注释在代码中，有些遗漏了，希望可以在讨论中得到补充。
" O! _4 K+ |- \( ~- X3 m
9 K+ \# m/ S- h
5 x# g/ Q. A$ ~' Q
0 G' N1 W) _6 q: }1 r# ^6 s0 g

yin123

用matlab制作GIF动画