Animateを使ったアニメーション

animateを使っアニメーションをすることもできる

Animate[
Graphics[{Circle[{0,0},1],Disk[{Cos[t],Sin[t]},0.05]},PlotRange->{{-1.2,1.2},{-1.2,1.2}}],{t,0,2Pi,Pi/20}
]

プログラムをわかりやすくするために変数定義をするといいのだが、Animate[]の外に出すと、参照できなくなるので、Animate[]の中に全部入れる必要がある。

Animate[
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}
]