ポアソン分布 - 経済統計練習帳

var x = new Array();
var d = new Array();
 
function sample(){
 
    lam = 50;
 
    d[0] = 1;
    d[1] = 1;
    for(s=1;s<101;s++){
    d[s]=d[s-1]*s;    
    }
 
 
    for(k=0;k<101;k++){
    z=Math.pow(lam,k)/d[k];
    x[k] = z*Math.exp(-lam);
    }
 
    maxk = 0;
    for (k = 0; k < 101; k++) {
        if (x[k] > maxk) maxk = x[k];
    }
 
    paint();
 
 
}
 
function paint(){
 
 var sub=new svgpaint();
 
str="<svg width=\"500\" height=\"500\">";
 
 
for(s=0;s<101;s++){
x1 = 500 * x[s] / maxk;
str=str+sub.rect(5*s,500-x1,5,x1,"blue");
}
str=str+sub.line(0,0,0,500,4,"black");
str=str+sub.line(0,500,500,500,4,"black");
 
 
str=str+"</svg>";
 
$("#memo").html(str);      
 
 
}