Wolfram言語™

ナイトの移動経路

バージョン11には新たにFindHamiltonianPathが加えられ，経路，閉路，コースを求める機能がさらに拡張された．ナイトがチェス盤のすべてのマスを1回だけ通過して移動する場合の経路を求める．

In[1]:=

(* 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]

Out[1]=

動画を開始

動画を中止