Raport de cercetare - Lorentz JÄNTSCHI

$fr_f_t=pow(pow($fr_f_x,2)+pow($fr_f_y,2)+pow($fr_f_z,2),0.5);
if(!$fr_f_t) $fr_f_t=1.0;
$fr_f_x/=$fr_f_t;
$fr_f_y/=$fr_f_t;
$fr_f_z/=$fr_f_t;
$this->f[$a]=array($fr_f_t,$fr_f_x,$fr_f_y,$fr_f_z);
}
function spp_fr_prcen($e,&$fr,&$s,&$v,$a){
//calculeaza centru de descriptor
$fr_f_t=0.0;
$fr_f_x=0.0;
$fr_f_y=0.0;
$fr_f_z=0.0;
for($i=0;$in-1;$i++){
for($j=$i+1;$jn;$j++){
$val=$s[$fr[$i]][$fr[$j]][$e];
$fr_f_t+=$val;
$fr_f_x+=$val*abs($v->val(0,$fr[$i],$fr[$j]));
$fr_f_y+=$val*abs($v->val(1,$fr[$i],$fr[$j]));
$fr_f_z+=$val*abs($v->val(2,$fr[$i],$fr[$j]));
}
}
if(!$fr_f_t) $fr_f_t=1.0;
$fr_f_x/=$fr_f_t;
$fr_f_y/=$fr_f_t;
$fr_f_z/=$fr_f_t;
$this->f[$a]=array($fr_f_t,$fr_f_x,$fr_f_y,$fr_f_z);
}
function spp_vx_prcen($e,&$fr,&$s,&$v,$a){
//calculeaza centru de descriptor
$fr_f_t=0.0;
$fr_f_x=0.0;
$fr_f_y=0.0;
$fr_f_z=0.0;
for($i=0;$in;$i++){
$val=$s[$this->v][$fr[$i]][$e];
$fr_f_t+=$val;
$fr_f_x+=$val*$v->val(0,$this->v,$fr[$i]);
$fr_f_y+=$val*$v->val(1,$this->v,$fr[$i]);
$fr_f_z+=$val*$v->val(2,$this->v,$fr[$i]);
}
if(!$fr_f_t) $fr_f_t=1.0;
$fr_f_x/=$fr_f_t;
$fr_f_y/=$fr_f_t;
$fr_f_z/=$fr_f_t;
$this->f[$a]=array($fr_f_t,$fr_f_x,$fr_f_y,$fr_f_z);
}
function spp_fr_poten($e,&$fr,&$s,&$v,$a){
//mediaza versori & suprapune valori descriptori
$fr_f_t=0.0;
$fr_f_x=0.0;
$fr_f_y=0.0;
$fr_f_z=0.0;
for($i=0;$in-1;$i++){
for($j=$i+1;$jn;$j++){
$val=$s[$fr[$i]][$fr[$j]][$e];
$fr_f_t+=$val;
$fr_f_x+=abs($v->val(0,$fr[$i],$fr[$j]));
$fr_f_y+=abs($v->val(1,$fr[$i],$fr[$j]));
$fr_f_z+=abs($v->val(2,$fr[$i],$fr[$j]));
}
}
if($this->nf[$a]=array(0.0,0.0,0.0,0.0);
}else{
$val=$this->n*($this->n-1)/2;
$fr_f_x/=$val;
$fr_f_y/=$val;
$fr_f_z/=$val;
$this->f[$a]=array($fr_f_t,$fr_f_x,$fr_f_y,$fr_f_z);
}
}
function spp_vx_poten($e,&$fr,&$s,&$v,$a){
//mediaza versori & suprapune valori descriptori
$fr_f_t=0.0;
$fr_f_x=0.0;
$fr_f_y=0.0;
$fr_f_z=0.0;
for($i=0;$in;$i++){
185