New in Wolfram
Mathematica
8: Graph & Network Modeling
◄
previous
|
next
►
Application Areas
Highlight Graph Elements
Mathematica
8 has an extensive collection of built-in graph highlight styles.
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]=