アニメをverion6に変換する方法
その１

Show[]をAppendTo[]に変える方法

これまでのバージョンで書かれたアニメプログラムを変換する方法についてまとめる。

今までの書かれ方ではShow[Graphics[ ] ]で描かれる場合が多い。下はその例である。

cycloid[t_]:={t-Sin[t],1-Cos[t]};
baseline=Line[{{-2,0},{10.5,0}}];
pi=N[Pi];
dots={PointSize[0.006]};

Do[AppendTo[dots,Point[cycloid[t]]];
Show[Graphics[{{GrayLevel[.5],Disk[{t,1},1]},dots,Line[{{t,1},cycloid[t]}],(*spoke*)baseline}],AspectRatio->3/12,PlotRange->{{-1.5,10.5},{-.5,2.5}}],{t,0.,59/40 2 pi,2pi/40}]

このとき、まずgifs={};を追加し、Show[Graphics[ ] ]の部分をAppendTo[gifs, Show[Graphics[ ]]]と書き換える。これにより、gifsという変数に一枚一枚の絵が蓄えられていく。具体的にはShow[　の前にAppendTo[gifs,　を加え、]を閉じる。

cycloid[t_] := {t-Sin[t],1-Cos[t]};
baseline = Line[{{-2,0},{10.5,0}}];
pi = N[Pi];
dots = {PointSize[0.006]};

gifs={};  (* gifsを初期化 *)
Do[AppendTo[dots, Point[cycloid[t]]];
   AppendTo[gifs,   (* AppendToでgifsに追加*)
 Show[Graphics[{{GrayLevel[.5], Disk[{t,1},1]},
          dots, Line[{{t,1}, cycloid[t]}],  (*spoke*)
          baseline}],   
      AspectRatio->3/12,
      PlotRange->{{-1.5,10.5},{-.5,2.5}}]
	],(*AppendTo を閉じる括弧 *)
       {t, 0., 59/40 2 pi, 2pi/40}]

gifsができれば、パッケージを読み込んでShowAnimation[ ]を使えば表示させることができる。

Needs["Graphics`Animation`"]
ShowAnimation[gifs]