アットウィキロゴ

e77+

google.load("visualization", "1", {packages:["corechart"]});
 
var point=new Array();
var bus=new Array();
var pref=new Array();
var rank=new Array();
var v=new Array();
var gini=new Array();
var namex=new Array();
 
function sample(){
 
 
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]="サービス業(政府)";
 
 
 
for(s=1;s<24;s++){
 $('#sel').append($('<option>').html(namex[s]).val(s));
}
 
$("select").change(function () {
 
   var bbx = $("#sel").val();
 
 
    play(bbx);
 
});
 
 
} 
 
 
function play(bb) {
 
 
        var query = "SELECT * FROM " +
            '1HxwvJE6YyrORgq8la0vsc_hv7l4tLpKfbP-E7rqC';
        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'];
 
 
 for(sx=1;sx<1200;sx++){
   point[sx]=new Array();
    }
 
 
                sx = 0;
 
                for (var i in rows) {
                    sx=sx+1;
            pref[sx]=rows[i][0]/1;
            bus[sx]=rows[i][2]/1;
            for(tx=1;tx<41;tx++){
            point[sx][tx]=rows[i][tx+3]/1;
                }
                }
 
 
 
 
                number = sx;
 
 for(tr=1;tr<41;tr++){
 
 
var y=new Array();
var x=new Array();
 
for(s=1;s<48;s++){
v[s]=0;    
}
 
 for(s=1;s<number+1;s++){
 h=0;
 sx=pref[s];
 if(bus[s]==bb)v[sx]=point[s][tr];
 }
 
 
 
v1=0;
for(s=1;s<48;s++){
k=0;
if(v[s]>0)k=100;
if(k<50)v[s]=0;
v1=v1+v[s];
}
 
beta=v1/47;
 
 
ranking();
 
for(s=1;s<48;s++){
y[s]=beta*s;    
}
 
 
sx=rank[47];
x[1]=v[sx];
for(s=2;s<48;s++){
sx=rank[48-s];
x[s]=x[s-1]+v[sx];    
}
 
z1=0;
for(s=1;s<48;s++){
z1=z1+x[s];
}
 
z2=0;
for(s=1;s<48;s++){
z2=z2+y[s];
}
 
z=(z2-z1)/z2;
 
gini[tr]=z;
 
 }
 
var x1=new Array();
 
  for(s=0;s<41;s++){
 x1[s]=new Array();    
 }
 x1[0][0]="date";
 x1[0][1]=namex[bb];
 for(s=1;s<41;s++){
 x1[s][0]=(s+1969)+"年";    
 x1[s][1]=gini[s];   
 }
 
 
var data =google.visualization.arrayToDataTable(x1);
var op = {title: 'RJIP'};
 
var chart = new google.visualization.ColumnChart(document.getElementById('memo'));
chart.draw(data, op);
 
 
 
 
 
            }
        });
 
}
 
 
function ranking(){ 
 
var r,s,sx,h; 
var ch=new Array();
 
for(s=1;s<48;s++){
ch[s]=0;    
}
 
    for (r = 1; r < 48; r++) {
        sx = 0;
        maxu = -999;
        for (s = 1; s < 48; s++) {
            h = 0;
            if (v[s] > maxu) h = h + 1;
            if (ch[s] < 50) h = h + 1;
            if (h == 2) maxu = v[s];
            if (h == 2) sx = s;
        }
        rank[r] = sx;
        ch[sx] = 100;
    }
}
最終更新:2017年03月23日 13:02