1、读取音频：
2、把音频转化为数据，并提取其中一个通道：
3、绘制散点图：
4、成图如下。
Mathematica自动把音频波峰视为1，其余按比例缩小。
5、把散点图转化为极坐标图：
6、图片如下。所有数据绕了一圈。
7、所有数据均匀的绕两圈：
Partition[b, Floor[Length[b]/2]]
8、所有数据均匀的绕10圈：
Partition[b, Floor[Length[b]/10]]
9、所有数据均匀的绕100圈：
Partition[b, Floor[Length[b]/100]]
10、1000圈的效果，出现了层次分明的辐条形状：
11、1秒钟的效果图：
b[[;; 16000]]
这一秒，有16000个采样数据（采样率是16000）。
