v655p - 経済統計練習帳

var a = new Array();
var b = new Array();
var point = new Array();
 
function sample() {
 
n = 2;
p = 0.5;
q = 0.5;
 
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];
 }
 
 p1 = 0;
 for (r = 0; r < n + 1;r++ ){
 p1=p1+point[r]*r;    
 }
 
 
     $("#memo").html(p1);
 
 
}