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

House

! D. K) ?/ {3 `. LMATLAB源程序代码分享：MATLAB创建无限循环的GIF动图
: ?  t% f; a$ m%% 定义三维曲面网格点的横坐标 & 纵坐标
% f6 X% e' Q8 v! D3 w# h5 g- yclear;clc;close all
# H9 n2 p8 }: \" \7 ~4 j4 l9 F+ @7 @[x,y]=meshgrid(-8:0.1:8);

%% 设定 k 为变量, 绘制在不同 k 值下的三维曲面图, 依次保存到 gif 动图里
, J* M- n6 t) H: I5 Bfor k=1:10
. @8 j2 @; X1 y    f=@(x,y)(sin(sqrt((11-k)*(x.^2+y.^2)))./sqrt((11-k)*(x.^2+y.^2)+eps));   % 曲面函数
( R" ~* ^5 X6 N& Z* P    z=f(x,y);          % 计算 (x, y) 所对应的 z 坐标值
    suRF(x,y,z)        % 绘制三维曲面
& V8 g  C/ l1 m' k    shading interp     % 设定三维曲面的显示效果
$ I' d- P+ w& h  [7 i) j" [) h    pause(0.1)
+ x$ ]/ _! J5 T- G$ V* j( s    M=getframe(gcf);        % 捕捉当前绘图窗口, 作为动图的一帧图像
    if k==1                 % 判断是否为首帧图像
        [I,map]=rgb2ind(M.cdata,256);     % 将 RGB 图像转换为索引图像
        imwrite(I,map,'out.gif','DelayTime',0.1,'LoopCount',Inf)        % 创建 gif 动图, 写入首帧图像, 设定动图无限循环, 延时时间为 0.1 秒
, q* E, F8 P3 b! \5 n, v. K5 H( \    else
        [I,map]=rgb2ind(M.cdata,256);     % 将 RGB 图像转换为索引图像
' V+ u) ?1 K. A/ o. [        imwrite(I,map,'out.gif','WriteMode','append','DelayTime',0.1)   % 添加到 gif 图像, 设定延时时间为 0.1 秒
' F" p! Z; e9 `- `2 Z, ^: F* E0 z  B* I    end
# e! o5 c  f# y. }. j2 T# }/ lend

wu68aq

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