鉄 - 経済統計練習帳

var link_a=new Array();
var link_b=new Array();
var dis=new Array();
var number;
var number_link;
 
function sample(){
 
number=100;
 
for(s=1;s<100;s++){
link_a[s]=s;
link_b[s]=s+1;
dis[s]=1;
}
 
number_link=99;    
 
for(t=1;t<501;t++){
 
n1=number*Math.random();
fast=Math.floor(n1)+1;
 
mid=don(fast);    
 
last=don(mid);    
 
plus(fast,mid,last);    
 
$("#memo").html(number_link);
 
}
 
 
 
}
 
function plus(ff,mm,ll){
 
ch=0;    
 
for(s=1;s<number_link+1;s++){
h=0;
if(link_a[s]==ff)h=h+1;
if(link_b[s]==ll)h=h+1;    
if(h==2)ch=100;
h=0;
if(link_a[s]==ll)h=h+1;
if(link_b[s]==ff)h=h+1;     
if(h==2)ch=100;
}    
 
 
s1=0;    
for(s=1;s<number_link+1;s++){
h=0;
if(link_a[s]==ff)h=h+1;
if(link_b[s]==mm)h=h+1;    
if(h==2)s1=s;
h=0;
if(link_a[s]==mm)h=h+1;
if(link_b[s]==ff)h=h+1;     
if(h==2)s1=s;
}   
 
s2=0;    
for(s=1;s<number_link+1;s++){
h=0;
if(link_a[s]==ll)h=h+1;
if(link_b[s]==mm)h=h+1;    
if(h==2)s2=s;
h=0;
if(link_a[s]==mm)h=h+1;
if(link_b[s]==ll)h=h+1;     
if(h==2)s2=s;
}        
 
 
if(ff==ll)ch=100;    
if(ch<50)number_link=number_link+1;
if(ch<50)link_a[number_link]=ff;    
if(ch<50)link_b[number_link]=ll;    
if(ch<50)dis[number_link]=dis[s1]+dis[s2];     
}
 
function don(nn){
 
var d=new Array();
var number_d;    
var sx,s;    
sx=0;    
for(s=1;s<number_link+1;s++){
if(link_a[s]==nn)sx=sx+1;
if(link_a[s]==nn)d[sx]=link_b[s];    
}    
for(s=1;s<number_link+1;s++){
if(link_b[s]==nn)sx=sx+1;
if(link_b[s]==nn)d[sx]=link_a[s];    
}    
 
number_d=sx;
 
d1=number_d*Math.random();
d2=Math.floor(d1)+1;
 
 
return d[d2];    
}