第３講 第２講の魔方陣を高速化しよう！
第６話 魔方陣プログラム２の改良
改良は、乱数を使います。
各セルに１から順に入れていったのでは展望がないので、
１から３６の整数のうちからアットランダムに入れていこうというわけです。
ソースの改良点は
kk = 0
If n = 6 Then
kk = Int(Rnd * n * n)
End If
For k = 1 To n * n
kkk = (k + kk - 1) Mod n * n + 1
mah(i, j) = kkk
'Cells(i + 5, 1 + j) = mah(i, j)
hh = 0
If tyouhukuhantei(kkk - 1) = 1 Then GoTo owari
tyouhukuhantei(kkk - 1) = 1
・
・
If hh = 1 Then tyouhukuhantei(kkk - 1) = 0
です。
Rndは１未満の小数をアットランダムに発生させる乱数です。
したがって、kk = Int(Rnd * n * n)は３６未満で０以上の整数を発生させています。
(k + kk - 1) Mod n * nは、
(k + kk - 1)を３６で割った余りです。
３６以上になった場合、３６未満に戻すためです。
例えば、kk = 11だった場合は、
１１，１２，１３，・・・，３５，０，１，２，・・・，１０
のように動いていきます。
ですから (k + kk - 1) Mod n * n + 1はそれに１が加わり、
１２，１３，１４，・・・，３６，１，２，３，・・・，１１
結局ｆｏｒ文の始まりをRndによってランダムにしているわけです。
しかし、順番がどうであれすべての場合を繰り返すことがわかります。
以上の改良で魔方陣プログラム３ができあがります。
なおメインプロシージャの
'rndj = Cells(2, 9)
If n = 6 Then
For i = 0 To 21
Rnd
Next
End If
はRndの空打ちです。
２１という数字は０から４０まで空打ち実験をして最も６次魔方陣が速くできるものを選びました。
はじめ
rndj = Cells(2, 9)
If n = 6 Then
For i = 0 To rndj
Rnd
Next
End If
としておいてI2にいろいろな数字を入れて、
実験して最も速くなる数字を見つけてから、
上のように記述を変えました。
