まちころ００ - 経済統計練習帳

var ma,mb,mc,md;
var a=new Array(); 
var b=new Array(); 
var c=new Array(); 
var d=new Array(); 
 
function sample(){
 
var timer;
var delay = 1000;
 
ma=0;
mb=0;
mc=0;
md=0;
 
for(s=1;s<19;s++){
a[s]=0;
b[s]=0;
c[s]=0;
d[s]=0;
}
 
a[1]=1; 
b[1]=1;
c[1]=1;
d[1]=1;
 
mode=4;
 
 
var loop = function () {
 
mode=mode+1;
if(mode>4)mode=1;
 
n1=6*Math.random();
n2=Math.floor(n1)+1;
 
 
ma=ma+a[n2];    
mb=mb+b[n2];
mc=mc+c[n2];    
md=md+d[n2];
 
if(mode==1)ma=ma+a[n2+6];    
if(mode==2)mb=mb+b[n2+6];
if(mode==3)mc=mc+c[n2+6];
if(mode==4)md=md+d[n2+6];
 
ma=ma+a[n2+12];
mb=mb+b[n2+12];
mc=mc+c[n2+12];
md=md+d[n2+12];
 
if(mode==1)ma=ma-a[n2+12];    
if(mode==2)mb=mb-b[n2+12];
if(mode==3)mc=mc-c[n2+12];
if(mode==4)md=md-d[n2+12];
 
n1=18*Math.random();
n2=Math.floor(n1)+1;
 
h=0; 
if(mode==1)h=h+1; 
if(ma>5)h=h+1;
if(h==2)a[n2]=a[n2]+1;
if(h==2)ma=ma-5;
 
h=0; 
if(mode==2)h=h+1; 
if(mb>5)h=h+1;
if(h==2)b[n2]=b[n2]+1;
if(h==2)mb=mb-5;
 
h=0; 
if(mode==3)h=h+1; 
if(mc>5)h=h+1;
if(h==2)c[n2]=c[n2]+1;
if(h==2)mc=mc-5;
 
h=0; 
if(mode==4)h=h+1; 
if(md>5)h=h+1;
if(h==2)d[n2]=d[n2]+1;
if(h==2)md=md-5;
 
$("#memo").html(ma+","+mb+","+mc+","+md);  
 
clearTimeout(timer);
timer = setTimeout(loop, delay);
}
 
loop();
 
}