ｌｐｌｐｌｐ - 経済統計練習帳

var a=new Array();
var b=new Array();
var xs;
 
function sample(){
 
    for(s=0;s<4;s++){
   a[s]=new Array(); 
    }
 
   for(s=0;s<4;s++){
   for(sx=1;sx<6;sx++){
   a[s][sx]=0;
   }
   }
 
 
    a[1][1]=1;
    a[1][2]=2;
    a[1][3]=1;
    a[2][1]=3;
    a[2][2]=4;
    a[2][4]=1;
    a[3][1]=3;
    a[3][2]=1;
    a[3][5]=1;
 
 
    b[0]=0;
    b[1]=800;
    b[2]=1800;
    b[3]=1500;
 
 
    a[0][1]=-20;
    a[0][2]=-30;
mode=0;
 
    while(mode<50){
 
    chance();
 
 
 
   if(xs==0)mode=100;
if(xs>0){
seek();
cal();
 
        }
 
 
 
         alert(b[0]);  
 
    }
 
 
 
 
 
 
 
 
 
}
 
function cal(){
 
for(s=0;s<4;s++){
z=a[s][xs]/a[ys][xs];
if(s==ys)z=0;
for(sx=1;sx<6;sx++){
a[s][sx]=a[s][sx]-z*a[ys][sx];    
}
b[s]=b[s]-z*b[ys];        
}    
 
 
}
function seek(){
 
minz=9999;
for(s=1;s<4;s++){
z=b[s]/a[s][xs];    
if(z<minz)ys=s;
if(z<minz)minz=z;
}
 
}
 
 
function chance(){
 
    e=-0.01;
 
    xs=0;
    for(s=1;s<6;s++){
    if(a[0][s]<e)xs=s;
    }
 
 
 
}