w2w2pp - 経済統計練習帳

var sig,mu;
var point=new Array(); 
var a=new Array(); 
var b=new Array(); 
 
function sample(){
 
n = 100;
p = 0.3;
q =1- p;
 
a[0] = 1;
a[1] = n;
for (s = 2; s < n + 1;s++ ){
a[s]=a[s-1]*(n-s+1);    
}
 
b[0] = 1;
    b[1] = 1;
    for (s = 2; s < n + 1;s++ ){
    b[s]=b[s-1]*s;    
    }
 
 
  for(r=0;r<n+1;r++){
 
    p1 = 1;
    for (s = 1; s < r + 1;s++ ){
    p1=p1*p;    
    }
 
    for (s = 1; s < n-r + 1;s++ ){
    p1=p1*q;    
    }
 
 point[r] = a[r] * p1 / b[r];
 }
 
paint(); 
 
}
 
 
 
 
function paint(){
 
var sub=new svgpaint();
 
str="<svg width=\"500\" height=\"500\">";
 
 maxp=0;
 for(s=1;s<101;s++){
if(point[s]>maxp)maxp=point[s];  
} 
 
for(s=1;s<101;s++){
c1=500*point[s]/maxp;        
str=str+sub.rect(5*s,500-c1,5,c1,"red");    
} 
str=str+sub.line(0,0,0,500,3,"blue"); 
str=str+sub.line(500,500,0,500,3,"blue"); 
 
 
 
str=str+"</svg>";
 
$("#memo").html(str);   
 
}