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}]