とr - 経済統計練習帳

var ex = new Array();
var im = new Array();
var c = new Array();
var y = new Array();
var ys = new Array();
var point = new Array();
var delta = new Array();
 
function sample(){
 
 
    c[1] = 250;
    c[2] = 250;
    y[1] = 300;
    y[2] = 200;
 
    for (s = 1; s < 3;s++ ){
    point[s]=new Array();
    delta[s] = new Array();
    }
 
    /*供給=>需要*/
 
    point[1][1] = y[1];
    point[2][1] = y[2];
    point[1][2] = y[1];
    point[2][2] = y[2];
 
    /*供給=>需要*/
 
 
    for (d1 = 1; d1 < 3;d1++ ){
        p1 = 0;
        for (s1 = 1; s1 < 3; s1++) {
       p1 = p1 + point[s1][d1];
        }
        for (s1 = 1; s1 < 3; s1++) {
       delta[s1][d1]=c[d1]*point[s1][d1]/p1;
        }
}
 
 
for (s1 = 1; s1 < 3; s1++) {
    p1 = 0;
    for (d1 = 1; d1 < 3; d1++) {
   p1 = p1 + delta[s1][d1];
    }
    ys[s1] = p1;
}
 
ex[1] = delta[1][2];
ex[2] = delta[2][1];
im[1] = delta[2][1];
im[2] = delta[1][2];
 
 
 
    $("#memo").html(ex[1]+","+im[1]);
 
 
 
}