simplr - 経済統計練習帳

function dist(){
 
 
 
var sig=new Array();
var de=new Array();
 
for(s=1;s<3;s++){
sig[s]=new Array();    
}
 
x1=2;
y1=3;
 
alpha=1;
beta=3;
 
 
(x2-x1)+beta*(y2-y1)=0;
alpha+beta*x2=y2;
 
 
sig[1][1]=1;
sig[1][2]=beta;
de[1]=x1+beta*y1;
 
sig[2][1]=beta;
sig[2][2]=-1;
de[2]=-alpha;
 
for(s=1;s<3;s++){
for(sx=1;sx<3;sx++){
z=sig[sx][s]/sig[s][s];
if(s==sx)z=0;
for(tx=1;tx<number_ols+1;tx++){
sig[sx][tx]=sig[sx][tx]-z*sig[s][tx];
}
de[sx]=de[sx]-z*de[s];
}
}
 
 
for(s=1;s<3;s++){
sol[s]=de[s]/sig[s][s];
}
 
 
 
}