Table関数を用いたGIFアニメーションの作り方

Table関数を用いると割と簡単にGIFアニメーションが作ることができる。
まずTable関数を用いることでanimeという変数に少しずつ違う絵を描き込む。

anime=
Table[
　If[t==0,dots={PointSize[0.006]};];
　cycloid[t_]:={t-Sin[t],1-Cos[t]};
　　baseline=Line[{{-2,0},{10.5,0}}];
　AppendTo[dots,Point[cycloid[t]]];
　Graphics[{{GrayLevel[.5],Disk[{t,1},1]},(*disk*)
　　dots,Line[{{t,1},cycloid[t]}],(*spoke*)
　　baseline},{AspectRatio->3/12,　　　　　　　PlotRange->{{-1.5,10.5},{-.5,2.5}}}],{t,0,3Pi,Pi/20}]

できあがった変数についてListAnimateを使うとアニメを再生することができる。

ListAnimate[anime]

アニメーションGIFを書き出すフォルダを確認して、Exportで出力する。

Directory[]

Export["cycloid.gif",anime]

出力されたファイルはGIF98なのでPowerPointなどでそのまま利用することができる。

円運動の場合には下記のようになる。セミコロンをつけているところは出力されない。

anime=
Table[
x=Cos[t];
       y=Sin[t];

       waku=Circle[{0,0},1];
       ten=Disk[{x,y},0.05];

Graphics[{waku,ten},{ PlotRange->{{-1.2,1.2},{-1.2,1.2}}}], {t,0,2Pi,Pi/20}
];

ListAnimate[anime]

Export["circle.gif",anime]