Up | English

Mathematica ハンドブック 木村 広 (著)　(2001/1)

作成: 2002-03-27 修正: 2002-03-27

---

• p.14
  Table [ Plot3D [ Sin[x + t] + Sin[3y], {x,-3,3}, {y,-3,3}, PlotPoints -> 30 ], {t, 0, 2Pi - Pi/6, Pi/6} ]
  
  
• p.116 (アニメーションGIF に書き出す)
  Export [ "anime.gif", Table [ Plot3D [ Sin[x + t] + Sin[3y], {x,-3,3}, {y,-3,3}, PlotPoints -> 30 ], {t, 0, 2Pi - Pi/6, Pi/6} ] ]
  
  
• p.116 (QuickTime Movie に書き出す)
  1. アニメーションの下絵となるプロットのセルを選択
  2. Edit → Save Selections As → QuickTime ...
  3. 設定
     
     
     
  4. ウェブサーバーにのせるときは，Flatten Movie に変換
     ツールとして，FlattenMoov など
     
     
  5. 結果：

p.114

Table [ Plot [ Sin[ x + t ], {x, 0, 2 Pi}, Axes -> { True, False }, Ticks -> None, PlotStyle -> { { RGBColor[0,0,1] } } ], {t, 0, 2 Pi, 0.1} ]

p.120

Play [ Sin [440 * 2 Pi t], {t, 0, 1} ]

p.121

ListPlay [ Table [ Sin [440 * 2 Pi t], {t, 0, 1, 1./8192} ] ]

p.122

ListPlay [ Table [ Sin [440 * 2 Pi t], {t, 0, 1, 1./8192} ], SampleRate -> 4096 ]

p.123

Play [ Sin [440 * 2 Pi t] + Sin [438 * 2 Pi t], {t, 0, 2} ]

Play [ Sin [440 * 2 Pi t] + Sin [420 * 2 Pi t], {t, 0, 2} ]

p.126

Needs ["Miscellaneous`Audio`"]
{sin440, tri440, saw440, sqr440} = Map [ Waveform [#, 440, 2] &, {Sinusoid, Triangle, Sawtooth, Square} ]
Show [ {sin440, tri440, saw440, sqr440} ]