利用mathematica制作GIF动图

例如使用Potplayer连续截图(我设置没10帧截一次), 然后利用MMA可以制作动图代码如下:

SetDirectory["D:\\Program Files\\DAUM\\PotPlayer\\Capture\\"];
images = FileNames["*.jpg"];
img = Table[Import[images[[i]]], {i, Length[images]}];
Export["波西米亚狂想曲.gif", img, ImageSize -> Scaled[.8], 
 "DisplayDurations" -> .15, AnimationRepetitions -> Infty]

波西米亚狂想曲.gif