Wolfram
Mathematica
8의 신기능: 그래프 및 네트워크 모델링
◄
이전
|
다음
►
응용 분야
그래프 요소의 하이라이트 기능
Mathematica
8은 그래프 하이라이트 스타일에 대한 대규모 컬렉션을 내장하고 있습니다.
In[1]:=
X
graphs = Table[ Graph[Table[ j -> FromDigits[Drop[IntegerDigits[j, 2], -1], 2], {j, 1, 11}], GraphHighlight -> {1, 2, 3, 4, 3 \[DirectedEdge] 1, 2 \[DirectedEdge] 1, 4 \[DirectedEdge] 2}, GraphStyle -> "BasicGreen", VertexSize -> .3, GraphHighlightStyle -> gs, PlotLabel -> Style[gs, 11, FontFamily -> "Verdana"], ImageSize -> 180], {gs, GraphElementData["GraphHighlightStyle"][[2 ;;]]}];
In[2]:=
X
Grid[Partition[graphs, 3, 3, {1, 1}, {}], Frame -> All, FrameStyle -> LightGray]
Out[2]=