bbn009 - 経済統計練習帳

var x = new Array();
var y = new Array();
var point = new Array();
var pointx = new Array();
 
var count = new Array();
var countx = new Array();
 
 
function sample(){
 
x[	1	]=	188	;
x[	2	]=	96	;
x[	3	]=	168	;
x[	4	]=	176	;
x[	5	]=	153	;
x[	6	]=	172	;
x[	7	]=	177	;
x[	8	]=	163	;
x[	9	]=	146	;
x[	10	]=	173	;
x[	11	]=	186	;
x[	12	]=	168	;
x[	13	]=	177	;
x[	14	]=	184	;
x[	15	]=	96	;
 
 
y[	1	]=	139	;
y[	2	]=	163	;
y[	3	]=	160	;
y[	4	]=	160	;
y[	5	]=	147	;
y[	6	]=	149	;
y[	7	]=	149	;
y[	8	]=	122	;
y[	9	]=	132	;
y[	10	]=	144	;
y[	11	]=	130	;
y[	12	]=	144	;
y[	13	]=	102	;
y[	14	]=	124	;
y[	15	]=	144	;
 
for (s = 1; s < 10001; s++) {
    p1 = 0;
    for (sx = 1; sx < 16; sx++) {
        n1 = 15 * Math.random();
        n2 = Math.floor(n1)+1;
        p1 = p1 + x[n2];
    }
    point[s] = p1/15;
}
 
 
for (s = 1; s < 10001; s++) {
    p1 = 0;
    for (sx = 1; sx < 16; sx++) {
        n1 = 15 * Math.random();
        n2 = Math.floor(n1)+1;
        p1 = p1 + y[n2];
    }
    pointx[s] = p1/15;
}
 
 
 
maxx = 0;
for(s=1;s<10001;s++){
if (point[s] > maxx) maxx = point[s];
if (pointx[s] > maxx) maxx = pointx[s];
 
}
 
minx = 999999;
for(s=1;s<10001;s++){
if (point[s] < minx) minx = point[s];
if (pointx[s] < minx) minx = pointx[s];
}
 
 
delta = (maxx-minx)/100;
 
for (s = 1; s < 101;s++ ){
    c1 = 0;
for(sx=1;sx<10001;sx++){
h = 0;
if(point[sx]-minx>s*delta)h=h+1;
if(point[sx]-minx<(s+1)*delta)h=h+1;
if(h==2)c1=c1+1;  
}
count[s] = c1;
}
 
for (s = 1; s < 101;s++ ){
    c1 = 0;
for(sx=1;sx<10001;sx++){
h = 0;
if(pointx[sx]-minx>s*delta)h=h+1;
if(pointx[sx]-minx<(s+1)*delta)h=h+1;
if(h==2)c1=c1+1;  
}
countx[s] = c1;
}
 
 
    paint();
 
 
}
 
function paint(){
 
var sub=new svgpaint();
 
str="<svg width=\"500\" height=\"500\">";
 
maxc = 0;
for (s = 1; s < 101; s++) {
if (count[s] > maxc) maxc = count[s];
}
 
for (s = 1; s < 101; s++) {
if (countx[s] > maxc) maxc = countx[s];
}
for(s=1;s<101;s++){
c1 = 500*count[s]/maxc;
str=str+sub.rect(s*5,500-c1,5,c1,"red");    
} 
 
 for(s=1;s<101;s++){
c1 = 500*countx[s]/maxc;
str=str+sub.rect(s*5,500-c1,5,c1,"blue");    
} 
str=str+sub.line(0,0,0,500,3,"black");    
str=str+sub.line(0,500,500,500,3,"black");    
 
 
str=str+"</svg>";
 
$("#memo").html(str);   
 
}