Mathematica不仅能够绘制出精美的图像、导出动态图、导出视频，还可以处理声音，把函数变成声音。听说科学家已经用Mathematica模拟出宇宙大爆炸的声音了，真是难以想象啊。可惜，我不知道相关代码。下面就简单地讲一下，Mathematica是怎么处理声音的！
工具/原料
电脑
Mathematica(8.0以上版本)
代码和示例
1、声音的本质是波，我们可以用Mathematica把波函数转化吮钾熨追成声音，用到的函数命令是Play斤舻浑趸、ListPlay。我们的耳朵可以听到的声音频率在20～20000赫兹之间，因此，波函数的频率也应如此。Play[Sin[5000t],{t,0,10}]运行之后，就是一段持续10秒钟的频率为声音。在笔记本里有一个声音播放器，点那个三角形，就能够听到函数的声音了；点击那个矩形，可以停止声音的播放。注意，5000这个数值不要改太少，否则会产生次声波。
2、不同的函数给出不同的波形，运行的结果就会表现为不同的音色；而且，用加、减、乘、除，可以把两个简单的声音组合起来。举三个例子：Play[Sin[700t]+25tSin[350t^2],{t,0,8}]Play[Sin[100t^2Sin[20t]],{t,3,10}]Play[Sin[100tSin[2t]],{t,3,30}]
3、用Round函数或者Mod函数，可以很好地制造噪音。Play[Sin[5000t]+Mod[5000t,50],{t,0,2}]这个所以里面，正弦函数的声音完全被模函数给盖住了，因为模函数的振幅远大于前者。于是，只要把正弦函数的振幅调大（乘以60），就够了：Play[60*Sin[5000t]+Mod[5000t,50],{t,0,2}]
4、Sound函数，可以发出不同音符的声音，每一个音符持续一秒：讵症慧鹱Sound[{SoundNote["A"],SoundNote["B&鳎溻趄酃quot;],SoundNote["C"],SoundNote["D"]}]用前15个MIDI乐器（请自行百度相关概念）演奏，每一个时长为0.1秒：Sound[Table[SoundNote[0,0.1,i],{i,15}]]
5、播放不同乐器（大提琴、钢琴、大号）的音符的随机序列，每个音符播放的时间长度也是随机的：Sound[SoundNote[#,1,RandomChoice[{"Piano","Cello","Tuba"}]]&/@RandomInteger[12,30],4]这段代码，每次运行，都有可能产生不同的结果。
6、Beep函数，可以发出提示音。下面的代码，在Mathematica进行每一次计算之前，都有一次提示音：Table[Beep[];FactorInteger[2^(50i)-1],{i,10}]不过，这个提示音实在是小点，“叮、叮、叮……”，一定要很仔细的听才行。
7、Mathematica可以识别flac格式的音频文件，这里导入一个Mathematica官方的演示文件“ExampleData/sample.flac”，在点击“开始”按钮后，不仅能听到声音，还能看到声音的波动：data=Import["ExampleData/sample.flac"]ByteCount[data]/1024.^2
8、Mathematica10.0以前的版本是不支持MP3格式的，所以，低版本的Mathematica是不能导入MP3文件的。好在，10.0版本以后，Mathematica可以处理MP3格式了：Import["ExampleData/car.mp3"]
9、把函数的声音导出为MP3格式的文件，并且放到电脑桌面上。咯悝滩镞两个函数为例：sy=Play[Sin[100tSin[2t]],{t,3,30魈胺闹臣},SampleRate->44100]shengyin=Play[(2+Cos[50t])*Sin[2000*(1+Round[2t])*t],{t,0,20}]Export["C:\\Users\\Administrator\\Desktop\\声音.mp3",sy]Export["C:\\Users\\Administrator\\Desktop\\声音0.mp3",shengyin]然后，你就可以在电脑上听“歌”了。
