nmi88 - 経済統計練習帳

var pos=new Array();
var age=new Array();
var number;
var life=new Array();
var postx=new Array();
var fam=new Array(); 
var de=new Array();
 
function sample(){
 
 var vs=new Array();
 
  for(s=0;s<200;s++){
  vs[s]=new Array();
  fam[s]=new Array();
  }
 
  vs[0][99]="";
 
  for(s=1;s<200;s++){
  for(sx=0;sx<100;sx++){
  vs[s][sx]="";
  fam[s][sx]=0;
  }}  
 
 
postx[0]="";    
postx[1]="将軍";
postx[2]="大老";
postx[3]="駿河城代";
postx[4]="美濃藩主";
postx[5]="伊勢藩主";
postx[6]="信濃藩主";
postx[7]="老中";
postx[8]="駿河老中";
postx[9]="美濃守護";
postx[10]="伊勢守護";
postx[11]="信濃守護";
postx[12]="勘定奉行";
postx[13]="町奉行";
postx[14]="寺社奉行 ";
postx[15]="外国奉行";
postx[16]="美濃代官";
postx[17]="大垣代官";
postx[18]="伊勢代官";
postx[19]="松坂代官";
postx[20]="信濃代官";
postx[21]="松本代官";    
 
number=21;
 
 
 
 
tx=0;    
for(s=1;s<7;s++){
for(sx=1;sx<s+1;sx++){
tx=tx+1;
age[tx]=7-s;    
}
}
 
for(s=1;s<number+1;s++){
pos[s]=s;   
}     
 
 
for(s=1;s<number+1;s++){
life[s]=100;    
}   
 
 
dir();  
 
  for(s=1;s<number+1;s++){
  sx=pos[s];
  vs[s][1]=postx[sx];
  }  
 
 
 
  for(tm=2;tm<21;tm++){
 
  for(a1=1;a1<7;a1++){
  death(a1);
  }
 
  for(s=1;s<number+1;s++){
  de[s]=100;
  if(life[s]<50)de[s]=0;  
  }
 
 
  for(m=1;m<16;m++){
  change(m); 
  }
 
fresh();
 
    dir();
 
  for(s=1;s<number+1;s++){
  sx=pos[s];
  if(life[s]>50)vs[s][tm]=postx[sx];  
  }
 
  }
 
 
 idx="1N6U_WKoinhhXL26ZpoCJ7We85sXztMIseLitE6vBu7E";
  ex = SpreadsheetApp.openById(idx);
 
 
 
  var shx = ex.getSheetByName("data");
 
 
  shx.getRange(1,1,200,100).setValues(vs);
 
 
 
}
function dir(){
 
  for(s=1;s<number+1;s++){
  sx=pos[s];
     if(sx==2)fam[s][1]=100;
  if(sx==3)fam[s][2]=100; 
 
   if(sx==4)fam[s][3]=100;
   if(sx==5)fam[s][4]=100;
   if(sx==6)fam[s][5]=100;
 
    if(sx==7)fam[s][1]=100;
   if(sx==8)fam[s][2]=100;
 
   if(sx==9)fam[s][3]=100;
   if(sx==10)fam[s][4]=100;
   if(sx==11)fam[s][5]=100;
 
  if(sx==12)fam[s][1]=100;
  if(sx==13)fam[s][1]=100; 
  if(sx==14)fam[s][2]=100;
  if(sx==15)fam[s][2]=100;   
  if(sx==16)fam[s][3]=100;
  if(sx==17)fam[s][3]=100; 
  if(sx==18)fam[s][4]=100;
  if(sx==19)fam[s][4]=100; 
     if(sx==20)fam[s][5]=100;
  if(sx==21)fam[s][5]=100; 
 
  }
 
}  
 
 
function fresh(){
 
for(s=1;s<number+1;s++){
age[s]=age[s]+1;
}
 
for(s=number+1;s<number+7;s++){
age[s]=1;
life[s]=100;
}
 
 
v=15;    
for(s=number+1;s<number+7;s++){
v=v+1;
pos[s]=v;
}   
 
number=number+6;
 
 
}
 
 
function change(m){
 
  var point=new Array();
 
 
  for(s=1;s<number+1;s++){
  point[s]=0;
  }
 
   for(s=1;s<number+1;s++){
 sx=pos[s];
     if(m==1)point[s]=22-sx;
 
     h=0;
     if(m==1)h=h+1;
     if(sx==2)h=h+1;
     if(h==2)point[s]=0;
 
     h=0;
     if(m==1)h=h+1;
     if(sx==3)h=h+1;
     if(h==2)point[s]=0;
 
 
     h=0; 
 if(m==2)h=h+1;
 if(fam[s][1]>50)h=h+1;
 if(h==2)point[s]=22-sx; 
 
 h=0; 
 if(m==3)h=h+1;
 if(fam[s][2]>50)h=h+1;
 if(h==2)point[s]=22-sx; 
 
 h=0; 
 if(m==4)h=h+1;
 if(fam[s][3]>50)h=h+1;
 if(h==2)point[s]=22-sx; 
 
 h=0; 
 if(m==5)h=h+1;
 if(fam[s][4]>50)h=h+1;
 if(h==2)point[s]=22-sx; 
 
  h=0; 
 if(m==6)h=h+1;
 if(fam[s][5]>50)h=h+1;
 if(h==2)point[s]=22-sx; 
 
   h=0; 
 if(m==7)h=h+1;
 if(fam[s][1]>50)h=h+1;
 if(h==2)point[s]=22-sx; 
 
    h=0; 
 if(m==8)h=h+1;
 if(fam[s][2]>50)h=h+1;
 if(h==2)point[s]=22-sx; 
 
     h=0; 
 if(m==9)h=h+1;
 if(fam[s][3]>50)h=h+1;
 if(h==2)point[s]=22-sx; 
 
      h=0; 
 if(m==10)h=h+1;
 if(fam[s][4]>50)h=h+1;
 if(h==2)point[s]=22-sx; 
 
 
 h=0; 
 if(m==11)h=h+1;
 if(fam[s][5]>50)h=h+1;
 if(h==2)point[s]=22-sx; 
 
 if(m>11)point[s]=22-sx;
}
 
 
  var s,sx; 
  sx=0;
  maxp=-999;
 
  for(s=1;s<number+1;s++){
    h=0;
   if(life[s]>50)h=h+1;
    if(de[s]>60)h=h+1;  
    if(point[s]>maxp)h=h+1;
    if(h==3)sx=s;
    if(h==3)maxp=point[s];
  }
 
 
 pos[sx]=m;
 de[sx]=0;
 
 
 
}
 
 
 
function death(aa){
 
var xx=new Array();
 
var n;
n=0;
for(s=1;s<number+1;s++){
h=0;
if(life[s]>50)h=h+1;
if(age[s]==aa)h=h+1;    
if(h==2)n=n+1;
if(h==2)xx[n]=s;    
}
 
m1=n*Math.random();
m2=Math.floor(m1)+1;
m3=xx[m2];    
life[m3]=0;    
}