tatakau - 経済統計練習帳

var point=new Array();
var pr=new Array();
var number;
var namex=new Array();
var number_dir=new Array();
var dir=new Array();
var a=new Array();
var b=new Array();
var link_a=new Array();
var link_b=new Array();
var link_life=new Array();
var number_link;
 
function sample() {
 
faststep();
 
 
 for(s=1;s<48;s++){
pr[s]="#JP-"+s;    
if(s<10)pr[s]="#JP-0"+s;  
}
 
number_link=0;
 
 
 
 
 var timer;
var delay = 100;
 
var loop = function () {
 
m1=47*Math.random();
fight=Math.floor(m1)+1;
 
m1=number_dir[fight]*Math.random();
m2=Math.floor(m1)+1;
def=dir[fight][m2];
 
 
g1=search(fight);
g2=search(def);
 
z=0;
if(g1==g2)z=100;
 
if(z<50)check();
 
 
count();
 
for(s=1;s<48;s++){
$(pr[s]).css("fill","yellow");  
if(point[s]==1)$(pr[s]).css("fill","blue");
if(point[s]>1)$(pr[s]).css("fill","pink");
if(point[s]>4)$(pr[s]).css("fill","orange");
if(point[s]>9)$(pr[s]).css("fill","red");
}  
 
 
clearTimeout(timer);
    timer = setTimeout(loop, delay);
}
 
loop();
 
 
 
 
 
}
 
function count(){
 
var v=new Array(); 
 
for(pp=1;pp<48;pp++){
v[pp]=search(pp);    
}
 
for(s=1;s<48;s++){
point[s]=0;
} 
 
for(s=1;s<48;s++){
sx=v[s];
point[sx]=point[sx]+1;    
}
 
 
 
 
}
 
 
function search(s1){
 
 
var g1=s1;
for(tr=1;tr<50;tr++){
g1=search_q(g1);
}
 
return g1;
}
 
function check(){
 
 
for(s=1;s<number_link+1;s++){
if(link_b[s]==def)link_life[s]=0;
}
 
number_link=number_link+1;
link_a[number_link]=fight;
link_b[number_link]=def;
link_life[number_link]=100;
 
}
 
 
function search_q(s1){
 
var g1=s1;
for(s=1;s<number_link+1;s++){
h=0;
if(link_b[s]==s1)h=h+1;
if(link_life[s]>50)h=h+1;
if(h==2)g1=link_a[s];
}
 
 
return g1;
}
 
