たんだ - 経済統計練習帳

var point=new Array();
var x=new Array();
var y=new Array();
var a,b,c,d;
var ma,mb,mc,md;
var mode;
function sample(){
 
a=1;    
b=1;
c=1;
d=1;
 
ma=100;
mb=100;
mc=100;
md=100;
 
tx=0;    
for(s=1;s<6;s++){
for(sx=1;sx<6;sx++){
tx=tx+1;
x[tx]=s;
y[tx]=sx;
point[tx]=0;    
}}    
 
 
    var timer;
var delay = 100;
 
 
 mode=4;
 
var loop = function () {
 
mode=mode+1;
if(mode>4)mode=1;
 
 
n1=6*Math.random();
n2=Math.floor(n1)+1;
if(mode==1)a=a+n2;
if(mode==2)b=b+n2;
if(mode==3)c=c+n2;
if(mode==4)d=d+n2;
if(a>25)a=a-25;
if(b>25)b=b-25;
if(c>25)c=c-25;
if(d>25)d=d-25;
 
h=0;
if(mode==1)h=h+1;
if(point[a]==0)h=h+1;
if(h==2)ma=ma-10;
 
h=0;
if(mode==2)h=h+1;
if(point[b]==0)h=h+1;
if(h==2)mb=mb-10;
 
h=0;
if(mode==3)h=h+1;
if(point[c]==0)h=h+1;
if(h==2)mc=mc-10;
 
h=0;
if(mode==4)h=h+1;
if(point[d]==0)h=h+1;
if(h==2)md=md-10;
 
if(point[a]==0)point[a]=1;
if(point[b]==0)point[b]=2;
if(point[c]==0)point[c]=3; 
if(point[d]==0)point[d]=4; 
 
 sx=0;
if(mode==1)sx=point[a];
if(mode==2)sx=point[b];
if(mode==3)sx=point[c];
if(mode==4)sx=point[d];
 
 
 change(sx);
 
    fresh();
 
 paint();
 
clearTimeout(timer);
timer = setTimeout(loop, delay);
}
 
loop();
 
 
 
 
 
 
 
}
 
function paint(){ 
 
var sub=new svgpaint();
 
str="<svg width=\"500\" height=\"500\">";
 
str=str+sub.rect(0,0,500,500,"green");
for(s=1;s<26;s++){    
if(point[s]==1)str=str+sub.rect(100*x[s]-100,100*y[s]-100,100,100,"red");
if(point[s]==2)str=str+sub.rect(100*x[s]-100,100*y[s]-100,100,100,"blue");
if(point[s]==3)str=str+sub.rect(100*x[s]-100,100*y[s]-100,100,100,"brown");
if(point[s]==4)str=str+sub.rect(100*x[s]-100,100*y[s]-100,100,100,"pink");
} 
 
str=str+"</svg>";
 
$("#memo").html(str);   
 
$("#point").html(ma+","+mb+","+mc+","+md);
 
}
 
 
function change(s1){
 
 
if(mode==1)ma=ma-5;
if(mode==2)mb=mb-5;
if(mode==3)mc=mc-5;   
if(mode==4)md=md-5;  
if(s1==1)ma=ma+5;
if(s1==2)mb=mb+5;
if(s1==3)mc=mc+5;
if(s1==4)md=md+5;
 
}
 
function fresh(){
 
z=0;    
if(ma<0)z=100;    
if(mb<0)z=100; 
 if(mc<0)z=100;   
 if(md<0)z=100;   
 
if(z>50){
ma=100;
mb=100;
mc=100;
md=100;
a=1;
b=1;
c=1;
d=1;
mode=4;
for(s=1;s<26;s++){
point[s]=0;    
}
 
}    
 
 
}