Novos Recursos do
Mathematica
8: Análise de Wavelets
◄
anterior
|
próximo
►
Áreas de Aplicação
Transforme som diretamente
Analise diretamente um som usando transformadas contínuas de wavelet.
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]=