おうｈ - 経済統計練習帳

var fam=new Array();
var postx=new Array();
var pos=new Array();
var age=new Array();
var life=new Array();
var number;
var memo=new Array();
 
function sample(){
 
 for(s=1;s<200;s++){   
    memo[s]=new Array();
}
 
    for(s=1;s<200;s++){
for(sx=1;sx<7;sx++){    
memo[s][sx]="";
    }
}
 
fam[1]="徳川";
fam[2]="平家";
fam[3]="松平";
fam[4]="水戸";
fam[5]="柳生";
fam[6]="藤原";
fam[7]="西園寺";
fam[8]="一橋";
fam[9]="紀伊";
fam[10]="北条";
fam[11]="近衛";
fam[12]="北条";
fam[13]="紀伊";
fam[14]="近衛";
fam[15]="柳生";
fam[16]="一橋";
fam[17]="紀伊";
fam[18]="北条";
fam[19]="柳生";
fam[20]="近衛";
fam[21]="西園寺";
 
 
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]="松本代官";    
 
for(s=1;s<22;s++){
pos[s]=s;
life[s]=100;
}
 
 
tx=0;    
for(s=1;s<7;s++){
for(sx=1;sx<s+1;sx++){
tx=tx+1;
age[tx]=7-s;    
}
}
 
number=21;
 
for(tr=1;tr<11;tr++){
 
for(a1=1;a1<7;a1++){
death(a1);
}
 
change();
 
rep();
 
fresh();
 
 
for(s=1;s<number+1;s++){
sx=age[s];    
memo[s][sx]="";
tx=pos[s];
if(life[s]>50)memo[s][sx]=fam[s]+postx[tx];    
}
 
 
}
 
paint();
 
 
 
 
 
 
 
 
 
}
 
 
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;
}   
 
fam[number+1]="紀伊";
fam[number+2]="一橋";
fam[number+3]="北条";
fam[number+4]="柳生";
fam[number+5]="西園寺";
fam[number+6]="近衛";
 
number=number+6;
 
 
}
 
function paint(){
 
var str;
 
str="<table>";
for(s=1;s<number+1;s++){
str=str+"<tr>";      
for(sx=1;sx<7;sx++){   
str=str+"<td>";
str=str+memo[s][sx];    
str=str+"</td>";            
}
str=str+"</tr>";
}
str=str+"</table>";   
 
$("#memo").html(str);    
 
 
}
 
 
 
function rep(){
 
 
    var point=new Array();
 
    for(s=1;s<12;s++){
    point[s]=new Array();    
    }
 
     for(s=1;s<12;s++){
    for(sx=1;sx<16;sx++){
        point[s][sx]=1;
        }}
 
    /*将軍*/
 
    point[2][1]=1000;
 
    /*大老*/
 
    point[4][2]=1000;
    point[5][2]=1000;
 
     /*駿河*/
 
    point[1][3]=1000;
 
    /*藩主*/
 
    point[3][4]=1000;
    point[6][4]=500;
    point[7][4]=500;
 
    point[4][5]=1000;
    point[8][5]=500;
    point[9][5]=500;
 
    point[5][6]=1000;
    point[10][6]=500;
    point[11][6]=500;
 
    /*老中*/
 
    point[6][7]=1000;
    point[8][7]=1000;
    point[10][7]=1000;
 
    point[7][8]=1000;
    point[9][8]=1000;
    point[11][8]=1000;
 
    /*守護*/
 
    point[6][9]=1000;
    point[7][9]=1000;
    point[8][10]=1000;
    point[9][10]=1000;
    point[10][11]=1000;
    point[11][11]=1000;
 
    /*奉行*/
 
    point[6][12]=1000;
    point[8][12]=1000;
    point[10][12]=1000;
    point[6][13]=1000;
    point[8][13]=1000;
    point[10][13]=1000;
 
 
    /*奉行*/
 
    point[7][14]=1000;
    point[9][14]=1000;
    point[11][14]=1000;
    point[7][15]=1000;
    point[9][15]=1000;
    point[11][15]=1000;
 
    var ch=new Array();
 
    for(s=1;s<number+1;s++){
    ch[s]=0;
    }
 
    var maxpoint,sx;
 
for(r=1;r<16;r++){
maxpoint=-999;
sx=0;
for(s=1;s<number+1;s++){
p1=22-pos[s];
f1=1;
if(fam[s]=="松平")f1=1;
if(fam[s]=="徳川")f1=2;
if(fam[s]=="水戸")f1=3;
if(fam[s]=="平家")f1=4;
if(fam[s]=="藤原")f1=5;
if(fam[s]=="紀伊")f1=6;
if(fam[s]=="一橋")f1=7;
if(fam[s]=="北条")f1=8;
if(fam[s]=="柳生")f1=9;
if(fam[s]=="西園寺")f1=10;
if(fam[s]=="近衛")f1=11;
p1=p1+point[f1][r];
if(life[s]<50)p1=0;
h=0;
if(p1>maxpoint)h=h+1;
if(ch[s]<50)h=h+1;
if(h==2)maxpoint=p1;
if(h==2)sx=s;
}        
ch[sx]=100;
pos[sx]=r;
}    
 
 
 
}
 
 
 
function change(){
 
    maxp=0;
    sx=0;
for(s=1;s<number+1;s++){
p1=22-pos[s];
if(fam[s]=="松平")p1=1000+p1;
if(fam[s]=="徳川")p1=500+p1;
if(fam[s]=="平家")p1=500+p1;
if(life[s]<50)p1=0;
if(p1>maxp)sx=s;
if(p1>maxp)maxp=p1;
}
 
fam[sx]="松平";
 
 maxp=0;
    sx=0;
for(s=1;s<number+1;s++){
p1=22-pos[s];
if(fam[s]=="徳川")p1=1000+p1;
if(fam[s]=="水戸")p1=500+p1;
if(fam[s]=="藤原")p1=250+p1;
if(life[s]<50)p1=0;
if(p1>maxp)sx=s;
if(p1>maxp)maxp=p1;
}
 
fam[sx]="徳川";
 
maxp=0;
sx=0;
for(s=1;s<number+1;s++){
p1=22-pos[s];
if(fam[s]=="平家")p1=1000+p1;
if(fam[s]=="北条")p1=500+p1;
if(fam[s]=="柳生")p1=500+p1;
if(life[s]<50)p1=0;
if(p1>maxp)sx=s;
if(p1>maxp)maxp=p1;
}
 
fam[sx]="平家";
 
maxp=0;
sx=0;
for(s=1;s<number+1;s++){
p1=22-pos[s];
if(fam[s]=="藤原")p1=1000+p1;
if(fam[s]=="近衛")p1=500+p1;
if(fam[s]=="西園寺")p1=500+p1;
if(life[s]<50)p1=0;
if(p1>maxp)sx=s;
if(p1>maxp)maxp=p1;
}
 
fam[sx]="藤原";
 
 
maxp=0;
sx=0;
for(s=1;s<number+1;s++){
p1=22-pos[s];
if(fam[s]=="水戸")p1=1000+p1;
if(fam[s]=="一橋")p1=500+p1;
if(fam[s]=="紀伊")p1=500+p1;
if(life[s]<50)p1=0;
if(p1>maxp)sx=s;
if(p1>maxp)maxp=p1;
}
 
fam[sx]="水戸";
 
 
 
 
}
 
 
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;    
}