v5554p - 経済統計練習帳

var a = new Array();
var b = new Array();
 
function sample(){
 
n = 5;
r = 3;
p = 0.5;
q = 0.5;
 
a[1] = n;
for (s = 2; s < r + 1;s++ ){
a[s]=a[s-1]*(n-s+1);    
}
 
    b[1] = 1;
    for (s = 2; s < r + 1;s++ ){
    b[s]=b[s-1]*s;    
    }
 
    p1 = 1;
    for (s = 1; s < r + 1;s++ ){
    p1=p1*p;    
    }
 
    for (s = 1; s < n-r + 1;s++ ){
    p1=p1*q;    
    }
 
 
    p1 = a[r] * p1 / b[r];
 
 
 
        $("#memo").html(p1);
 
 
 
}