Sub f(g As Byte, cn As Integer, n As Byte, x() As Byte, iz() As Byte, jz() As Byte)
・・・
・・・ ・・・
If gi = n - 2 And gj = 0 Then
w = 0
For i = 0 To n - 3
w = w + x(i, 0)
Next
w = w + x(n - 1, 0)
w1 = Int(n * (n * n + 1) / 2) - w
If w1 < 1 Then Exit Sub
If w1 > n * n Then Exit Sub
If n Mod 2 = 0 Then
For i = 0 To 4 * n - 6
If w1 = x(iz(i), jz(i)) Then Exit Sub
Next
End If
If n Mod 2 = 1 Then
For i = 0 To 4 * n - 5
If w1 = x(iz(i), jz(i)) Then Exit Sub
Next
End If
x(gi, gj) = w1
Call f(g + 1, cn, n, x(), iz(), jz())
Exit Sub
End If If (gi > 0 And gi < n - 1) And gj = n - 1 Then
w = 0
For i = 0 To n - 2
w = w + x(gi, i)
Next
w1 = Int(n * (n * n + 1) / 2) - w
If w1 < 1 Then Exit Sub
If w1 > n * n Then Exit Sub
For i = 0 To g - 1
If w1 = x(iz(i), jz(i)) Then Exit Sub
Next
x(gi, gj) = w1
Call f(g + 1, cn, n, x(), iz(), jz())
Exit Sub
End If ・・・
・・・
・・・
参考ファイル 時間計測版改良その３
薄い緑すなわち２列目から(n-1)列目までのｎ行目を改善しましょう。
この改良で魔方陣末項確定法自動生成ソフトが完成します。
（今回改良してみて
If n Mod 2 = 0 Then
For i = 0 To 4 * n - 6
If w1 = x(iz(i), jz(i)) Then Exit Sub
Next
End If
If n Mod 2 = 1 Then
For i = 0 To 4 * n - 5
If w1 = x(iz(i), jz(i)) Then Exit Sub
Next
End If
は
For i = 0 To g - 1
If w1 = x(iz(i), jz(i)) Then Exit Sub
Next
とシンプルなものにできることに気がつきました。
次回はここも改良します。）
