産業連関表 - プログラム倉庫

function sample(){
 
var s;
var x=new Array();
var a=new Array();
var b=new Array();
var point=new Array();
var z;
var page;
 
for(s=1;s<3;s++){
point[s]=new Array();
}
 
for(s=1;s<3;s++){
x[s]=new Array();
}
 
x[1][1]=0.2;
x[1][2]=0.3;
x[2][1]=0.1;
x[2][2]=0.25;
 
 
for(page=1;page<3;page++){
 
for(s=1;s<3;s++){
a[s]=0;
}
a[page]=1;
 
mode=0;
 
while(mode<10){
 
for(s=1;s<3;s++){
z=0;
for(sx=1;sx<3;sx++){
z=z+x[s][sx]*a[sx];
}
b[s]=z;
}
 
for(s=1;s<3;s++){
a[s]=a[s]+b[s];
}
 
var ep;
ep=0;
for(s=1;s<3;s++){
ep=ep+b[s]*b[s];
}
 
if(ep<0.001)mode=1000;
 
mode=mode+1;
 
 
}
 
 
for(s=1;s<3;s++){
point[page][s]=a[s];
}
 
}
 
alert(point[1][1]);
 
}