nijnnm@[ - 経済統計練習帳

var x = new Array();
var point = new Array();
var count = new Array();
 
function sample(){
 
x[	1	]=	4630	;
x[	2	]=	3345	;
x[	3	]=	2852	;
x[	4	]=	2625	;
x[	5	]=	2614	;
x[	6	]=	2543	;
x[	7	]=	2281	;
x[	8	]=	2117	;
x[	9	]=	1920	;
x[	10	]=	1890	;
x[	11	]=	1838	;
x[	12	]=	1599	;
x[	13	]=	1578	;
x[	14	]=	1547	;
x[	15	]=	1539	;
x[	16	]=	1414	;
x[	17	]=	1395	;
x[	18	]=	1373	;
x[	19	]=	1371	;
x[	20	]=	1365	;
x[	21	]=	1355	;
x[	22	]=	1352	;
x[	23	]=	1322	;
x[	24	]=	1316	;
x[	25	]=	1247	;
x[	26	]=	1216	;
x[	27	]=	1170	;
x[	28	]=	1089	;
x[	29	]=	1073	;
x[	30	]=	1050	;
 
 
for (s = 1; s < 10001; s++) {
    p1 = 0;
    for (sx = 1; sx < 31; sx++) {
        n1 = 30 * Math.random();
        n2 = Math.floor(n1)+1;
        p1 = p1 + x[n2];
    }
    point[s] = p1/30;
}
 
 
maxx = 0;
for(s=1;s<10001;s++){
if (point[s] > maxx) maxx = point[s];
}
 
 
delta = maxx/100;
 
for (s = 1; s < 101;s++ ){
    c1 = 0;
for(sx=1;sx<10001;sx++){
h = 0;
if(point[sx]>s*delta)h=h+1;
if(point[sx]<(s+1)*delta)h=h+1;
if(h==2)c1=c1+1;  
}
count[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++){
c1 = 500*count[s]/maxc;
str=str+sub.rect(s*5,500-c1,5,c1,"red");    
} 
 
 
 
str=str+"</svg>";
 
$("#memo").html(str);   
 
}