WOLFRAM

Wolfram言語 ＆ システムドキュメントセンター

可視化したものに音声を加える

サンプルの音声をインポートする：
Wolfram Language code: sound = Import["ExampleData/rule30.wav"]
kが0か1に達したときにのみ，音声が再生されるように設定する：
Wolfram Language code: Animate[If[k == 0 || k == 1, EmitSound[sound]]; Plot[k * x ^ 2, {x, -2, 2}, PlotRange -> {{-2, 2}, {-10, 10}}], {k, -2, 2, 0.1, AnimationRate -> 1, AnimationRunning -> False}]