Wolfram
Mathematica
8의 신기능: 그래프 및 네트워크 모델링
◄
이전
|
다음
►
응용 분야
웨이브렛 패킷 트리의 시각화
웨이브렛 패킷 트리를 나타내기 위한 그래프를 살펴봅니다.
In[1]:=
X
data = Table[Sin[x^2], {x, -8, 8, 0.2}];
In[2]:=
X
edges = {{} \[DirectedEdge] {0}, {} \[DirectedEdge] {1}, {0} \ \[DirectedEdge] {0, 0}, {0} \[DirectedEdge] {0, 1}, {1} \[DirectedEdge] {1, 0}, {1} \[DirectedEdge] {1, 1}};
In[3]:=
X
swt = StationaryWaveletPacketTransform[data, Automatic, 2];
In[4]:=
X
vShapes = Prepend[swt[ All, {"ListPlot", PlotMarkers -> "", PlotStyle -> Darker@Brown}], {} -> ListPlot[data, Frame -> False, Axes -> False, Joined -> True]];
In[5]:=
X
Framed[Graph[edges, VertexShape -> vShapes, VertexSize -> {"Scaled", .2}, EdgeStyle -> Thick, ImageSize -> 450], RoundingRadius -> 5]
Out[5]=
