如何使用Mathematica生成此操作的動畫GIF？

Question

這是我代表擺線的代碼，我想創建一個動畫GIF。 Atfer創建GIF我想將其包含到我的Beamer演示文稿中。

cicloida[tm_] := 
    Module[{a = 4, x, y, t, xx, yy, gridlinex, gridlinesy}, 
     x[t_] := a (t - Sin[t]); y[t_] := a (1 - Cos[t]); 
     gridlinesx = Table[{xx, GrayLevel[.4]}, {xx, 0, 4 a Pi, aPi/4}]; 
     gridlinesy = Table[{yy, GrayLevel[.4]}, {yy, 0, 2 a, a/2}]; 
     ParametricPlot[{x[t], y[t]}, {t, 0, tm}, 
     PlotStyle -> {Red, Thick}, 
     Epilog -> {Thick, Blue, Circle[a {tm, 1}, a], Red, 
     PointSize[Large], Point[{x[tm], y[tm]}], 
     Black, PointSize[Large], Point[a {tm, 1}]}, 
      GridLines -> {gridlinesx, gridlinesy}, 
     Ticks -> {a Pi Range[4], a {1, 2}}, 
     PlotRange -> 2 a {{0, 3 Pi}, {0, 1}}]] 
      Manipulate[ 
    Quiet@ cicloida[tm], {tm, .0001, 6 Pi, Appearance -> "Labeled"}, 
    SaveDefinitions -> True] 

Answer 1

Pass a list of graphics or any other expression to Export to create an animation in an "SWF", "AVI", "TIFF", or animated "GIF" file. Export will also create an animation instead of a list when given a Manipulate, Animate, or ListAnimate: 

In[1]:= list = {Graphics3D[Cuboid[]], Graphics[Rectangle[]], 
       Graphics[Line[{{0, 0}, {1, 1}}]], Graphics[Point[{0, 0}]]}; 
In[2]:= Export["animation.avi", list] 

所以這必須工作：

Export["animation.gif", Manipulate[ ... ]];