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"]]