Новое в системе 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]=