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

var a=new Array();
var b=new Array(); 
var sol=new Array(); 
 
function myFunction() {
 
  id="1pmI5KuHoXd_lbnNSN2bAvWBVs9JMMZxgDOdnfGDLjBQ"; 
 var ex1 = SpreadsheetApp.openById(id);
 var sheet = ex1.getSheetByName("data");
 
    var v=sheet.getRange(1,1,4,4).getValues(); 
 
 
 
 
  var alpha=new Array();
 
  for(s=1;s<4;s++){
  alpha[s]=new Array();
  a[s]=new Array();
  }
 
  var y=new Array();
 
  y[1]=100;
  y[2]=200;
  y[3]=120;
 
 
  for(s=1;s<4;s++){
    for(sx=1;sx<4;sx++){
    alpha[s][sx]=v[s][sx]/y[sx];
  }
}
 
b[1]=5;
b[2]=10;
b[3]=70;
 
 for(s=1;s<4;s++){
    for(sx=1;sx<4;sx++){
    a[s][sx]=-alpha[s][sx];
  if(s==sx)a[s][sx]=1-alpha[s][sx];
    }
}
 
cal();  
 
 
Logger.log(sol[2]);  
 
 
}
 
 
function cal(){
 
var s,sx,tx;  
 
for (s = 1; s < 4; s++) {
        for (sx = 1; sx < 4; sx++) {
            z = a[sx][s] / a[s][s];
            if (s == sx) z = 0;
            for (tx = 1; tx < 4; tx++) {
            a[sx][tx] = a[sx][tx] - z * a[s][tx];
            }
            b[sx] = b[sx] - z * b[s];
        }
    }
 
    for (s = 1; s < 3; s++) {
    sol[s] = b[s] / a[s][s];
    }
 
 
}