v687 - 経済統計練習帳

var x=new Array();
var y=new Array();
var yd=new Array();
var d=new Array();
var m=new Array();
var alpha;
var w;
 
function sample(){
 
alpha=0.5;
w=0.3;
 
for(s=1;s<101;s++){
x[s]=0;    
m[s]=100;
}
x[1]=1;
x[2]=2;
 
ex=100;
 
d[1]=0;
d[2]=0;
d[3]=0;
 
var timer;
var delay = 1000;
 
var loop = function () {
 
n=count();
 
c=n*30;
 
yd[1]=d[1];
yd[2]=ex+d[2];
yd[3]=c+d[3];
 
select(1);
select(2);
select(3);
 
d[1]=0.2*yd[1]+0.2*yd[2]+0.2*yd[3];
d[2]=0.2*yd[1]+0.2*yd[2]+0.2*yd[3];
d[3]=0.2*yd[1]+0.2*yd[2]+0.2*yd[3];
 
if(rate(1)>90)plus(1);
if(rate(2)>90)plus(2);
if(rate(3)>90)plus(3);
 
if(rate(1)<70)minus(1);
if(rate(2)<70)minus(2);
if(rate(3)<70)minus(3);
 
$("#memo").html(yd[1]+","+yd[2]+","+yd[3]);
 
    clearTimeout(timer);
    timer = setTimeout(loop, delay);
}
 
loop();
 
 
 
 
}
 
 
 
function plus(n){
 
 
    f1=0;
    for(s=1;s<100;s++){
    h=0;
    if(f1==0)h=h+1;
    if(x[s]==0)h=h+1;
    if(h==2)x[s]=n;
    if(h==2)f1=100;
    }
 
 
 
}
 
function minus(n){
 
 
    f1=0;
    for(s=1;s<100;s++){
    h=0;
    if(f1==0)h=h+1;
    if(x[s]==n)h=h+1;
    if(h==2)x[s]=0;
    if(h==2)f1=100;
    }
 
 
 
}
 
 
function rate(n){
 
var ys;    
ys=0;    
for(s=1;s<100;s++){
if(x[s]==n)ys=ys+100;    
}    
 
r=100*yd[n]/ys    
 
return r;    
 
}
 
 
function select(n){
 
 var p1=yd[n];
 var s;
 
for(s=1;s<101;s++){
y[s]=0;        
} 
 
for(s=1;s<101;s++){
h=0;
if(x[s]==n)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]==n)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<101;s++){
    if(x[s]>0)n1=n1+1;    
    }
 
    return n1;
}