kyorik - 経済統計練習帳

class network{
 
beta:number[]=new Array();
alpha:number;
x:number[][]=new Array();
y:number[]=new Array();
number_d:number;
number_p:number;
 
ex():number{
 
var s,s1,z,z1,h:number;
 
z=0;
for(s=1;s<this.number_p+1;s++){
z1=this.dist(s);
h=1;
if(h>0)z=z+z1;
if(h<0)z=z-z1;
}
 
return z;
}
 
sign(n:number){
 
var z,s,k,sp:number; 
sp=1;
z=0;
for(s=1;s<this.number_d+1;s++){
z=z+this.beta[s]*this.x[n][s];
}
k=z-this.alpha;
 
if(k<0)sp=-1;
 
return sp;
 
}
 
dist(n:number):number{
 
var s:number;
var z,k,zz,t,e:number;
var xs:number[]=new Array();
 
z=0;
for(s=1;s<this.number_d+1;s++){
z=z+this.beta[s]*this.x[n][s];
}
k=this.alpha-z;
 
 
zz=0;
for(s=1;s<this.number_d+1;s++){
zz=zz+this.beta[s]*this.beta[s];
}
 
t=k/zz;
 
for(s=1;s<this.number_d+1;s++){
xs[s]=this.x[n][s]+t*this.beta[s];
}
 
e=0;
for(s=1;s<this.number_d+1;s++){
e=e+(this.x[n][s]-xs[s])*(this.x[n][s]-xs[s]);
}
 
return e;
 
}