WOLFRAM

Wolfram言語 ＆ システムドキュメントセンター

音声を直接変換する

連続ウェーブレット変換を使って音声を直接解析する．

    
Wolfram Language code: snd = ExampleData[{"Sound", "Apollo11ReturnSafely"}]
Wolfram Language code: cwd = ContinuousWaveletTransform[snd, GaborWavelet[6], {Automatic, 12}]
Wolfram Language code: sty = Directive[14, FontFamily -> "Helvetica"];
Wolfram Language code: 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"]]