Wolfram
Mathematica
8의 신기능: 그래프 및 네트워크 분석
◄
이전
|
다음
►
응용 분야
해밀턴 사이클의 시각화
해밀턴 사이클을 찾아 봅니다.
In[1]:=
X
Manipulate[ HighlightGraph[ g2, {Style[hcycle[[1, 1]], Red], PathGraph[hcycle[[1 ;; n]]]}, GraphHighlightStyle -> "Thick", ImageSize -> {400, 300}], {n, 0, Length[hcycle], 1}, Initialization :> (g2 = PolyhedronData["Dodecahedron", "SkeletonGraph"]; hcycle = First[FindHamiltonianCycle[g2]]) ]
Out[1]=
Play Animation
»
Stop Animation
»