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

var number;
var a=new Array();
var y=new Array();
var io=new Array();
 
function sample(){
 
var data;
 
data = new XMLHttpRequest();
data.open("GET", "data.txt", false);
data.send(null);
 
var str=data.responseText;
 
var x=str.split("\n");
 
number=x.length;
 
for(s=1;s<4;s++){   
a[s]=new Array();
}
 
for(s=1;s<4;s++){   
io[s]=new Array();
}        
 
for(s=0;s<3;s++){
var x1=x[s].split(",");
for(sx=0;sx<3;sx++){
a[s+1][sx+1]=x1[sx];
}
}
 
 
 
 
 
datax = new XMLHttpRequest();
datax.open("GET", "c.txt", false);
datax.send(null);    
 
var str2=datax.responseText;
 
var yy=str2.split("\n");
 
for(s=1;s<4;s++){
y[s]=yy[s-1];
}
 
 
for(s=1;s<4;s++){
for(sx=1;sx<4;sx++){
io[s][sx]=a[s][sx]/y[sx];
}
}    
 
b[1]=50;
b[2]=20;
b[3]=10;
 
mat();    
 
 
str="<table>";
for(s=1;s<4;s++){
str=str+"<tr>";
str=str+"<td>";
str=str+sol[s];    
str=str+"</td>";   
str=str+"<tr>";
str=str+"</td>"; 
}       
str=str+"</table>";    
 
$("#memo").html(str);    
 
 
 
}
 
 
 
var a2=new Array();
var b=new Array();
var sol=new Array();
 
function mat(){
 
for(s=1;s<4;s++){
a2[s]=new Array();
}
 
for(s=1;s<4;s++){
for(sx=1;sx<4;sx++){
a2[s][sx]=0;
}}
 
for(s=1;s<4;s++){
a2[s][s]=1;
}
 
 
 
for(s=1;s<4;s++){
for(sx=1;sx<4;sx++){
a2[s][sx]=a2[s][sx]-io[s][sx];
}}
 
for(s=1;s<4;s++){
for(sx=1;sx<4;sx++){
z=a2[sx][s]/a2[s][s];
if(s==sx)z=0;
for(tx=1;tx<4;tx++){
a2[sx][tx]=a2[sx][tx]-z*a2[s][tx];
}
b[sx]=b[sx]-z*b[s];
}
}
 
 
for(s=1;s<4;s++){
sol[s]=b[s]/a2[s][s];
}
 
}