|
|
EDA365欢迎您登录！
您需要 登录 才可以下载或查看，没有帐号？注册
x
7 Z, A) u! t& _
MATLAB源程序代码分享：MATLAB创建无限循环的GIF动图
; ]' ~3 E( K8 y# O%% 定义三维曲面网格点的横坐标 & 纵坐标" X: |8 ~3 i d
clear;clc;close all
3 q( Y q4 U, Y# ]- {[x,y]=meshgrid(-8:0.1:8);
' d* B+ I6 S$ _! l% Z
/ c- U, o* d: M) r* e: f! M7 [%% 设定 k 为变量, 绘制在不同 k 值下的三维曲面图, 依次保存到 gif 动图里
$ R2 g+ N- g2 S% u+ t+ P+ kfor k=1:10
/ k3 T( F0 s: P f=@(x,y)(sin(sqrt((11-k)*(x.^2+y.^2)))./sqrt((11-k)*(x.^2+y.^2)+eps)); % 曲面函数' ^$ R9 f( _0 P2 E3 U* T
z=f(x,y); % 计算 (x, y) 所对应的 z 坐标值
- @7 q) ?& P0 z2 O suRF(x,y,z) % 绘制三维曲面
/ H. O6 N& u2 C8 M shading interp % 设定三维曲面的显示效果
+ @" l* b. j- C: o2 |5 C pause(0.1)
5 l y; ~7 M# h' I8 P- M M=getframe(gcf); % 捕捉当前绘图窗口, 作为动图的一帧图像
% G ]) \$ t, R1 I8 J0 G% s+ j/ P! ` if k==1 % 判断是否为首帧图像$ V0 R P2 A5 l* ]1 u. d
[I,map]=rgb2ind(M.cdata,256); % 将 RGB 图像转换为索引图像
. b6 `# B3 B" f5 X( R7 u/ |: V imwrite(I,map,'out.gif','DelayTime',0.1,'LoopCount',Inf) % 创建 gif 动图, 写入首帧图像, 设定动图无限循环, 延时时间为 0.1 秒; l1 W$ l/ \; j! c- g, L
else
" e, M, k) i! ~# ~0 [" l [I,map]=rgb2ind(M.cdata,256); % 将 RGB 图像转换为索引图像
( R |. ]2 m* R" ]1 u% H1 W imwrite(I,map,'out.gif','WriteMode','append','DelayTime',0.1) % 添加到 gif 图像, 设定延时时间为 0.1 秒0 G6 N+ |. E( L7 S7 m
end
6 F/ d: l! }; l% wend
" ?- d' I" O9 x6 h5 D5 f( j
|
|
/1 
发表于 2020-3-18 09:44
收藏
淘帖
支持！
反对！