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]
    

リンク

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