karou - 経済統計練習帳

var pos=new Array();
var age=new Array();
var number;
var life=new Array();
var postx=new Array();
 
var de=new Array();
 
function sample(){
 
 var vs=new Array();
 
  for(s=0;s<200;s++){
  vs[s]=new Array();
  }
 
  vs[0][99]="";
 
  for(s=1;s<200;s++){
  for(sx=0;sx<100;sx++){
  vs[s][sx]="";
   }}  
 
 
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;    
}   
 
 
  for(s=1;s<number+1;s++){
  sx=pos[s];
  vs[s][1]=postx[sx];
  }  
 
 
 
  for(tm=2;tm<11;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();
 
  for(s=1;s<number+1;s++){
  sx=pos[s];
  if(life[s]>50)vs[s][tm]=postx[sx];  
  }
 
  }
 
 
 idx="1D5K7W-EEfXFb58zs5midXMSXzPVSLTFTtafeH2tevj4";
  ex = SpreadsheetApp.openById(idx);
 
 
 
  var shx = ex.getSheetByName("data");
 
 
  shx.getRange(1,1,200,100).setValues(vs);
 
 
 
}
 
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(s1=1;s1<16;s1++){
  point[s1]=new Array();
    }
 
  for(s1=1;s1<16;s1++){
   for(s2=1;s2<22;s2++){
    point[s1][s2]=1;
  } }
 
 
  for(s1=1;s1<16;s1++){
  point[s1][s1]=100;
  }
  point[1][4]=50;
  point[1][5]=50;
  point[1][6]=50;
 
  point[2][4]=50;
  point[2][5]=50;
  point[2][6]=50;
  point[2][7]=25;
 
 
  point[3][4]=50;
  point[3][5]=50;
  point[3][6]=50;
  point[3][8]=25;
 
  point[4][7]=50;
  point[4][8]=50;
  point[4][9]=25;
 
  point[5][7]=50;
  point[5][8]=50;
  point[5][10]=25;
 
  point[6][7]=50;
  point[6][8]=50;
  point[6][11]=25;
 
  point[7][9]=50;
  point[7][10]=50;
  point[7][11]=50;
 
  point[8][9]=50;
  point[8][10]=50;
  point[8][11]=50;
 
  point[9][12]=50;
  point[9][13]=50;
  point[9][14]=50;
  point[9][15]=50;
 
  point[10][12]=50;
  point[10][13]=50;
  point[10][14]=50;
  point[10][15]=50;
 
 
  point[11][12]=50;
  point[11][13]=50;
  point[11][14]=50;
  point[11][15]=50;
 
 
 
 
 
  var s,sx; 
  sx=0;
  maxp=0;
 
  for(s=1;s<number+1;s++){
    h=0;
   if(life[s]>50)h=h+1;
    if(de[s]>60)h=h+1;  
    s2=pos[s];
    if(point[m][s2]>maxp)h=h+1;
    if(h==3)sx=s;
    if(h==3)maxp=point[m][s2];
  }
 
 
 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;    
}