Mathematica中文论坛-非官方

标题: 豆粑粑 matlab生成动画，存视频 [打印本页]

---

作者: meatball1982    时间: 2020-5-8 14:15
标题: 豆粑粑 matlab生成动画，存视频
别人的问题，记录一下。

1. clear all
   
2. clc
   
3. clf
   
4. 
   
5. 
   
6. %% outline
   
7. % 4 LYR anim points
   
8. 
   
9. %% main
   
10. 
    
11. x = -pi:0.1:2*pi;
    
12. y = sin(x)+0.04*x;
    
13. 
    
14. 
    
15. n_p = length(x);
    
16. 
    
17. n_int = 6;
    
18. col_mm = cool(n_int);
    
19. n_end = 1;
    
20. 
    
21. con = 1;
    
22. h=figure(1);
    
23. set(gca,'XLim',[-4 7],'yLim',[-1.2 1.2]);
    
24. 
    
25. while n_end < n_p
    
26.    
    
27.    
    
28.     ind = 1 : n_end;
    
29.     plot(x,y,'color','none');
    
30.     axis([-4 7 -1.2 1.2])
    
31.     % plot gray point
    
32.     hold on
    
33.     plot(x(ind),y(ind),'o','markerfacecolor',[0.8 0.8 0.8],'markeredgecolor','none');
    
34.     if n_p - n_end >  n_int
    
35.         n_plot = n_int;
    
36.     else
    
37.         n_plot = n_p-n_end;
    
38.     end
    
39.     % plot color points
    
40.     for i = 1: n_plot
    
41.         plot(x(n_end+i),y(n_end+i),'o','markerfacecolor',col_mm(i,:),'markeredgecolor','none')
    
42.         pause(0.05)
    
43.         if con < 10
    
44.             con_str = ['0',mat2str(con)];
    
45.         else
    
46.             con_str = mat2str(con);
    
47.         end
    
48.         fi_na = ['file_imgs/file_sin/fig_',con_str,'_',mat2str(i)];
    
49.         fun_work_li_035_myfig_out(h,fi_na,3);
    
50.         % mod code here and  save  your  imgs with diff name
    
51.     end
    
52.    
    
53.     % update n_end and plot cont
    
54.     n_end = n_end + n_int;
    
55.     con  = con +1;
    
56.     hold off
    
57.     pause(0.2)
    
58. end
    
59. 
    
60. %% logs
    
61. % mod  : 08-May-2020 13:22:05

复制代码

work_anim_plot_points.m.zip

2020-5-8 14:14 上传

点击文件名下载附件

1.09 KB, 下载次数: 1

m

sh_conv.sh.zip

2020-5-8 14:12 上传

点击文件名下载附件

245 Bytes, 下载次数: 1

convert

---

作者: meatball1982    时间: 2022-2-25 07:50


更新一下，AH的问题。

如果想把图片拼接，也可以convert
比如我有a.png b.png c.png
我想生成一个a,b在上，c在下的图
a  b
  c

我通过分别拼接实现。
因为是通过命令行实现，所以这个过程可以是脚本实现不到的i 值　，然后，再实现转化成gif 或视频　。
具体的，看楼上。

1. #
   
2. # a + b -> lr
   
3. #
   
4. # lr  
   
5. # +     -> ud.png
   
6. # c   
   
7. 
   
8. convert a.png b.png +append lr.png
   
9. convert lr.png c.png -append ud.png
   
10. 
    
11. convert -delay 20 'fig_*.png' sin.gif
    
12. #convert -delay 20 'fig_*.png' sin.m4v
    
13. 
    
14. 
    
15. 
    
16. # logs ###################################
    
17. # mod : Fri Feb 25 07:44:10 CST 2022
    

复制代码

---

欢迎光临 Mathematica中文论坛-非官方 (http://ilovemathematica.com/)

Powered by Discuz! X3.2