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

House

$ g4 i" D; g5 R+ J: r" ?MATLAB源程序代码分享：MATLAB创建无限循环的GIF动图
%% 定义三维曲面网格点的横坐标 & 纵坐标
1 N% s" H  e- c! Lclear;clc;close all
[x,y]=meshgrid(-8:0.1:8);

, F; u' q5 T6 q  z1 J5 a%% 设定 k 为变量, 绘制在不同 k 值下的三维曲面图, 依次保存到 gif 动图里
$ `0 g* [) Q! I" ?for k=1:10
    f=@(x,y)(sin(sqrt((11-k)*(x.^2+y.^2)))./sqrt((11-k)*(x.^2+y.^2)+eps));   % 曲面函数
* a7 P2 T3 k* ^1 _* w9 x    z=f(x,y);          % 计算 (x, y) 所对应的 z 坐标值
    suRF(x,y,z)        % 绘制三维曲面
    shading interp     % 设定三维曲面的显示效果
4 J' K* S- Q* R' p* q    pause(0.1)
1 K$ x6 E1 F, T* q9 T. ~    M=getframe(gcf);        % 捕捉当前绘图窗口, 作为动图的一帧图像
    if k==1                 % 判断是否为首帧图像
        [I,map]=rgb2ind(M.cdata,256);     % 将 RGB 图像转换为索引图像
; H: G" l( d2 \- y. Q/ S/ C/ v) p        imwrite(I,map,'out.gif','DelayTime',0.1,'LoopCount',Inf)        % 创建 gif 动图, 写入首帧图像, 设定动图无限循环, 延时时间为 0.1 秒
7 |1 ~9 C  P! v# m! Z    else
        [I,map]=rgb2ind(M.cdata,256);     % 将 RGB 图像转换为索引图像
5 ^6 R4 @) d9 I  U  a# ^        imwrite(I,map,'out.gif','WriteMode','append','DelayTime',0.1)   % 添加到 gif 图像, 设定延时时间为 0.1 秒
6 `1 e9 q' s  `" e' ~0 K    end
end
  d$ |$ I1 `0 \9 h

wu68aq

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