Mathematicaでアニメーション

概要

一枚一枚の画像をまとめて Table に納め， それを望みの形式( .mov，.gif，.avi など）で Export すれば良い．

手順

  1. 時刻 t の画像1枚を描く関数を定義する
    例：
    onePicture[t_] := ListPlot[{{Cos[t], Sin[2 t]}},
  PlotRange -> {{-1.1, 1.1}, {-1.1, 1.1}},
  AspectRatio -> 1,
  PlotStyle -> PointSize[0.05]
  ]
  2. 時刻 t を変化させた画像を Table にまとめる
    例：
    frames = ParallelTable[
  onePicture[t], {t, 0, 2 Pi, 2 Pi/100}
  ]
    なお，Mathematica help によれば， 『ParallelTableは並列である点を除いてTableと同じように働く』 とのこと．
  3. ListAnimate を使ってアニメーションを確認する（省略可）
    例：
    ListAnimate[frames]
  4. アニメーションを書き出す
    例：
    Export["sample.gif", frames]

リンク

以下のページがとても役に立ちました．