貿易８７６ - 経済統計練習帳

var ex = new Array();
var im = new Array();
var c = new Array();
var y = new Array();
var point = new Array();
var delta = new Array();
 
function sample(){
 
 
     c[1] = 250;
    c[2] = 250;
 
 
    for (s = 1; s < 3;s++ ){
    point[s]=new Array();
    delta[s] = new Array();
    }
 
    /*供給=>需要*/
 
    point[1][1] = 5;
    point[2][1] = 3;
    point[1][2] = 3;
    point[2][2] = 7;
 
    /*供給=>需要*/
 
 
    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];
    }
    y[s1] = p1;
}
 
ex[1] = delta[1][2];
ex[2] = delta[2][1];
im[1] = delta[2][1];
im[2] = delta[1][2];
 
    a1 = 0;
    for(s=1;s<3;s++){
    a1=y[s]+im[s]-ex[s]-c[s];
    }
 
    $("#memo").html(a1);
 
 
 
}