WOLFRAM

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

ウェーブレットパケットの木を可視化する

ウェーブレットパケットの木を可視化するグラフを構築する．

    
Wolfram Language code: data = Table[Sin[x ^ 2], {x, -8, 8, 0.2}];
Wolfram Language code: edges = {{}{0}, {}{1}, {0}{0, 0}, {0}{0, 1}, {1}{1, 0}, {1}{1, 1}};
Wolfram Language code: swt = StationaryWaveletPacketTransform[data, Automatic, 2];
Wolfram Language code: vShapes = Prepend[swt[All, {"ListPlot", PlotMarkers -> "", PlotStyle -> Darker@Brown}], {} -> ListPlot[data, Frame -> False, Axes -> False, Joined -> True]];
Wolfram Language code: Framed[Graph[edges, VertexShape -> vShapes, VertexSize -> {"Scaled", .2}, EdgeStyle -> Thick, ImageSize -> 450, PerformanceGoal -> "Quality"], RoundingRadius -> 5]