WOLFRAM

Wolfram 语言与系统参考资料中心

可视化哈密顿圈

通过访问每个顶点一次制作一个循环.

    
Wolfram Language code: dodecahedron = PolyhedronData["Dodecahedron", "Skeleton"];
求哈密顿圈：
Wolfram Language code: hcycle = First[FindHamiltonianCycle[dodecahedron]]
可视化一个圈：
Wolfram Language code: Animate[HighlightGraph[dodecahedron, PathGraph[hcycle[[1 ;; n]]], GraphHighlightStyle -> "Thick"], {n, 0, Length[hcycle], 1}]