第28講 細胞構成法による魔方陣の作成△

第11話 
細胞構成法の完成

コード例
#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には3以上11以下の奇数\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;
          }
             ・
             ・
             ・

実行例
入門

入門
初心者(実行例は、if(s==2000)return;としてます。)
参考ファイルForm1.h

1個あたり10.1÷2000=0.0051秒という驚異的なスピードで、14次魔方陣を作り出しています。
1秒で約200個も作り出してしまうのです。
パソコンでもこれだけの性能があるのです。



第10話へ
第12話へ

戻る

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