一、第一个方法比较简单，就是使用movie（f）直接取生成AVI视频文件。

%% f(t)–>f(4t+12) 并且验证%%
function Signal_change()
tic%记录程序运行时间
figure
n = 0;
t = -2pi:0.01:2pi;
y = sin(t);%周期为2pi
y_result = sin(4*t);
plot(t,y,‘b’);
xlabel(‘t’);
ylabel(‘Amplitude’);
n = n+1;
F(n) = getframe(gcf);%获取当前图形并且保存到F（n）中
%saveas(gcf,[‘C:\Users\Administrator\Desktop\图片’,num2str(n),’.jpg’]);
hold on

%% 验证%%
%f(4t+12) = f[4(t + 3)].遵循先外后里原则具体的图形变换实现为：
%1 、先将f(t)压缩4倍
%2、再将压缩的图形左移3个单位。
y_now = sin(t);
h = plot(t,y_now,’–’,‘YDatasource’,‘y_now’);

%% f(t)–>f(4t)%%
for i = 1:0.1:4
y_now = sin(it);
refreshdata(h,‘caller’);
drawnow;
n = n+1;
F(n) = getframe(gcf);
%saveas(gcf,[‘C:\Users\Administrator\Desktop\图片’,num2str(n),’.jpg’]);
pause(0.01);
end
%保留f(4*t)的图形
n = n+1;
plot(t,y_result,‘r’);
F(n) = getframe(gcf);
%saveas(gcf,[‘C:\Users\Administrator\Desktop\图片’,num2str(n),’.jpg’]);
hold on

%% f(4t)–>f(4t+12)%%
for j = 0:0.1:3
y_now = sin(4*(t + j));
refreshdata(h,‘caller’);
drawnow;
n =n+1;
pause(0.1);
legend(‘sin(t)’,‘sin(4t+12)’,‘sin(4t)’);
F(n) = getframe(gcf);
%saveas(gcf,[‘C:\Users\Administrator\Desktop\图片’,num2str(n),’.jpg’]);
end
movie(F);%生成视频
movie2avi(F,‘imovie1.avi’,‘FPS’,3);%设置视频的帧率为3，数值越大速度越快

toc%记录程序运行时间

二、第二种方法是先将每一个动画中的图片保存下来到一个文件夹中，然后进行读取并且制作处视频文件。

程序示例：

function Avi()
%%大小写非常重要%%
n = 64;

WriterObj = VideoWriter(‘wmw’);
WriterObj.FrameRate = 100;%此语句必须放置在
%WriterObj = VideoWriter(‘wmw’)语句之后才能设置帧率

open(WriterObj);for i=1:n%逐次取出文件frame=imread([‘C:\Users\Administrator\Desktop\图片’,num2str(i),’.jpg’]); %读取文件writeVideo(WriterObj,frame);end close(WriterObj);
原图片文件在百度网盘：

链接：http://pan.baidu.com/s/1miFgCsg 密码：vauv

下载之后保存在桌面上，程序就可以直接运行

三、下面介绍将视频文件转换为gif文件

下载软件：视频GIF转换（百度上搜索就好）

使用很方便。

四、在word中插入gif：

最为方便的办法就是将word文件保存为网页文件，然后打开保存的网页文件gif图片就可以正常显示了

详细参考：http://www.doc88.com/p-330776270831.html

作者：themingyi
来源：CSDN
原文：https://blog.csdn.net/themingyi/article/details/60883884
版权声明：本文为博主原创文章，转载请附上博文链接！