New in Wolfram
Mathematica
8: Wavelet Analysis
◄
previous
|
next
►
Application Areas
Directly Transform Sound
Directly analyze a sound using continuous wavelet transforms.
In[1]:=
X
snd = ExampleData[{"Sound", "Apollo11ReturnSafely"}]
Out[1]=
In[2]:=
X
cwd = ContinuousWaveletTransform[snd, GaborWavelet[6], {Automatic, 12}]
Out[2]=
In[3]:=
X
sty = Directive[14, FontFamily -> "Helvetica"];
In[4]:=
X
WaveletScalogram[cwd, {3 | 4 | 5 | 6 | 7, _}, ImageSize -> 570, Ticks -> {Automatic, {#, Superscript[2, #]} & /@ Range[7]}, TicksStyle -> sty, AxesLabel -> {Style["Time", sty], Style["Scale", sty]}, ColorFunction -> ColorData["SiennaTones"]]
Out[4]=