给定一段音频，我们要想用Mathematica来画出它的波形图，大概有两种方法。但是这两种方法的效果却有很大的区别。工具/原料more电脑Mathematica方法1—ListPlot1/3分步阅读

先把音频转化为数据。

b = AudioData

2/3

再用ListPlot画波形图：

ListPlot

3/3

但是这个简单的代码，却极度耗电耗时：

ListPlot, PlotStyle - Blue] // AbsoluteTiming

用时长达十几秒，而且内存占到90%。

方法2—AudioPlot1/2

直接用AudioPlot把音频转化为波形图：

AudioPlot

2/2

这个非常节省时间，只需0.5秒左右。

分离声道再画图1/3

上面的音频是双声道音频，所以AudioPlot能够画出两个波形图。

但是ListPlot却把两组数据画到一起了。

因此，这里需要单独画某一个声道的波形图：

ListPlot], PlotStyle - Blue,

AspectRatio - 2/3] // AbsoluteTiming

用时5秒左右。

2/3

如果要用AudioPlot画波形图，需要把单声道的数据转化为音频，然后画图：

AudioPlot] // Audio, PlotStyle - Blue,

AspectRatio - 2/3] // AbsoluteTiming

用时0.3秒左右。

3/3

或者还可以这样：

AudioPlot], PlotStyle - Blue,

AspectRatio - 2/3] // AbsoluteTiming

注意事项

绘制散点图，或者说波形图，还是转化为Audio，再使用AudioPlot比较快。

AudioPlot背后的算法是很神奇的。^o^

MATHEMATICA波形图音频处理