きょえい - 経済統計練習帳

var ex = new Array();
var im = new Array();
var c = new Array();
var m = new Array();
var y = new Array();
var dis = new Array();
var point = new Array();
var delta = new Array();
 
function sample(){
 
    /*消費、魅力*/
 
    c[1] = 250;
    c[2] = 250;
    m[1] = 300;
    m[2] = 200;
 
 
    for (s = 1; s < 3;s++ ){
    point[s]=new Array();
    delta[s] = new Array();
    dis[s] = new Array();
    }
 
    /*距離*/
 
    dis[1][1] = 10;
    dis[1][2] = 5;
    dis[2][1] = 5;
    dis[2][2] = 10;
 
 
 
 
    /*供給=>需要*/
 
    point[1][1] = m[1]+dis[1][1];
    point[2][1] = m[2]+dis[2][1];
    point[1][2] = m[1]+dis[1][2];
    point[2][2] = m[2]+dis[2][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];
    }
    y[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]);
 
 
 
}