しょうぐｎ - 経済統計練習帳

var postx=new Array();
var fam=new Array();
var pos=new Array();
var life=new Array();
var famx=new Array();
var number;
var age=new Array();
 
var ch=new Array();
var chx=new Array();
 
 
function myFunction() {
 
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]="松本代官";    
 
fam[1]="松平";
fam[2]="徳川";
fam[3]="平家";
fam[4]="水戸";
fam[5]="藤原";
fam[6]="一橋";
fam[7]="紀伊";
fam[9]="北条";
fam[8]="柳生";  
fam[10]="近衛";
fam[11]="西園寺";     
fam[15]="北条門";
fam[13]="紀伊門";
fam[14]="柳生門";
fam[12]="一橋門";
fam[17]="西園寺門";
fam[16]="近衛門";
 
 
for(s=1;s<22;s++){
pos[s]=s;
life[s]=100;
}
 
famx[1]=1;
famx[2]=2;
famx[3]=3;
famx[4]=4;
famx[5]=8;
famx[6]=5;
famx[7]=11;
famx[8]=6;  
famx[9]=7;
famx[10]=9;  
famx[11]=10;  
famx[12]=13;
famx[13]=15;
famx[14]=14;
famx[15]=16;
famx[16]=12;
famx[17]=13;
famx[18]=14;  
famx[19]=15;
famx[20]=16;  
famx[21]=17;  
 
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(t=2;t<20;t++){
 
  for(a=1;a<7;a++){
  death(a);
  }
 
 
  for(s=1;s<number+1;s++){
  ch[s]=0;
  if(life[s]<50)ch[s]=100;  
  }
 
for(de=1;de<12;de++){
rev(de);
}
 
 
for(s=1;s<number+1;s++){
 chx[s]=0;
 if(life[s]<50)chx[s]=100;  
 }  
 
for(de=1;de<16;de++){
change(de);
}
 
  for(s=1;s<number+1;s++){
  age[s]=age[s]+1;
  }
 
 
  for(s=1;s<7;s++){
  age[s+number]=1;
  life[s+number]=100;
  famx[s+number]=s+11;
  pos[s+number]=15+s;  
  }
 
  number=number+6;
 
 
 
 
  id="14Jkwy0Z9yTJGUGQDmwbhlQoKBlRJBvPBjSNzy7uCkWo";
  ex = SpreadsheetApp.openById(id);
 
  var sheet = ex.getSheetByName("data");
 
  var don=new Array();
 
  for(s=1;s<number+1;s++){
  don[s-1]=new Array();
  }
 
 for(s=1;s<number+1;s++){
  s1=pos[s];
  s2=famx[s];  
  don[s-1][0]="";   
 if(life[s]>50)don[s-1][0]=fam[s2]+postx[s1];
  }
 
 
  sheet.getRange(1,t,number,1).setValues(don);
  }
 
}
 
function change(de){
 
var point=new Array();
 
  for(s=1;s<16;s++){
  point[s]=new Array();  
  }
 
  for(s=1;s<16;s++){
  for(sx=1;sx<18;sx++){
  point[s][sx]=1;  
  }}
 
 
  point[1][1]=100;
  point[2][2]=100;
  point[3][3]=100;
  point[3][5]=50;
 
  point[4][4]=100;
  point[4][6]=50;
  point[4][7]=50;
 
  point[5][3]=100;
  point[5][8]=50;
  point[5][9]=50;
 
  point[6][5]=100;
  point[6][10]=100;
  point[6][11]=100;
 
  point[7][6]=100;
  point[7][7]=100;
  point[7][8]=100;
  point[7][9]=100;
  point[7][10]=100;
  point[7][11]=100;
 
  point[8][6]=100;
  point[8][7]=100;
  point[8][8]=100;
  point[8][9]=100;
  point[8][10]=100;
  point[8][11]=100;
 
 
  point[9][6]=100;
  point[9][7]=100;
  point[9][12]=50;
  point[9][13]=50;
 
  point[10][8]=100;
  point[10][9]=100;
  point[10][14]=50;
  point[10][15]=50;
 
point[11][10]=100;
  point[11][11]=100;
  point[11][16]=50;
  point[11][17]=50;
 
  point[12][6]=100;
  point[12][7]=100;
  point[12][8]=100;
  point[12][9]=100;
  point[12][10]=100;
  point[12][11]=100;
 
  point[13][6]=100;
  point[13][7]=100;
  point[13][8]=100;
  point[13][9]=100;
  point[13][10]=100;
  point[13][11]=100;
 
  point[14][6]=100;
  point[14][7]=100;
  point[14][8]=100;
  point[14][9]=100;
  point[14][10]=100;
  point[14][11]=100;
 
  point[15][6]=100;
  point[15][7]=100;
  point[15][8]=100;
  point[15][9]=100;
  point[15][10]=100;
  point[15][11]=100;
 
  sx=0;
  maxp=0;
  for(s=1;s<number+1;s++){
  h=0;
  if(life[s]>50)h=h+1;
  if(chx[s]<50)h=h+1;  
  s1=famx[s];
  s2=pos[s];  
  p1=point[de][s1]+(22-s2);  
 
 if(p1>maxp)h=h+1;
 if(h==3)maxp=p1;
 if(h==3)sx=s;   
  }
 
  chx[sx]=100;
  pos[sx]=de;
 
 
 
}
 
 
function rev(de){
 
var point=new Array();
 
  for(s=1;s<16;s++){
  point[s]=new Array();  
  }
 
  for(s=1;s<16;s++){
  for(sx=1;sx<18;sx++){
  point[s][sx]=1;  
  }}
 
 
  point[1][1]=100;
  point[1][2]=50;
  point[1][3]=50;
 
  point[2][2]=100;
  point[2][4]=50;
  point[2][5]=50;
 
  point[3][3]=100;
  point[3][8]=50;
  point[3][9]=50;
 
 
  point[4][4]=100;
  point[4][6]=50;
  point[4][7]=50;
 
  point[6][6]=100;
  point[6][12]=50;
  point[7][7]=100;
  point[7][13]=50;
  point[8][8]=100;
  point[8][14]=50;
  point[9][9]=100;
  point[9][15]=50;
  point[10][10]=100;
  point[10][16]=50;
  point[11][11]=100;
  point[11][17]=50;
 
  sx=0;
  maxp=0;
  for(s=1;s<number+1;s++){
  h=0;
  if(life[s]>50)h=h+1;
  if(ch[s]<50)h=h+1;  
  s1=famx[s];
  s2=pos[s];  
  p1=point[de][s1]+(22-s2);  
 
 if(p1>maxp)h=h+1;
 if(h==3)maxp=p1;
 if(h==3)sx=s;   
  }
 
  ch[sx]=100;
  famx[sx]=de;
 
 
 
}
 
 
 
 
 
 
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;    
}