m98767 - 経済統計練習帳

function sample(){
 
    n = 6;
    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);
 
 
 
}