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