WOLFRAM

Wolfram言語 ＆ システムドキュメントセンター
一般的な 軸プロットを使ってウェーブレット変換を可視化する

一般的な 軸プロットを使ってウェーブレット変換を可視化する

Wolfram Language code: data = Table[Sin[450 x], {x, 0, 1, 1 / 1024}] + Table[Sin[50 x ^ 2], {x, 0, 1, 1 / 1024}];
Wolfram Language code: dwd = StationaryWaveletTransform[data, Automatic, 7];
Wolfram Language code: Column[{ListLinePlot[data, ImageSize -> 570, AspectRatio -> 0.2, PlotStyle -> Directive[Thick, ColorData["DarkRainbow", 0.2]], Axes -> {False, True}, TicksStyle -> Directive[13, FontFamily -> "Verdana"], PlotLabel -> Style["データ", FontFamily -> "Verdana", Brown, Bold, 16], InterpolationOrder -> 2, ImagePadding -> {{20, Automatic}, {Automatic, Automatic}}], WaveletListPlot[dwd, Automatic, PlotStyle -> (ColorData["DarkRainbow"] /@ Riffle[#, #2]&@@Partition[Range[0.05, 0.85, 0.8 / 7], 4]), ImageSize -> 570, PlotLayout -> "CommonYAxis", Ticks -> Full, TicksStyle -> Directive[13, FontFamily -> "Verdana"], PlotLabel -> Style["ウェーブレット分解", FontFamily -> "Verdana", Brown, Bold, 16], ImagePadding -> {{30, Automatic}, {Automatic, Automatic}}]}, Alignment -> Right]