bkak - 経済統計練習帳

var pos=new Array();
var x=new Array();
var y=new Array();
var mode=new Array();
var number;
var dx=new Array();
var dy=new Array();
var link=new Array();
var number_link=new Array();
 
 
function myFunction() {
 
 
  for(tr=1;tr<500;tr++){
  link[tr]=new Array();
  x[tr]=new Array();
  y[tr]=new Array();
  }
 
 
 mode[1]=1; 
 x[1][1]=2;
 y[1][1]=1;
 x[1][2]=2;
 y[1][2]=3;
 
  dx[1]=1;
  dy[1]=0;
  dx[2]=0;
  dy[2]=1;
  dx[3]=0;
  dy[3]=-1;
  dx[4]=-1;
  dy[4]=0;
 
  dx[5]=1;
  dy[5]=-1;
  dx[6]=-1;
  dy[6]=1;
  dx[7]=1;
  dy[7]=1;
  dx[8]=-1;
  dy[8]=-1;
 
  number=1;
 
  delta=100;
  tr=1;
  for(tr=1;tr<6;tr++){
 
  number_link[tr]=0;
 
 
  for(s=1;s<9;s++){
  m=mode[tr];
  x1=x[tr][1];
  y1=y[tr][1];
  x2=x[tr][2];
  y2=y[tr][2];
  if(m==1)x1=x1+dx[s];
  if(m==1)y1=y1+dx[s];
  if(m==2)x2=x2+dx[s];
  if(m==2)y2=y2+dx[s];
   h=0;  
  if(x1>3)h=100;
  if(x1<1)h=100;
  if(y1>3)h=100;
  if(y1<1)h=100;
  if(x2>3)h=100;
  if(x2<1)h=100;
  if(y2>3)h=100;
  if(y2<1)h=100;
    sxs=0;
    for(sx=1;sx<number+1;sx++){
    h1=0;
    if(x[sx][1]==x1)h1=h1+1;
    if(y[sx][1]==y1)h1=h1+1;
    if(x[sx][2]==x2)h1=h1+1;
    if(y[sx][2]==y2)h1=h1+1;  
    if(mode[sx]==m)h1=0;
    if(h>50)h1=0;
    if(h1==4)sxs=sx;  
    }
 
    if(sxs>0){
    number_link[tr]=number_link[tr]+1;
    z=number_link[tr];
    link[tr][z]=sxs;
    }
 
    if(h>50)sxs=99999;
    if(sxs==0){
    number=number+1;  
    x[number][1]=x1;
    y[number][1]=y1;
    x[number][2]=x2;
    y[number][2]=y2;
    if(m==1)mode[number]=2;
    if(m==2)mode[number]=1;
    number_link[tr]=number_link[tr]+1;
    z= number_link[tr];
    link[tr][z]=number;
    }
 
  }
 
  Logger.log(number_link[tr]+","+number);
  }
 
 
 
}