Wolfram
Mathematica
8의 신기능: 그래프 및 네트워크 분석
◄
이전
|
다음
►
응용 분야
특성 테스트
Mathematica
8은 그래프의 특성을 검증할 수 있는 광범위한 속성 함수를 제공합니다.
In[1]:=
X
names = {GraphQ, EmptyGraphQ, UndirectedGraphQ, DirectedGraphQ, LoopFreeGraphQ, SimpleGraphQ, WeightedGraphQ, AcyclicGraphQ, BipartiteGraphQ, ConnectedGraphQ, EulerianGraphQ, HamiltonianGraphQ, PathGraphQ, TreeGraphQ};
In[2]:=
X
FormulaGallery[f_List] := Module[{style = {VertexSize -> 0.2, ImageSize -> 120}}, g = Graph[{1 \[UndirectedEdge] 2, 2 \[UndirectedEdge] 3, 3 \[UndirectedEdge] 1, 4 \[UndirectedEdge] 5, 5 \[UndirectedEdge] 6, 6 \[UndirectedEdge] 4}, style]; h = Graph[{1 \[UndirectedEdge] 2, 2 \[UndirectedEdge] 3, 3 \[UndirectedEdge] 1, 3 \[UndirectedEdge] 3}, style]; Style[Grid[ Join[{{Style["Functions", FontFamily -> "Verdana", Bold], g, h}}, {ToString /@ f, #[g] & /@ f, #[h] & /@ f}\[Transpose]], Background -> {None, {{Hue[.25, .15, .9], GrayLevel[.9]}}}, FrameStyle -> Directive[Thick, White], Dividers -> All, Spacings -> {1, 2}], FontFamily -> "Verdana"]];
In[3]:=
X
Pane[FormulaGallery[names], 500]
Out[3]=