Wolfram
Mathematica
8의 신기능: 웨이블릿 분석
◄
이전
|
다음
►
응용 분야
사운드 직접 변환
연속 웨이블릿 변환을 사용하여 사운드를 직접 분석합니다.
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]=