Wolfram言語

グラフとネットワーク

ナイトの移動経路

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

完全なWolfram言語入力を表示する
In[1]:=
Click for copyable input
(* 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]=
動画を開始
動画を中止

関連する例

de en es fr ko pt-br ru zh