ｂｂｂ０００８ - 経済統計練習帳

var x=new Array();
var y=new Array();
var alpha;
var w;
 
function sample(){
 
alpha=0.5;
w=0.3;
 
for(s=1;s<101;s++){
x[s]=0;    
}
x[1]=1;
x[2]=1;
 
ex=50;
 
d=0;
 
for(tr=1;tr<100;tr++){
 
n=count();
 
c=n*30;
 
yd=ex+c+d;
 
select(yd);
 
ys=100*n;
if(yd>ys)yd=ys;
 
d=alpha*yd;
 
$("#memo").html(yd+","+y[1]+","+y[2]);
 
}
 
 
 
}
 
function select(yd){
 
 var p1=yd;
 var s;
 
for(s=1;s<101;s++){
y[s]=0;        
} 
 
for(s=1;s<101;s++){
h=0;
if(x[s]==1)h=h+1;
if(p1<100)h=h+1;
if(p1>0)h=h+1;
if(h==3)y[s]=p1;
if(h==3)p1=0;   
h=0;
if(x[s]==1)h=h+1;
if(p1>99)h=h+1;
if(h==2)y[s]=100;
if(h==2)p1=p1-100;
} 
 
 
 
 
}
 
function count(){
 
    n1=0;
    for(s=1;s<100;s++){
    if(x[s]==1)n1=n1+1;    
    }
 
    return n1;
}