New in Wolfram Mathematica 6: Symbolic Sound Support  previous | next 
Show Spectrograms of Arbitrary Synthesized Sounds
Mathematica 6 automatically displays spectrograms of sounds it synthesizes.
In[1]:=

Click for copyable input
Play[Sum[Sin[1000 Sqrt[n] t (1 + Cos[n t])], {n, 10}], {t, 0, 2}]
Out[1]=