チュートリアル 6 ステップを1つのセッション内で順に実行します。各ステップはエンジンで実行済みで、以下の出力は実際に生成されたものです。
Clear[f, sol];出力なし - このステップは次のステップの準備をします。
attackQ[{i_Integer, xi_Integer}, {j_Integer, xj_Integer}] := Or[i - j == 0, xi - xj == 0, i - j == xi - xj, i - j == xj - xi]出力なし - このステップは次のステップの準備をします。
countAttacks[q : {_Real..}] := Block[{qns = Ordering[q], n = Length[q]}, Count[Flatten[Table[attackQ[{i, qns[[i]]}, {j, qns[[j]]}], {i, 1, n - 1}, {j, i + 1, n}]], True]]出力なし - このステップは次のステップの準備をします。
queenPlot[vec_] := Module[{veclength = Length[vec]}, Show[Graphics[Join[ Table[Line[{{1, i}, {veclength + 1, i}}], {i, veclength + 1}], Table[Line[{{i, 1}, {i, veclength + 1}}], {i, veclength + 1}]]], Graphics[Table[Disk[{i + .5, vec[[i]] + .5}, 0.25], {i, veclength}]], AspectRatio -> 1]]出力なし - このステップは次のステップの準備をします。
vars = Array[Subscript[q, #]&, 8];
{f, sol} = NMinimize[countAttacks[vars], vars, Method -> {"DifferentialEvolution", "PostProcess" -> False}];
{f, Thread[vars -> (sol = Ordering[sol[[All, 2]]])]}{f, {Subscript[q, 1] -> Ordering[sol[[2]]], Subscript[q, 2] -> Ordering[sol[[2]]], Subscript[q, 3] -> Ordering[sol[[2]]], Subscript[q, 4] -> Ordering[sol[[2]]], Subscript[q, 5] -> Ordering[sol[[2]]], Subscript[q, 6] -> Ordering[sol[[2]]], Subscript[q, 7] -> Ordering[sol[[2]]], Subscript[q, 8] -> Ordering[sol[[2]]]}}queenPlot[sol]-Graphics-