ｍｃｍｃ８ - 経済統計練習帳

var x=new Array();
var y=new Array();
var c=new Array();
var mu,sig;
 
function sample(){
 
th=0.5;
 
    delta=0;
 
var timer;
var delay = 1000;
 
var loop = function () {
 
dth=0.01;
if(Math.random()>0.5)dth=-0.01;
 
th1=th+dth;    
 
for(n=1;n<1001;n++){    
c1=0;    
for(s=1;s<13;s++){
if(Math.random()<th1)c1=c1+1;    
}    
x[n]=c1;
}
 
 
for(s=0;s<13;s++){
y[s]=0;
}
 
 
for(s=1;s<1001;s++){
sx=x[s];
y[sx]=y[sx]+1;    
}  
 
if(y[7]>delta)th=th1;
if(y[7]>delta)delta=y[7];
 
 
paint();
 
    clearTimeout(timer);
    timer = setTimeout(loop, delay);
}
 
loop();    
 
paint();    
 
 
}
 
 
 
function paint(){
 
      var sub=new svgpaint();
 
str="<svg width=\"700\" height=\"700\">";
for(s=0;s<13;s++){
str=str+sub.rect(30*s,500-y[s],30,y[s],"blue");      
if(s==7)str=str+sub.rect(30*s,500-y[s],30,y[s],"red");
}
 
str=str+"</svg>";
$("#memo").html(str);
 
 
 
  }