Wolfram
Mathematica
8의 신기능: 그래프 및 네트워크 모델링
◄
이전
|
다음
►
응용 분야
그래프의 매개변수화
Mathematica
8은 광범위한 매개변수 그래프 콜렉션을 가지고 있습니다.
In[1]:=
X
style = {VertexStyle -> Directive[Hue[.6, .3, 1], EdgeForm[Hue[.6, .8, .7]]], VertexSize -> 0.25, EdgeStyle -> Hue[.6, .8, .5], ImageSize -> {125, 125}};
In[2]:=
X
text[s_] := Style[s, 11, FontFamily -> "Verdana"];
In[3]:=
X
graphs = {text[ButterflyGraph], text[CirculantGraph], text[CompleteGraph], text[CompleteGraph], ButterflyGraph[2, style], CirculantGraph[8, 3, style], CompleteGraph[8, style], CompleteGraph[{3, 2, 4}, EdgeStyle -> Hue[.6, .8, .7], style], text[CycleGraph], text[GridGraph], text[HararyGraph], text[HypercubeGraph], CycleGraph[8, style], GridGraph[{4, 5}, style], HararyGraph[5, 8, style], HypercubeGraph[3, style], text[KnightTourGraph], text[PetersenGraph], text[StarGraph], text[TuranGraph], KnightTourGraph[4, 4, style], PetersenGraph[6, 5, style], StarGraph[8, style], TuranGraph[7, 3, style], text[WheelGraph], text[KaryTree], text[CompleteKaryTree], text[PathGraph], WheelGraph[8, style], KaryTree[10, 3, style], CompleteKaryTree[3, 3, style], PathGraph[Range[20], style] };
In[4]:=
X
Grid[Partition[graphs, 4, 4, {1, 1}, {}], Frame -> {All, {True, False, True, False, True, False, True, False}}, FrameStyle -> LightGray, Spacings -> {1, {{2, 1}}}]
Out[4]=
