WOLFRAM

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

ウェーブレット係数分布を可視化する

ウェーブレット係数の範囲と分布を比べる．

Wolfram Language code: data = WeatherData["KMDZ", "MeanTemperature", {{2007, 1, 1}, {2007, 12, 31}, "Day"}];
Wolfram Language code: plot = DateListPlot[data, Joined -> True, ImageSize -> 412, FrameTicksStyle -> Directive[12, FontFamily -> "Helvetica"], PlotStyle -> ColorData["FallColors"][0]];
Wolfram Language code: dwd = StationaryWaveletTransform[data["Values"], HaarWavelet[], 5];
Wolfram Language code: bwc = BoxWhiskerChart[Join[{data["Values"]}, dwd[Automatic, "Values"]], "Notched", ChartLabels -> Placed[Join[{"data"}, dwd["BasisIndex"]], Axis], BarOrigin -> Left, GridLines -> Automatic, ChartStyle -> "FallColors", ImageSize -> 460, FrameTicksStyle -> Directive[12, FontFamily -> "Helvetica"]];
Wolfram Language code: Framed[Grid[{{Column[{"平均", "気温"}], plot}, {Column[{"ウェーブレット", "係数", "分布"}], bwc}}, Alignment -> {{Left, Right}, {Center}}, Dividers -> Center, Spacings -> {1, 3}, FrameStyle -> GrayLevel@0.8, BaseStyle -> {FontFamily -> "Helvetica", 12, Bold}], RoundingRadius -> 10, FrameStyle -> GrayLevel@0.2, FrameMargins -> 10]