ぼヴ - 経済統計練習帳

<!DOCTYPE html>
<html lang="ja">
    <head>
        <meta charset="utf-8" />
        <script src="sample.js"></script>
        <script src="jquery.js"></script>
        <title>信長の野望</title>
    </head>
    <body onload="sample()">
        <p id="memo"></p>
    </body>
</html>
 
 
var postx=new Array();
var pos=new Array();
var life=new Array();
var ch=new Array();
var delta=new Array();
function sample(){
 
 t=1;
   number=21;
 
 for(s=1;s<number+1;s++){
 pos[s]=new Array();    
 pos[s][1]=s;
 life[s]=100;
 }
 
    faststep();
 
   for(tr=1;tr<51;tr++){
 
   death();
 
    for(s=1;s<number+1;s++){
    ch[s]=0;
    if(life[s]<50)ch[s]=100;
    }
 
 
    for(nx=1;nx<21;nx++){
   select(nx);     
    }
 
 
    for(s=1;s<number+1;s++){ 
    pos[s][t+1]=0;
    }
 
    for(p=1;p<21;p++){
    sx=delta[p];    
    pos[sx][t+1]=p;
    }
 
    t=t+1;
    number=number+1;
    pos[number]=new Array();
    for(s=1;s<t;s++){
    pos[number][s]=0;    
    }
    pos[number][t]=21;
    life[number]=100;
 
 
 
  paint();
 
   }
 
 
}
function select(nx){
 
var z=0;    
for(s=1;s<number+1;s++){
h=0;
if(pos[s][t]==nx)h=h+1;
if(life[s]>50)h=h+1;
if(ch[s]<50)h=h+1;
if(h==3)delta[nx]=s;        
if(h==3)ch[s]=100;   
if(h==3)z=100;
}    
 
 
if(z<50){
 
var a=new Array();
    sx=0;
    var s,sx;
    for(s=1;s<number+1;s++){
    if(ch[s]<50)sx=sx+1;    
    if(ch[s]<50)a[sx]=s;  
        }
 
 
 
    n1=sx*Math.random();
    n2=Math.floor(n1)+1;
    n3=a[n2];
 
 
    ch[n3]=100;
    delta[nx]=n3;
 
}
 
 
}
 
 
function death(){
 
    var s,sx;
    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;  
    }
 
    n1=sx*Math.random();
    n2=Math.floor(n1)+1;
    n3=a[n2];
 
 
    life[n3]=0;
 
 
 
}
 
 
 
function paint(){
 
 
str="<table>";
str=str+"<tr>";
for(sx=1;sx<t+1;sx++){
str=str+"<th>"+sx+"期</th>";
}
str=str+"</tr>";
for(s=1;s<number+1;s++){
str=str+"<tr>";
for(sx=1;sx<t+1;sx++){
s1=pos[s][sx];
str=str+"<td>"+postx[s1]+"</td>"; 
}
}
str=str+"</tr>";
str=str+"</table>";
 
 $("#memo").html(str);
 
 
}
 
 
function faststep(){
 
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]="松本代官";
 
}