ｐｙｙｙ３ - 経済統計練習帳

var point=new Array();
var pointx=new Array();
var delta=new Array();
var number;
var groupx=new Array();
var number_group=new Array();
var number_g;
var life=new Array();
var number_link;
var link=new Array();
var pp=new Array();
 
 google.load("visualization", "1", {packages:["geochart"]});
 
var x=new Array();
var namex=new Array();
var number_dir=new Array();
var dir=new Array();
 
function sample() {
 
    faststep();
 
 
        var query = "SELECT * FROM " +'1Z5WkpVS8_Fr746EZ3uSkog3Wr9sHq02lH3F-5ul8';
        var encodedQuery = encodeURIComponent(query);
 
        var url = ['https://www.googleapis.com/fusiontables/v1/query'];
        url.push('?sql=' + encodedQuery);
        url.push('&key=AIzaSyAH0WCAXRIdHdbI-6bnMSN4kVDDZZmGyqY');
        url.push('&callback=?');
 
 
 
        $.ajax({
            url: url.join(''),
            dataType: 'jsonp',
            success: function (data) {
                var rows = data['rows'];
 
                sx = 0;
 
                for (var i in rows) {
                sx=sx+1;
          point[sx] = rows[i][12]/rows[i][2];
                }
 
 
                number = 47;
 
 
 for(s=1;s<number+1;s++){
h=0;
delta[s]=0;
for(sx=1;sx<number_dir[s]+1;sx++){ 
s1=dir[s][sx]; 
if(point[s1]>point[s])h=100;                   
}
if(h<60)delta[s]=100; 
}
 
 
for(s=1;s<48;s++){
groupx[s]=new Array();    
life[s]=0;
}
 
sx=0;
for(s=1;s<number+1;s++){
if(delta[s]>50)sx=sx+1;    
if(delta[s]>50)groupx[sx][1]=s; 
if(delta[s]>50)number_group[sx]=1; 
}
 
number_g=sx;
 
for(n=1;n<number_g+1;n++){
change(n);
life[n]=100;
}
 
for(k=1;k<34;k++){
sxs=search();
check(sxs);
if(number_link>0)join(sxs);
if(number_link==0)makem(sxs);
}
 
 
for(s=1;s<48;s++){
pp[s]=0;    
}
 
for(s=1;s<number_g+1;s++){
for(sx=1;sx<number_group[s]+1;sx++){ 
s1=groupx[s][sx];                    
if(pp[s1]==0)pp[s1]=s;
} 
} 
 
 
 for(s=0;s<48;s++){
    x[s]=new Array();    
    }
 
  x[0][0]="Region";
  x[0][1]="POINT";
  for(s=1;s<48;s++){
 x[s][0]=namex[s];
 x[s][1]=100-pp[s];
  }
 
        var data = google.visualization.arrayToDataTable(x);
 
        var options = {
        region: 'JP',
        resolution: 'provinces',
        colorAxis: {colors: ['blue','yellow', 'red']}
      };
 
 
 data = google.visualization.arrayToDataTable(x);
 
 
var chart = new google.visualization.GeoChart(document.getElementById('memo'));
chart.draw(data, options);
 
 
 
 
 
 
 
 
 
            }
        });
 
}
function makem(n){
 
number_g=number_g+1;
groupx[number_g][1]=n;
life[number_g]=100;
 
 
}
 
function join(n){
 
number_g=number_g+1; 
c=number_g;
tx=0;    
for(s=1;s<number_link+1;s++){
s1=link[s]; 
for(sx=1;sx<number_group[s1]+1;sx++){
tx=tx+1;
groupx[c][tx]=groupx[s1][sx];
}
life[s1]=0;
}    
tx=tx+1;    
groupx[c][tx]=n;    
number_group[c]=tx;
life[c]=100;
 
 
 
}
 
 
 
function check(n){
 
    var s,sx;
    var f1=new Array();
    var f2=new Array();
 
    for(s=1;s<number+1;s++){
    f1[s]=0;    
    f2[s]=0;
    }
 
    for(s=1;s<number_dir[n]+1;s++){
    x1=dir[n][s];
    f1[x1]=100;    
    }
 
 
 for(s=1;s<number_g+1;s++){
 for(sx=1;sx<number_group[s]+1;sx++){
 x1=groupx[s][sx];
 h=0;
 if(life[s]>50)h=h+1;
 if(f1[x1]>50)h=h+1;
 if(h==2)f2[s]=100;
 }
 }
 
 
  sx=0;
for(s=1;s<number+1;s++){
if(f2[s]>50)sx=sx+1; 
if(f2[s]>50)link[sx]=s;    
}
 
number_link=sx;
 
 
}
 
function search(){
 
var s,sx,sxs;    
var f1=new Array();
 
   for(s=1;s<number+1;s++){ 
   f1[s]=0;
    }
 
for(s=1;s<number_g+1;s++){
for(sx=1;sx<number_group[s]+1;sx++){    
x1=groupx[s][sx];
f1[x1]=100;
}}
 
var maxp=0;    
for(s=1;s<number+1;s++){  
p1=point[s];
if(f1[s]>50)p1=0;  
if(p1>maxp)sxs=s;  
if(p1>maxp)maxp=p1; 
}
 
return sxs;
}
 
