Novos Recursos do
Mathematica
8: Grafos & Modelagem de Redes
◄
anterior
|
próximo
►
Áreas de Aplicação
Destaque elementos gráficos
O
Mathematica
8 possui uma coleção extensiva de estilos de destaque para grafos incorporada.
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]=