らくがき - 経済統計練習帳

var a=new Array();
var b=new Array();
var w=new Array();
var alpha=new Array();
 var sol=new Array();
var number;
 
 
function sample(){
 
 
 for(s=1;s<3;s++){
 alpha[s]=new Array();    
 }
 
 alpha[1][1]=0.1;
 alpha[1][2]=0.1;
 alpha[2][1]=0.1;
 alpha[2][2]=0.2;
 
 w[1]=0.5;
 w[2]=0.2;
 
for(tr=0;tr<2;tr++){
 
r=0.1*tr; 
 
for(s=1;s<3;s++){ 
a[s]=new Array();
}
 
 
 for(s=1;s<3;s++){ 
 for(sx=1;sx<3;sx++){
 a[s][sx]=0;
 }
 }
 
 for(s=1;s<3;s++){ 
 a[s][s]=1;
 }
 
 for(s=1;s<3;s++){ 
 for(sx=1;sx<3;sx++){
 a[s][sx]=1-(1+r)*alpha[s][sx];
 }
 }
 
 
 for(s=1;s<3;s++){
 b[s]=w[s];    
 }
 
 
 number=2;
 
 mat();
 
 alert(tr+","+sol[1]+","+sol[2]);
 
 }
 
 
 
 
 
}
 
 
 
 
function mat(){
 
var s1,s2;
 
 
 
for(s1=1;s1<number+1;s1++){
for(s2=1;s2<number+1;s2++){
z=a[s2][s1]/a[s1][s1];
if(s1==s2)z=0;
for(s=1;s<number+1;s++){
a[s2][s]=a[s2][s]-z*a[s1][s];
}
b[s2]=b[s2]-z*b[s1]
}
}
 
 
 
 
for(s=1;s<number+1;s++){
sol[s]=b[s]/a[s][s];
}
 
 
 
 
}