New in Wolfram
Mathematica
8: Análisis de grafos y redes
◄
previous
|
next
►
Áreas de aplicación
Visualice ciclos hamilitonianos
Busque ciclos hamiltonianos.
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
»