tetux - 経済統計練習帳

var link_a=new Array();
var link_b=new Array();
var dis=new Array();
var number;
var number_link;
var point=new Array();
 
function sample(){    
 
var timer;
var delay = 1000;
 
number=100;
 
for(s=1;s<100;s++){
link_a[s]=s;
link_b[s]=s+1;
dis[s]=1;
}
 
number_link=99;    
 
 
var loop = function(){    
 
n1=number*Math.random();
fast=Math.floor(n1)+1;
 
mid=don(fast);    
 
last=don(mid);    
 
plus(fast,mid,last);    
 
count();    
 
paint();
 
 
 
clearTimeout(timer);
timer = setTimeout(loop,delay);
}
 
loop();
 
}
 
function count(){
 
for(s=1;s<number+1;s++){    
point[s]=0;
}
 
for(s=1;s<number_link+1;s++){
s1=link_a[s];
s2=link_b[s];
point[s1]=point[s1]+1;
point[s2]=point[s2]+1;   
}
 
 
}
 
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];    
}
 
function paint(){
 
 var sub=new svgpaint();
 
str="<svg width=\"500\" height=\"500\">";
 
p1=number_link;    
 
for(s=1;s<number+1;s++){    
str=str+sub.rect(5*s,500-20*point[s],5,20*point[s],"blue");
}
str=str+"</svg>";
 
$("#memo").html(str);   
 
}