MATLAB源程序代码分享：MATLAB创建无限循环的GIF动图

House

5 E( b" e$ l, n( P. g# ?MATLAB源程序代码分享：MATLAB创建无限循环的GIF动图
%% 定义三维曲面网格点的横坐标 & 纵坐标
# r; @' J; |5 Bclear;clc;close all
, W& Y: n, ]6 H1 `. Q[x,y]=meshgrid(-8:0.1:8);

) h2 M/ I, Q# a  Y%% 设定 k 为变量, 绘制在不同 k 值下的三维曲面图, 依次保存到 gif 动图里
; r; |$ e( f" [7 V% C+ S4 i0 Xfor k=1:10
8 X  H' {/ p' u8 U* R. i6 c    f=@(x,y)(sin(sqrt((11-k)*(x.^2+y.^2)))./sqrt((11-k)*(x.^2+y.^2)+eps));   % 曲面函数
4 r  |0 e' J+ c! S5 [. n    z=f(x,y);          % 计算 (x, y) 所对应的 z 坐标值
* J* ?- v2 B& l; h, J6 f, [    suRF(x,y,z)        % 绘制三维曲面
. S8 J2 E: b% c$ ^) z3 ?% n    shading interp     % 设定三维曲面的显示效果
    pause(0.1)
9 u% A2 {9 [) P3 Y    M=getframe(gcf);        % 捕捉当前绘图窗口, 作为动图的一帧图像
    if k==1                 % 判断是否为首帧图像
        [I,map]=rgb2ind(M.cdata,256);     % 将 RGB 图像转换为索引图像
2 G& m  k& q4 y6 k        imwrite(I,map,'out.gif','DelayTime',0.1,'LoopCount',Inf)        % 创建 gif 动图, 写入首帧图像, 设定动图无限循环, 延时时间为 0.1 秒
    else
        [I,map]=rgb2ind(M.cdata,256);     % 将 RGB 图像转换为索引图像
( C, v: b% O1 t5 o        imwrite(I,map,'out.gif','WriteMode','append','DelayTime',0.1)   % 添加到 gif 图像, 设定延时时间为 0.1 秒
8 t" [5 E2 B9 U; S    end
' H" |3 d) W+ j0 Z# ~2 wend
" f9 s" e# \2 J7 j

wu68aq

MATLAB创建无限循环的GIF动图。