産業７ - 経済統計練習帳

var number;
var a=new Array();
var alpha=new Array();
var b=new Array();
var sol=new Array();
var y=new Array();
var c=new Array();
 
function sample(){
 
number=2;    
 
for(s=1;s<number+1;s++){
a[s]=new Array();
}
 
a[1][1]=0.34;
a[1][2]=0.3;
a[2][1]=0.21;
a[2][2]=0.05;
 
b[1]=100;
b[2]=500;
 
for(s=1;s<number+1;s++){
alpha[s]=new Array();
}
 
for(s=1;s<number+1;s++){
for(sx=1;sx<number+1;sx++){
alpha[s][sx]=-a[s][sx];
}}
 
 
for(s=1;s<number+1;s++){
alpha[s][s]=alpha[s][s]+1;
}
 
 
 
 
for(s=1;s<number+1;s++){
for(sx=1;sx<number+1;sx++){
z=alpha[sx][s]/alpha[s][s];
if(s==sx)z=0;
for(tx=1;tx<number+1;tx++){
alpha[sx][tx]=alpha[sx][tx]-z*alpha[s][tx];
}
b[sx]=b[sx]-z*b[s];
}
}
 
 
 
for(s=1;s<number+1;s++){
sol[s]=b[s]/alpha[s][s];
}
 
var str="<table>";
str=str+"<tr><td>"+a[1][1]+"</td><td>"+a[1][2]+"</td></tr>";
 str=str+"<tr><td>"+a[2][1]+"</td><td>"+a[2][2]+"</td></tr>";   
str=str+"</table>";    
 
 
$("#memo").html(str);
 
 
}