WOLFRAM

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

スカログラムの機能でウェーブレットを可視化する

データ集合の離散ウェーブレット変換あるいは連続ウェーブレット変換のベクトル係数のウェーブレットスカログラムをプロットする．

Wolfram Language code: opts = {ImageSize -> 500, Frame -> True, ImagePadding -> {{30, 3}, {15, 3}}};
波を作成し，ウェーブレット変換を計算する：
Wolfram Language code: data = Table[Sign[Cos[x + Sin[x ^ 2]]], {x, -6, 6, 0.025}]; cwt = ContinuousWaveletTransform[data];
スカログラムを可視化する：
Wolfram Language code: Column[{WaveletScalogram[cwt, ColorFunction -> "SunsetColors", opts], ListLinePlot[data, PlotStyle -> Directive[Thick, Darker@Purple], AspectRatio -> 1 / 4, opts]}]