VC++講義第１部へ
vb講義へ
ＶＢ講義基礎へ
初心者のための世界で一番わかりやすいVisual C++入門基礎講座
初心者のための世界で一番わかりやすいVisual Basic入門基礎講座
第２８講 細胞構成法による魔方陣の作成△
第15話 細胞構成法完成の解説その１
コード再掲
#pragma once
#include<stdlib.h>
int n;
int
a1[20][20],a2[20][20],a3[20][20],mah[20][20],p[20][20],cn1[20],cn2[20];
int x[400],y[400];
int s;
char
sbr[24][2][2];
char sb[2][2];
char sx[4],sy[4];
char
cn;
・
・
・
#pragma
endregion
private: System::Void button1_Click(System::Object^ sender,
System::EventArgs^ e)
{
label2->Text=L"";
DateTime^
hj=DateTime::Now;
n=int::Parse(textBox1->Text);
char
h=1;
if(n<3 || n>14 ||
n%2==0){
label2->Text=L"TextBoxには３以上１１以下の奇数\r\nを入力し再度実行ボタンを\r\n押して下さい。";
h=0;
}
if(h==1){
s=0;
if(n%2==1)g1(n);
if(n%2==0)g2(n);
syokika();
cn=0;
zhy();
sbs(0);
sbg(0);
array<String^>^
w=gcnew array<String^>(15);
int
i;
w[9]=(2*n).ToString();w[10]=L"次";w[11]=L"魔";w[12]=L"方";w[13]=L"陣";w[14]=s.ToString();
for(i=0;i<8;i++)w[i]=L"";
dataGridView1->Rows->Add(w);
DateTime^
ow=DateTime::Now;
TimeSpan
sa=ow->Subtract(*hj);
w[9]=L"時";w[10]=L"間";w[11]=L"計";w[12]=L"則";w[13]=L"：";w[14]=(sa.TotalSeconds).ToString();
for(i=0;i<9;i++)w[i]=L"";
dataGridView1->Rows->Add(w);
}
}
・
・
・
void
sbg(int g){
if(s==200)return;
int
i,j,k,h,w,ii,iii;
ii=rand()%24;
for(i=0;i<24;i++){
iii=(ii+i)%24;
for(j=0;j<2;j++){
for(k=0;k<2;k++){
a3[2*y[g]+j][2*x[g]+k]=sbr[iii][j][k];
}
}
h=1;
if(g==n-1){
w=0;
for(j=0;j<2*n;j++){
w+=a3[j][j];
}
if(w!=5*n)h=0;
}
if(h==1){
if(g==2*n-2){
w=0;
for(j=0;j<2*n;j++){
w+=a3[j][2*n-1-j];
}
if(w!=5*n)h=0;
}
}
if(h==1){
if(y[g]==0
&&
x[g]==n-2){
for(j=0;j<2;j++){
w=0;
for(k=0;k<2*n;k++){
w+=a3[2*y[g]+j][k];
}
if(w!=5*n){
h=0;
break;
}
}
}
}
if(h==1){
if(x[g]==0
&&
y[g]==n-2){
for(j=0;j<2;j++){
w=0;
for(k=0;k<2*n;k++){
w+=a3[k][2*x[g]+j];
}
if(w!=5*n){
h=0;
break;
}
}
}
}
if(h==1){
if(g>2*n-2
&&
x[g]==n-1){
for(j=0;j<2;j++){
w=0;
for(k=0;k<2*n;k++){
w+=a3[2*y[g]+j][k];
}
if(w!=5*n){
h=0;
break;
}
}
}
}
if(h==1){
if(g>2*n-2
&&
y[g]==n-1){
for(j=0;j<2;j++){
w=0;
for(k=0;k<2*n;k++){
w+=a3[k][2*x[g]+j];
}
if(w!=5*n){
h=0;
break;
}
}
}
}
if(h==1){
if(g==n*n-2){
for(j=0;j<2;j++){
w=0;
for(k=0;k<2*n;k++){
w+=a3[k][2*x[g]+j];
}
if(w!=5*n){
h=0;
break;
}
}
}
}
if(h==1){
if(g==n*n-1){
for(j=0;j<2;j++){
w=0;
for(k=0;k<2*n;k++){
w+=a3[2*y[g]+j][k];
}
if(w!=5*n){
h=0;
break;
}
}
}
}
if(h==1){
if(g+1<n*n){
sbg(g+1);
}
else{
if(n!=3 )f0(0);
if(n==3)f1(0);
}
}
}
}
・
・
・
void f00(int
g){
if(s==200)return;
・
・
・
if(h==1){
if(g+1<n){
f00(g+1);
}
else{
for(j=1;j<n;j++){
for(k=0;k<n;k++){
l=(3*j+k)%n;
a2[j][l]=a2[0][k];
}
}
for(j=0;j<n;j++){
for(k=0;k<n;k++){
for(l=0;l<2;l++){
for(o=0;o<2;o++){
mah[2*j+l][2*k+o]=4*(n*a1[j][k]+a2[j][k])+a3[2*j+l][2*k+o];
}
}
}
}
array<String^>^
w=gcnew
array<String^>(15);
for(j=0;j<2*n;j++){
for(k=0;k<2*n;k++){
w[k]=(mah[j][k]).ToString();
}
dataGridView1->Rows->Add(w);
}
for(j=0;j<15;j++)w[j]=L"";
dataGridView1->Rows->Add(w);
s++;
if(s==200)return;
}
}
}
}
・
・
・
void
f2(int
g){
if(s==200)return;
・
・
・
if(g<n*n-1){
f2(g+1);
}
else{
for(j=0;j<n;j++){
for(k=0;k<n;k++){
for(l=0;l<2;l++){
for(o=0;o<2;o++){
mah[2*j+l][2*k+o]=4*(n*a1[j][k]+a2[j][k])+a3[2*j+l][2*k+o];
}
}
}
}
array<String^>^
w=gcnew
array<String^>(15);
for(j=0;j<2*n;j++){
for(k=0;k<2*n;k++){
w[k]=(mah[j][k]).ToString();
}
dataGridView1->Rows->Add(w);
}
for(j=0;j<15;j++)w[j]=L"";
dataGridView1->Rows->Add(w);
s++;
if(s==200)return;
}
・
・
・
第13話で予告した細胞の合成の訂正から説明します。
if(h==1){
if(g==n*n-2){
for(j=0;j<2;j++){
w=0;
for(k=0;k<2*n;k++){
w+=a3[k][2*x[g]+j];
}
if(w!=5*n){
h=0;
break;
}
}
}
}
if(h==1){
if(g==n*n-1){
for(j=0;j<2;j++){
w=0;
for(k=0;k<2*n;k++){
w+=a3[2*y[g]+j][k];
}
if(w!=5*n){
h=0;
break;
}
}
}
}
これが追加した部分です。
どうして必要なのでしょうか。
| * | * | * | * | * |
| * | * | * | * | * |
| * | * | * | * | * |
| * | * | * | * | * |
| * | * | * | * | * |
| * | * | * | * | * |
| * | * | * | * | * |
| * | * | * | * | * |
| * | * | * | * | * |
| * | * | * | * | * |
まず、
| * | * | * | * | * |
| * | * | * | * | * |
| * | * | * | * | * |
| * | * | * | * | * |
| * | * | * | * | * |
については、赤に細胞が埋め込まれた段階（(g==n*n-2は最後から2番目のセルを意味します。）で
if(h==1){
if(g==n*n-2){
for(j=0;j<2;j++){
w=0;
for(k=0;k<2*n;k++){
w+=a3[k][2*x[g]+j];
}
if(w!=5*n){
h=0;
break;
}
}
}
}
最終列
| * | * | * | * | * |
| * | * | * | * | * |
| * | * | * | * | * |
| * | * | * | * | * |
| * | * | * | * | * |
の合計が５＊ｎになっているかを知ればなければなりません。
ここのチェックは実はどこでも行われていなかったかです。
一般種法や末項確定法ではここの確認は必要がありませんでした。
なぜならたのすべての列の合計がすべて同じになるなら、
自動的に最終列も同じになることが明らかだからです。
ところが細胞の組み込みによって行われている細胞構成法の場合、
他の列がすべて条件を満たしても、最後の列が満たさない場合もあるのです。
| * | * | * | * | * |
| * | * | * | * | * |
| * | * | * | * | * |
| * | * | * | * | * |
| * | * | * | * | * |
については赤が埋まった段階で
| * | * | * | * | * |
| * | * | * | * | * |
| * | * | * | * | * |
| * | * | * | * | * |
| * | * | * | * | * |
最終行の合計を確認しなければなりません。
理由は列の場合と同じで、他の行ですべて合計が同じでも最終行の合計が異なっている場合があるからなのです。
という訳で
if(h==1){
if(g==n*n-1){
for(j=0;j<2;j++){
w=0;
for(k=0;k<2*n;k++){
w+=a3[2*y[g]+j][k];
}
if(w!=5*n){
h=0;
break;
}
}
}
}
が必要なわけです。g==n*n-1は最後のセルでしたね。
第14話へ 第16話へ
VC++講義第１部へ
vb講義へ
ＶＢ講義基礎へ
初心者のための世界で一番わかりやすいVisual C++入門基礎講座
初心者のための世界で一番わかりやすいVisual
Basic入門基礎講座
