第１８講　一般種法×末項確定法（魔方陣作成マクロVer.4）への挑戦

第２話　結婚の条件

0 4 2 0 4
0 3 3 1 3
4 0 2 3 1
4 1 0 4 1
2 2 3 2 1


3 3 0 2 2
0 2 4 3 1
0 1 2 3 4
4 0 4 1 1
3 4 0 1 2



















結婚の条件は、二つの種が直交することです。
では、二つの種が直交するとは何でしょうか。
それは、前者をｘ座標、後者をy座標としてそこに碁石をおいていったとき、
碁石が重複することなくすべてに碁石がおけることです。
つまり、
（０，３）、（４，３）、（２，０）、・・・、（１，２）に碁石をおいていって重複がなければよいのです。

　０ 　１ 　２ 　3 　４
０ ○ ○ ○ ○ ○
１ ○ ○ ○ ○ ○
２ ○ ○ ○ ○ ○
３ ○ ○ ○ ○ ○
４ ○ ○ ○ ○ ○


さて、もう一つの留意点についてお話ししましょう。

第16講　魔方陣の作成の高速化（数万倍へ）以降ｇの番号付けは

０ １ ２ ３
０ ０ ８ ９ ４
１ １０ １ ５ １１
２ １２ ６ ２ １３
３ ７ １４ １５ ３



０ １ ２ ３ 4
０ ０ ９ １０ １１ ５
１ １２ １ １３ ６ １４
２ １５ １６ ２ １７ １８
３ １９ ７ ２０ ３ ２１
4 ８ ２２ ２３ ２４ ４





















でしたが、効率よく検索するためには番号付けを次のように変更しなければなりません。

０ １ ２ ３
０ ０ ８ ９ ４
１ １０ １ ５ １２
２ １１ ６ ２ １４
３ ７ １３ １５ ３



０ １ ２ ３ 4
０ ０ ９ １０ １１ ５
１ １２ １ １５ ６ １６
２ １３ １７ ２ １９ ２０
３ １４ ７ ２１ ３ ２３
4 ８ １８ ２２ ２４ ４





















（紺はｙ、赤はｘに、ピンクはｉに対応）

これは超難問です。
ですが、前に


０ １ ２ ３
０ ０ ８ ９ ４
１ １０ １ ５ １１
２ １２ ６ ２ １３
３ ７ １４ １５ ３



０ １ ２ ３ 4
０ ０ ９ １０ １１ ５
１ １２ １ １３ ６ １４
２ １５ １６ ２ １７ １８
３ １９ ７ ２０ ３ ２１
4 ８ ２２ ２３ ２４ ４

を作ったときに仮屋﨑さんの天才的方法を
使えば出来ます。
さらに、もう一つヒントを付け加えましょう。
対角線の後は行と列を交互に進みます。
ですから、Ｓｕｂプロシージャを３つ用意します。
１つめは、対角線用でこれは末項確定法と基本的に同じです。
２つめは行専用、３つめは列専用です。
そして、２つめと３つめは同じことを繰り返しますから、
Subプロシージャの再帰的使用を利用するとよいでしょう。
配列a(12,12)はグローバル配列にしましょう。




















第１話へ　第３話へ

004　　

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

数学研究室に戻る