関数 - 経済統計練習帳

var a_mat = new Array();
var b_mat = new Array();
var sol_mat = new Array();
var number_mat;
 
function matrix(){
 
number_mat = number;
 
for(s=1;s<number_mat+1;s++){
a_mat[s]=new Array();
}
 
a_mat = a;
b_mat = b;
 
 
for(s=1;s<number_mat+1;s++){
for(sx=1;sx<number_mat+1;sx++){
z=a_mat[sx][s]/a_mat[s][s];
if(s==sx)z=0;
for(tx=1;tx<number_mat+1;tx++){
a_mat[sx][tx]=a_mat[sx][tx]-z*a_mat[s][tx];
}
b_mat[sx]=b_mat[sx]-z*b_mat[s];
}
}
 
 
for(s=1;s<number_mat+1;s++){
sol_mat[s]=b_mat[s]/a_mat[s][s];
}
 
sol = sol_mat;
 
}