sanbou - 経済統計練習帳

var life=new Array();
var age=new Array();
var link_a=new Array();
var link_b=new Array();
var number_link;
var point=new Array();
var number;
 
function myFunction() {
 
number=21;  
number_link=0;  
 
  for(s=1;s<22;s++){
  life[s]=100;
  }
 
  tx=0;
  for(s=1;s<7;s++){
  for(sx=1;sx<s+1;sx++){
  tx=tx+1;
  age[tx]=s;   
  }
  }
 
 
 
  sx=0;
  for(s=1;s<48;s++){
  sx=sx+1;
  if(sx>21)sx=1;  
  point[s]=sx;
  }  
 
  for(tp=1;tp<6;tp++){
 
  for(a1=1;a1<7;a1++){
  death(a1);
  }  
 
 
  for(c1=1;c1<48;c1++){
  shuffle(c1);
  }  
  for(c1=1;c1<48;c1++){
  reshuffle(c1);
  }  
 
 
 
 
 
  for(s=1;s<7;s++){
  life[number+s]=100;
age[number+s]=1;
  }
 
 for(cc=1;cc<7;cc++){
 parent(cc+number);
  }
 
 number=number+6;
 
    Logger.log(number);
 
 
 
 
  }
 
 
}
 
function parent(c1){
 
 
var a=new Array();
 
sx=0;  
for(s=1;s<number+1;s++){
if(life[s]>50)sx=sx+1;
if(life[s]>50)a[sx]=s;
}
 
delta=sx;  
 
n1=delta*Math.random();  
n2=Math.floor(n1)+1; 
de=a[n2];
 
number_link=number_link+1;
 
 link_a[number_link]=de;
 link_a[number_link]=c1; 
 
}
 
 
function shuffle(c1){
 
m=point[c1];  
 
var a=new Array();
 
sx=0;  
for(s=1;s<number_link+1;s++){
h=0;
if(link_a[s]==m)h=h+1;
s1=link_b[s];
if(life[s1]>50)h=h+1;
if(h==2) sx=sx+1;
if(h==2)a[sx]=s1;
}
 
delta=sx;  
 
n1=delta*Math.random();  
n2=Math.floor(n1)+1;
de=0;  
if(delta>0)de=a[n2];  
 
if(life[m]<50)point[c1]=de;
 
 
}
 
function reshuffle(c1){
 
m=point[c1];  
 
var a=new Array();
 
sx=0;  
for(s=1;s<number+1;s++){
if(life[s]>50)sx=sx+1;
if(life[s]>50)a[sx]=s;
}
 
delta=sx;  
 
n1=delta*Math.random();  
n2=Math.floor(n1)+1; 
de=a[n2];
 
if(m==0)point[c1]=de;
 
 
}
 
 
 
 
function death(a1){
 
  var a=new Array();
  var b=new Array();
 
  sx=0;
  for(s=1;s<number+1;s++){
  h=0;
  if(age[s]==a1)h=h+1;
  if(life[s]>50)h=h+1;
  if(h==2)sx=sx+1;
  if(h==2)a[sx]=s;
  }
 
  n=sx;
  for(s=1;s<n+1;s++){
  m=0;  
  for(sx=1;sx<48;sx++){
  if(point[sx]==a[s])m=m+1;    
  }
  b[s]=m;
  }
 
  minx=999;
  sx=0;
  for(s=1;s<n+1;s++){
  if(b[s]<minx)sx=s;
  if(b[s]<minx)minx=b[s];
  } 
 
  s1=a[sx];
 
  life[s1]=0;
 
}