一、第一个方法比较简单，就是使用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

版权声明：本文为博主原创文章，转载请附上博文链接！