第８講　４次魔方陣と６次魔方陣の作成

第８話　６次魔方陣コード解説その２（逆対角線移動）　

次に、
　　'逆対角線移動
　　For i = 0 To m - 1
　　　　w = a(n - 1 - i, i)
　　　　a(n - 1 - i, i) = a(i, n - 1 - i)
　　　　a(i, n - 1 - i) = w
　　Next
のコードを見てみましょう。
n = 6、m = 3 であることに注意しながら読んでください。
For i = 0 To m - 1はFor i = 0 To 2 です。
a(n - 1 - i, i)は何を意味するでしょうか。
ｉ＝０とのき、a(n - 1 - i, i)＝a(6 - 1 - 0, 0)＝a(5, 0)
ｉ＝１とのき、a(n - 1 - i, i)＝a(6 - 1 - 0, 0)＝a(5, 0)
ｉ＝２とのき、a(n - 1 - i, i)＝a(6 - 1 - 0, 0)＝a(5, 0)
したがって、今回は

の６，１１，１６です。
では、a(i, n - 1 - i)は何でしょうか。
ｉ＝０とのき、a(i, n - 1 - i)＝a(0, 6 - 1 - 0)＝a(0, 5)
ｉ＝１とのき、a(i, n - 1 - i)＝a(1, 6 - 1 - 1)＝a(1, 4)
ｉ＝２とのき、a(i, n - 1 - i)＝a(2, 6 - 1 - 2)＝a(0, 3)なので、a(i, n - 1 - i)は

３１，、２６，２１ということになります。
以上から
　　'逆対角線移動
　　For i = 0 To m - 1
　　　　w = a(n - 1 - i, i)
　　　　a(n - 1 - i, i) = a(i, n - 1 - i)
　　　　a(i, n - 1 - i) = w
　　Next
では、（６，３１），（１１，２６），（１６，２１）の交換を行っていることがわかります。

再度確認しておきますが、

も

も

を基にして作っています。

第７話へ　第９話へ

vc++講義へ
vb講義へ
ＶＢ講義基礎へ
初心者のための世界で一番わかりやすいVisual C++入門基礎講座へ
初心者のための世界で一番わかりやすいVisual Basic入門基礎講座へ

数学研究室に戻る