ぽs - 経済統計練習帳

var x = new Array();
var y = new Array();
var pos = new Array();
var area = new Array();
var life = new Array();
var dir = new Array();
var number_dir = new Array();
var power = new Array();
 
function sample(){
 
for(s=1;s<26;s++){
dir[s]=new Array();
life[s]=new Array();
pos[s]=new Array();
}
 
 
faststep();
 
var timer;
var delay = 1000;
 
var loop = function () {
 
    for(tr=1;tr<26;tr++){
    step(tr);
    }
 
    paint();
 
    clearTimeout(timer);
    timer = setTimeout(loop, delay);
}
 
loop();
 
}
 
function step(s1){
 
  for(n=1;n<6;n++){
  move(s1,n);    
  }
 
 
}
 
function move(s1,n){
 
    var t1 = pos[s1][n];
    var n1 = number_dir[t1] * Math.random();
    var n2 = Math.floor(n1) + 1;
    pos[s1][n] = dir[t1][n2];
}
 
 
 
function paint(){
 
var sub=new svgpaint();
 
str="<svg width=\"500\" height=\"500\">";
 
for(t=1;t<26;t++){
str=str+sub.rect(100*x[t]-100,100*y[t]-100,100,100,"blue");
} 
s1 = pos[1][1];
str=str+sub.rect(100*x[s1]-100,100*y[s1]-100,100,100,"red");
s1 = pos[10][5];
str=str+sub.rect(100*x[s1]-100,100*y[s1]-100,100,100,"green");
 
 
str=str+"</svg>";
 
$("#memo").html(str);
 
}
 
 
function faststep(){
 
var s, sx, tx;
 
tx=0;
for(s=1;s<6;s++){
for(sx=1;sx<6;sx++){
tx=tx+1;
x[tx]=s;
y[tx]=sx;
}}
 
var t, s1, s2;
 
for(s=1;s<26;s++){
t=0;    
for(s1=-1;s1<2;s1++){
for(s2=-1;s2<2;s2++){
tx=search(x[s]+s1,y[s]+s2);
if(tx==s)tx=0;  
if(tx>0)t=t+1;
if(tx>0)dir[s][t]=tx;    
}}
number_dir[s]=t;
}    
 
for(s=1;s<26;s++){
area[s]=s;
power[s] = 100;
}
 
for(s=1;s<26;s++){
for(sx=1;sx<6;sx++){
pos[s][sx]=s;
}}
 
}
 
function search(x1,y1){
 
    var s,sx;
    sx=0;
    for (s = 1; s < 26; s++) {
        h = 0;
        if (x[s] == x1) h = h + 1;
        if (y[s] == y1) h = h + 1;
        if (h == 2) sx = s;
    }
    return sx;
 
}