仁義なき - 経済統計練習帳

var number_link;
var number;
var namex = new Array();
var link_parent=new Array();
var link_child=new Array();
var link_check=new Array();
var fight,def;
var group=new Array();
 
function sample(){
 
faststep();
 
divide();
 
var mode;    
 
mode=0;
 
while(mode<50){
 
select_fight();
 
select_def();
 
play();
 
divide();
 
if (number_group < 2) mode = 100;
}
 
 
paint();
 
 
 
 
 
}
 
function paint(){
 
    str = "<table>";
 for (s = 1; s < number_link + 1;s++ ){
 if(link_check[s]>50)str=str+"<tr>";
 if(link_check[s]>50)str=str+"<td>";
 s1 = link_parent[s];
 if(link_check[s]>50)str=str+namex[s1];
 if(link_check[s]>50)str=str+"</td>";
 if(link_check[s]>50)str=str+"<td>";
 s1 = link_child[s];
 if(link_check[s]>50)str=str+namex[s1];
 if(link_check[s]>50)str=str+"</td>"; 
 if(link_check[s]>50)str=str+"</tr>";       
 }
 str = str + "</table>";
 
 
        $("#memo").html(str);
}
 
function count(delta){
 
var check_count=new Array();
var s,s1,s2;    
 
for(s=1;s<number+1;s++){    
check_count[s]=0;
}
 
check_count[delta]=100;
 
var tr,cc;    
 
for(tr=1;tr<11;tr++){    
for(s=1;s<number_link+1;s++){    
h=0;
s1=link_parent[s];
s2=link_child[s]; 
cc=check_count[s1];
if(link_check[s]<60)cc=0;    
if(cc>50)check_count[s2]=100;
}    
}    
 
var c1;    
c1=0;
for(s=1;s<number+1;s++){      
if(check_count[s]>50)c1=c1+1;
}    
return c1;
}
 
function play(){
 
var c1,c2;
c1=count(fight);
c2=count(def);   
 
var p1=(c1+c2)*Math.random();
var mat=1;
if(p1>c1)mat=2;
 
 
if(mat==1)rev(def);
if(mat==1)plus(fight,def);   
if(mat==2)rev(fight);
if(mat==2)plus(def,fight);      
 
}    
 
function plus(de1,de2){
 
 
number_link=number_link+1;
link_check[number_link]=100;    
link_parent[number_link]=de1;
link_child[number_link]=de2;    
 
}
 
 
function rev(delta){
 
var s;    
 
for(s=1;s<number_link+1;s++){    
if(link_child[s]==delta)link_check[s]=0;
}    
 
}
 
 
function select_fight(){
 
var n1;    
 
n1=number*Math.random();
fight=Math.floor(n1)+1;
 
}
 
function select_def(){
 
var s,h,sx;
var px=new Array();    
var gs;
 
gs=group[fight];    
 
var number_def;
 
def=0;   
 
sx=0;    
for(s=1;s<number+1;s++){
h=100;
g1=group[s];  
if(g1==gs)h=0;
if(h>50)sx=sx+1;
if(h>50)px[sx]=s;        
}
 
number_def=sx;
 
var n1,n2;    
 
n1=number_def*Math.random();
n2=Math.floor(n1)+1;
 
def=px[n2];       
 
}
 
 
 
 
function search(){
 
var sx;    
 
sx=0;    
for(s=1;s<number+1;s++){    
if(group[s]==0)sx=s;
}
 
return sx;
}
 
 
function divide(){
 
var s,s1,s2,sx;    
var mode_divide;
 
for(s=1;s<number+1;s++){    
group[s]=0;
}
 
var h;    
 
sx=search();    
 
mode_divide=0;    
if(sx==0)mode_divide=100;
number_group=0;    
while(mode_divide<50){    
number_group=number_group+1;
group[sx]=number_group;    
for(tr=1;tr<11;tr++){
for(s=1;s<number_link+1;s++){
s1=link_parent[s];
s2=link_child[s];    
ch=0;    
if(group[s1]==number_group)ch=100;
if(group[s2]==number_group)ch=100;    
if(link_check[s]<50)ch=0;
if(ch>60)group[s1]=number_group;
if(ch>60)group[s2]=number_group;       
}
}
 
sx=search();
if(sx==0)mode_divide=100;
}
 
}
 
 
function faststep(){
 
    namex[1] = "山守";
    namex[2] = "広能";
    namex[3] = "武田";
    namex[4] = "江田";
     namex[5] = "松永";
    namex[6] = "打本";
    namex[7] = "大友";
    namex[8] = "岡島";
    namex[9] = "早川";
    namex[10] = "槙原";
 
number=10;    
number_link=0; 
 
}