いhg - 経済統計練習帳

var area = new Array();
var a = new Array();
var b = new Array();
var x = new Array();
var y = new Array();
 
function sample(){
 
    tx = 0;
    for (s = 1; s < 11; s++) {
for (sx = 1; sx < 11; sx++) {
    tx = tx + 1;
    x[tx] = s;
    y[tx] = sx;
    }}
 
for(s=1;s<101;s++){
area[s]=0;    
}
 
area[1] = 1;
area[100]=2;    
 
for(s=1;s<11;s++){
a[s]=1;
b[s] = 100;
}
 
var timer;
var delay = 100;
 
var loop = function () {
 
    move_a();
 
 
    step_a();
 
    move_b();
 
    step_b();
 
    power();
 
    paint();
 
    clearTimeout(timer);
    timer = setTimeout(loop, delay);
}
 
loop();
 
 
 
 
}
 
function power(){
 
c1=0;
c2=0;
for(s=1;s<101;s++){
if(area[s]==1)c1=c1+1;    
if(area[s]==2)c2=c2+1;    
}
 
$("#point").html(c1+","+c2);
 
 
 
}
 
function paint(){
 
var sub=new svgpaint();
 
str="<svg width=\"700\" height=\"700\">";
for(s=1;s<101;s++){
if(area[s]==1)str=str+sub.rect(50*x[s],50*y[s],50,50,"blue");   
if(area[s]==2)str=str+sub.rect(50*x[s],50*y[s],50,50,"red");   
}
str=str+"</svg>";
 
 
$("#memo").html(str);
 
}
 
 
function move_a(){
 
    for (s = 1; s < 11; s++) {
        dx = -1;
        if (Math.random() > 0.5) dx = 1;
        dy = -1;
        if (Math.random() > 0.5) dy = 1;
        s1=a[s];
        x1= x[s1]+ dx;
        y1 = y[s1] + dy;
        if (x1 > 10) x1 = 10;
        if (y1 > 10) y1 = 10;
     if (x1 < 1) x1 = 1;
        if (y1 < 1) y1 = 1;
        a[s] = search(x1, y1);
    }
 
 
}
function move_b(){
 
    for (s = 1; s < 11; s++) {
        dx = -1;
        if (Math.random() > 0.5) dx = 1;
        dy = -1;
        if (Math.random() > 0.5) dy = 1;
        s1=b[s];
        x1= x[s1]+ dx;
        y1 = y[s1] + dy;
        if (x1 > 10) x1 = 10;
        if (y1 > 10) y1 = 10;
     if (x1 < 1) x1 = 1;
        if (y1 < 1) y1 = 1;
        b[s] = search(x1, y1);
    }
 
 
}
 
function search(x1,y1){
 
sps=1;    
for(sp=1;sp<101;sp++){
h=0;
if(x[sp]==x1)h=h+1;
if(y[sp]==y1)h=h+1;
if (h == 2) sps = sp;
}
return sps;
}
 
 
 
function step_b(){
 
     for (s = 1; s < 11; s++) {
         sx = b[s];
         area[sx] = 2;
    }
 
}
 
function step_a(){
 
     for (s = 1; s < 11; s++) {
         sx = a[s];
         area[sx] = 1;
    }
 
}