function change(n){
 
for(tr=1;tr<11;tr++){
f(n);    
}    
 
 
} 
 
 
function f(n){
 
 var s,sx;
var f1=new Array();
var f2=new Array();
var f3=new Array();
var f4=new Array();
var pol=new Array();
var boader=new Array();
var number_f=new Array();
var number_pol;
 
var mode=0;
 
for(s=1;s<number+1;s++){
 f1[s]=0;
 }
 
for(s=1;s<number_group[n]+1;s++){
x1=groupx[n][s];
for(sx=1;sx<number_dir[x1]+1;sx++){
x2=dir[x1][sx];
f1[x2]=100;
}    
}    
 
 
for(s=1;s<number_group[n]+1;s++){   
x1=groupx[n][s];
f1[x1]=0;
}    
 
    sx=0;
    for(s=1;s<number+1;s++){   
    if(f1[s]>50)sx=sx+1;
    if(f1[s]>50)f2[sx]=s;
    }
 
    number_f=sx;
 
 
 
  for(s=1;s<number_group[n]+1;s++){
   pol[s]=groupx[n][s];   
  }
 
 number_pol=number_group[n]+1; 
 
for(k=1;k<number_f+1;k++){
 pol[number_pol]=f2[k];
 
 
for(s=1;s<number_pol+1;s++){
x1=pol[s];
for(sx=1;sx<number_dir[x1]+1;sx++){
x2=dir[x1][sx];
f3[x2]=100;
}    
}    
 
 
for(s=1;s<number_pol+1;s++){   
x1=pol[s];
f3[x1]=0;
}    
 
 
  sx=0;
    for(s=1;s<number+1;s++){   
    if(f3[s]>50)sx=sx+1;
    if(f3[s]>50)boader[sx]=s;
    }
 
    number_boader=sx;    
 
 
    minx=9999000000;
    for(s=1;s<number_pol+1;s++){
    x1=pol[s];    
    if(point[x1]<minx)minx=point[x1];
    }    
 
    maxx=0;
    for(s=1;s<number_boader+1;s++){
    x1=boader[s];    
    if(point[x1]>maxx)maxx=point[x1];
    }    
 
 
    if(mode>50)maxx=minx+100;
 
    if(minx>maxx){
 
    number_group[n]=number_group[n]+1;
    n1=number_group[n];
    groupx[n][n1]=pol[number_pol];
    mode=100;
    }
 
    }
 
} 
 
 
 
 function faststep(){ 
 
 namex[1]="北海道";
namex[2]="青森";
namex[3]="岩手";
namex[4]="宮城";
namex[5]="秋田";
namex[6]="山形";
namex[7]="福島";
namex[8]="茨城";
namex[9]="栃木";
namex[10]="群馬";
namex[11]="埼玉";
namex[12]="千葉";
namex[13]="東京";
namex[14]="神奈川";
namex[15]="新潟";
namex[16]="富山";
namex[17]="石川";
namex[18]="福井";
namex[19]="山梨";
namex[20]="長野";
namex[21]="岐阜";
namex[22]="静岡";
namex[23]="愛知";
namex[24]="三重";
namex[25]="滋賀";
namex[26]="京都";
namex[27]="大阪";
namex[28]="兵庫";
namex[29]="奈良";
namex[30]="和歌山";
namex[31]="鳥取";
namex[32]="島根";
namex[33]="岡山";
namex[34]="広島";
namex[35]="山口";
namex[36]="徳島";
namex[37]="香川";
namex[38]="愛媛";
namex[39]="高知";
namex[40]="福岡";
namex[41]="佐賀";
namex[42]="長崎";
namex[43]="熊本";
namex[44]="大分";
namex[45]="宮崎";
namex[46]="鹿児島";
namex[47]="沖縄";
 
    for(s=1;s<48;s++){
    dir[s]=new Array();    
    }
 
 
    number_dir[1]=1;
number_dir[2]=3;
number_dir[3]=3;
number_dir[4]=3;
number_dir[5]=3;
number_dir[6]=4;
number_dir[7]=6;
number_dir[8]=4;
number_dir[9]=3;
number_dir[10]=5;
number_dir[11]=4;
number_dir[12]=4;
number_dir[13]=5;
number_dir[14]=4;
number_dir[15]=4;
number_dir[16]=4;
number_dir[17]=2;
number_dir[18]=4;
number_dir[19]=4;
number_dir[20]=6;
number_dir[21]=5;
number_dir[22]=5;
number_dir[23]=4;
number_dir[24]=5;
number_dir[25]=4;
number_dir[26]=5;
number_dir[27]=4;
number_dir[28]=6;
number_dir[29]=4;
number_dir[30]=3;
number_dir[31]=3;
number_dir[32]=3;
number_dir[33]=4;
number_dir[34]=4;
number_dir[35]=5;
number_dir[36]=3;
number_dir[37]=3;
number_dir[38]=4;
number_dir[39]=2;
number_dir[40]=4;
number_dir[41]=2;
number_dir[42]=2;
number_dir[43]=5;
number_dir[44]=5;
number_dir[45]=3;
number_dir[46]=3;
number_dir[47]=1;
dir[1][1]=2;
dir[2][1]=1;
dir[2][2]=3;
dir[2][3]=5;
dir[3][1]=2;
dir[3][2]=4;
dir[3][3]=5;
dir[4][1]=3;
dir[4][2]=6;
dir[4][3]=7;
dir[5][1]=2;
dir[5][2]=3;
dir[5][3]=6;
dir[6][1]=4;
dir[6][2]=5;
dir[6][3]=7;
dir[6][4]=15;
dir[7][1]=4;
dir[7][2]=6;
dir[7][3]=8;
dir[7][4]=9;
dir[7][5]=10;
dir[7][6]=15;
dir[8][1]=7;
dir[8][2]=9;
dir[8][3]=11;
dir[8][4]=12;
dir[9][1]=7;
dir[9][2]=8;
dir[9][3]=10;
dir[10][1]=7;
dir[10][2]=9;
dir[10][3]=11;
dir[10][4]=15;
dir[10][5]=20;
dir[11][1]=8;
dir[11][2]=10;
dir[11][3]=12;
dir[11][4]=13;
dir[12][1]=8;
dir[12][2]=11;
dir[12][3]=13;
dir[12][4]=14;
dir[13][1]=11;
dir[13][2]=12;
dir[13][3]=14;
dir[13][4]=19;
dir[13][5]=22;
dir[14][1]=12;
dir[14][2]=13;
dir[14][3]=19;
dir[14][4]=22;
dir[15][1]=6;
dir[15][2]=7;
dir[15][3]=10;
dir[15][4]=20;
dir[16][1]=15;
dir[16][2]=17;
dir[16][3]=20;
dir[16][4]=21;
dir[17][1]=16;
dir[17][2]=18;
dir[18][1]=17;
dir[18][2]=21;
dir[18][3]=25;
dir[18][4]=26;
dir[19][1]=13;
dir[19][2]=14;
dir[19][3]=20;
dir[19][4]=22;
dir[20][1]=10;
dir[20][2]=15;
dir[20][3]=16;
dir[20][4]=19;
dir[20][5]=21;
dir[20][6]=23;
dir[21][1]=16;
dir[21][2]=20;
dir[21][3]=23;
dir[21][4]=24;
dir[21][5]=25;
dir[22][1]=13;
dir[22][2]=14;
dir[22][3]=19;
dir[22][4]=20;
dir[22][5]=23;
dir[23][1]=20;
dir[23][2]=21;
dir[23][3]=22;
dir[23][4]=24;
dir[24][1]=21;
dir[24][2]=23;
dir[24][3]=25;
dir[24][4]=29;
dir[24][5]=30;
dir[25][1]=18;
dir[25][2]=21;
dir[25][3]=24;
dir[25][4]=26;
dir[26][1]=18;
dir[26][2]=25;
dir[26][3]=27;
dir[26][4]=28;
dir[26][5]=29;
dir[27][1]=26;
dir[27][2]=28;
dir[27][3]=29;
dir[27][4]=30;
dir[28][1]=26;
dir[28][2]=27;
dir[28][3]=31;
dir[28][4]=33;
dir[28][5]=36;
dir[28][6]=37;
dir[29][1]=24;
dir[29][2]=26;
dir[29][3]=27;
dir[29][4]=30;
dir[30][1]=24;
dir[30][2]=27;
dir[30][3]=29;
dir[31][1]=28;
dir[31][2]=32;
dir[31][3]=33;
dir[32][1]=31;
dir[32][2]=34;
dir[32][3]=35;
dir[33][1]=28;
dir[33][2]=31;
dir[33][3]=34;
dir[33][4]=37;
dir[34][1]=32;
dir[34][2]=33;
dir[34][3]=35;
dir[34][4]=38;
dir[35][1]=32;
dir[35][2]=34;
dir[35][3]=38;
dir[35][4]=40;
dir[35][5]=44;
dir[36][1]=28;
dir[36][2]=37;
dir[36][3]=39;
dir[37][1]=33;
dir[37][2]=36;
dir[37][3]=38;
dir[38][1]=34;
dir[38][2]=35;
dir[38][3]=37;
dir[38][4]=39;
dir[39][1]=36;
dir[39][2]=38;
dir[40][1]=35;
dir[40][2]=41;
dir[40][3]=43;
dir[40][4]=44;
dir[41][1]=40;
dir[41][2]=42;
dir[42][1]=41;
dir[42][2]=43;
dir[43][1]=40;
dir[43][2]=42;
dir[43][3]=44;
dir[43][4]=45;
dir[43][5]=46;
dir[44][1]=35;
dir[44][2]=38;
dir[44][3]=40;
dir[44][4]=43;
dir[44][5]=45;
dir[45][1]=43;
dir[45][2]=44;
dir[45][3]=46;
dir[46][1]=43;
dir[46][2]=45;
dir[46][3]=47;
dir[47][1]=46;
 
    }