産業連関ｘ - 経済統計練習帳

var a=new Array();
var b=new Array();
var y=new Array();
var d=new Array();
var mono=new Array();
var c,w;
 
 
function sample(){
 
    for(s=1;s<3;s++){
    a[s]=new Array();     
    }
 
    /*a[i][j] i投入、j産出*/
 
    a[1][1]=0.2;
    a[1][2]=0.1;
    a[2][1]=0.1;
    a[2][2]=0.3;
 
    b[1]=0.5;
    b[2]=0.2;
 
    y[1]=100;
    y[2]=200;
 
    for(s=1;s<3;s++){
    d1=0;    
    for(sx=1;sx<3;sx++){
    d1=d1+a[s][sx]*y[sx];    
    }    
    d[s]=d1;
    }
 
    for(s=1;s<3;s++){
    mono[s]=y[s]-d[s];
    }
 
 
    w=1;
 
    c=w*(b[1]*y[1]+b[2]*y[2]);
 
 
    $("#memo").html(mono[1]-c+","+mono[2])
 
 
 
 
 
 
 
 
 
 
}