New in Wolfram
Mathematica
8: Análisis de óndula
◄
previous
|
next
►
Áreas de aplicación
Transforme sonido directamente
Analice un sonido directamente con transformadas de óndulas continuas.
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]=