骑士之旅
新增的 FindHamiltonianPath 扩展了寻找新的路径、圈和旅程的功能. 找出骑士的一个旅程,使骑士在棋盘上的每一格只停留一次而能够遍历棋盘.
显示完整的 Wolfram 语言输入
Out[1]=

新增的 FindHamiltonianPath 扩展了寻找新的路径、圈和旅程的功能. 找出骑士的一个旅程,使骑士在棋盘上的每一格只停留一次而能够遍历棋盘.
(* draw a checker board *)
checkerboard =
ArrayPlot[Table[Mod[j + i, 2], {i, 8}, {j, 8}],
ColorRules -> {1 -> RGBColor[0, .55, .77],
0 -> RGBColor[.67, .9, .99]}, Frame -> False,
DataRange -> {{1, 8}, {1, 8}}];
(* compute knight's tour *)
g = KnightTourGraph[8, 8];
tour = FindHamiltonianPath[g];
(* show the tour *)
Manipulate[
Show[{checkerboard,
HighlightGraph[g, PathGraph[tour[[;; i]]],
PlotTheme -> "Marketing",
GraphHighlightStyle -> "DehighlightHide",
EdgeStyle -> Thickness[.01]]}], {i, 1, Length[tour], 1},
SaveDefinitions -> True]