cobra9 - 経済統計練習帳

var sig=new Array();
var number_sig;
var number; 
 
function f(){
 
number=5;  
 
seek_sig();
 
Logger.log(number_sig);  
 
}
 
 
function seek_sig() {
 
  var a=new Array();
  var ax=new Array();
 
 
 
  k=1;
  for(s=1;s<number+1;s++){
  k=k*number;
  }
 
  for(s=1;s<k+1;s++){
  a[s]=new Array();
  ax[s]=new Array();
  }
 
  tr=1;
 
  for(s=1;s<number+1;s++){
  a[s][tr]=s;
  ax[s][tr]=s;
  }
 
  delta=number;
 
  for(tr=2;tr<number+1;tr++){
 
 
  tx=0;
for(s=1;s<delta+1;s++){
 for(sx=1;sx<number+1;sx++){
  tx=tx+1;  
 for(s1=1;s1<tr;s1++){
 a[tx][s1]=ax[s][s1]   
 }     
 a[tx][tr]=sx;
  }
  }
 
  delta=number*delta;
 
  for(s=1;s<delta+1;s++){
  for(sx=1;sx<tr+1;sx++){
  ax[s][sx]=a[s][sx];
  }}
 
 
}
 
 var ch=new Array();
  var px=new Array();
 
  tx=0;
  for(s=1;s<delta+1;s++){
 
    for(sx=1;sx<number+1;sx++){
    ch[sx]=0;
    }
 
    for(sx=1;sx<number+1;sx++){
    s1=a[s][sx];
   ch[s1]=100;
    }
 
    h=0;
    for(sx=1;sx<number+1;sx++){
    if(ch[sx]<50)h=100;
    }
    if(h<50)tx=tx+1;
     if(h<50)px[tx]=s;
  }
 
 
  number_sig=tx;
  for(s=1;s<number_sig+1;s++){
    sig[s]=new Array();
  }
 
 
for(tr=1;tr<number_sig+1;tr++){  
sx=px[tr];
for(s=1;s<number+1;s++){  
sig[tr][s]=a[sx][s];  
} 
 }    
 
 
 
 
 
 
 
}