産業１３ - 経済統計練習帳

var number;
var a=new Array();
var alpha=new Array();
var io=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]=34;
a[1][2]=30;
a[2][1]=21;
a[2][2]=5;
y[1]=100;
y[2]=200;
 
b[1]=50;
b[2]=100;
 
for(s=1;s<number+1;s++){
io[s]=new Array();
alpha[s]=new Array();
}
 
 
 
for(s=1;s<number+1;s++){
for(sx=1;sx<number+1;sx++){
io[s][sx]=a[s][sx]/y[sx];
}}    
 
 
for(s=1;s<number+1;s++){
for(sx=1;sx<number+1;sx++){
alpha[s][sx]=-io[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];
}
 
str="<table>";
str=str+"<tr><td>"+"1財"+"</td>";    
str=str+"<td>"+sol[1]+"</td></tr>";  
str=str+"<tr><td>"+"2財"+"</td>";
str=str+"<td>"+sol[2]+"</td></tr>";  
str=str+"</table>";    
 
 
$("#memo").html(str);     
 
 
 
 
}