function faststep(){
 
 
    for (s = 1; s < 48;s++ ){
    dir[s]=new Array();    
    }
 
namex[1] = "北海道";
dir[1][1] = 2;
number_dir[1] = 1;
 
namex[2]="青森県";
dir[2][1] = 1;
dir[2][2] = 3;
dir[2][3] = 5;
number_dir[2] = 3;
 
namex[3]="岩手県";
dir[3][1] = 2;
dir[3][2] = 4;
number_dir[3] = 2;
 
namex[4]="宮城県";
dir[4][1] = 3;
dir[4][2] = 6;
dir[4][3] = 7;
number_dir[4] = 3;
 
namex[5]="秋田県";
dir[5][1] = 2;
number_dir[5] = 1;
 
namex[6]="山形県";
dir[6][1] = 4;
number_dir[6] = 1;
 
namex[7]="福島県";
dir[7][1] = 4;
dir[7][2] = 9;
number_dir[7] = 2;
namex[8]="茨城県";
dir[8][1] = 13;
number_dir[8] = 1;
namex[9]="栃木県";
dir[9][1] = 7;
dir[9][2] = 11;
number_dir[9] = 2;
namex[10]="群馬県";
dir[10][1] = 15;
dir[10][2] = 11;
number_dir[10] = 2;
namex[11]="埼玉県";
dir[11][1] = 9;
dir[11][2] = 10;
dir[11][3] = 13;
number_dir[11] = 3;
namex[12]="千葉県";
dir[12][1] = 13;
number_dir[12] = 1;
namex[13]="東京都";
dir[13][1] = 11;
dir[13][2] = 12;
dir[13][3] = 8;
dir[13][4] = 14;
dir[13][5] = 19;
number_dir[13] = 5;
namex[14]="神奈川県";
dir[14][1] = 13;
dir[14][2] = 22;
number_dir[14] = 2;
namex[15]="新潟県";
dir[15][1] = 10;
number_dir[15] = 1;
namex[16]="富山県";
dir[16][1] = 17;
number_dir[16] = 1;
namex[17]="石川県";
dir[17][1] = 16;
dir[17][2] = 18;
number_dir[17] = 2;
namex[18]="福井県";
dir[18][1] = 17;
dir[18][2] = 25;
number_dir[18] = 2;
namex[19]="山梨県";
dir[19][1] = 13;
dir[19][2] = 20;
number_dir[19] = 2;
 
namex[20]="長野県";
dir[20][1] = 21;
dir[20][2] = 19;
number_dir[20] = 2;
 
namex[21]="岐阜県";
dir[21][1] = 20;
dir[21][2] = 25;
dir[21][3] = 23;
number_dir[21] = 3;
 
namex[22]="静岡県";
dir[22][1] = 14;
dir[22][2] = 23;
number_dir[22] = 2;
 
 
namex[23]="愛知県";
dir[23][1] = 22;
dir[23][2] = 21;
dir[23][3] = 24;
number_dir[23] = 3;
 
namex[24]="三重県";
dir[24][1] = 23;
number_dir[24] = 1;
 
namex[25]="滋賀県";
dir[25][1] = 26;
dir[25][2] = 21;
dir[25][3] = 18;
number_dir[25] = 3;
 
namex[26]="京都府";
dir[26][1] = 27;
dir[26][2] = 25;
number_dir[26] = 2;
 
 
namex[27]="大阪府";
dir[27][1] = 26;
dir[27][2] = 28;
dir[27][3] = 29;
dir[27][4] = 30;
number_dir[27] = 4;
 
 
namex[28]="兵庫県";
dir[28][1] = 27;
dir[28][2] = 33;
number_dir[28] = 2;
 
namex[29]="奈良県";
dir[29][1] = 27;
number_dir[29] = 1;
 
namex[30]="和歌山県";
dir[30][1] = 27;
number_dir[30] = 1;
 
namex[31]="鳥取県";
dir[31][1] = 32;
dir[31][2] = 33;
number_dir[31] = 2;
 
namex[32]="島根県";
dir[32][1] = 31;
number_dir[32] = 1;
 
namex[33]="岡山県";
dir[33][1] = 28;
dir[33][2] = 34;
dir[33][3] = 37;
dir[33][4] = 31;
number_dir[33] = 4;
 
namex[34]="広島県";
dir[34][1] = 33;
dir[34][2] = 35;
number_dir[34] = 2;
 
namex[35]="山口県";
dir[35][1] = 34;
dir[35][2] = 40;
number_dir[35] = 2;
 
 
namex[36]="徳島県";
dir[36][1] = 37;
dir[36][2] = 39;
number_dir[36] = 2;
 
namex[37]="香川県";
dir[37][1] = 36;
dir[37][2] = 38;
dir[37][3] = 33;
number_dir[37] = 3;
 
namex[38]="愛媛県";
dir[38][1] = 37;
number_dir[38] = 1;
 
namex[39]="高知県";
dir[39][1] = 37;
number_dir[39] = 1;
 
namex[40]="福岡県";
dir[40][1] = 35;
dir[40][2] = 41;
dir[40][3] = 44;
number_dir[40] = 3;
 
namex[41]="佐賀県";
dir[41][1] = 40;
dir[41][2] = 42;
dir[41][3] = 43;
number_dir[41] = 3;
 
namex[42]="長崎県";
dir[42][1] = 41;
number_dir[42] = 1; 
 
namex[43]="熊本県";
dir[43][1] = 41;
dir[43][2] = 46;
number_dir[43] = 2;
 
namex[44]="大分県";
dir[44][1] = 40;
dir[44][2] = 45;
number_dir[44] = 2;
 
namex[45]="宮崎県";
dir[45][1] = 44;
number_dir[45] = 1;
 
namex[46]="鹿児島県";
dir[46][1] = 47;
dir[46][2] = 43;
number_dir[46] = 2; 
 
namex[47]="沖縄県";
dir[47][1] = 46;
number_dir[47] = 1; 
}