class function Get(id: string; c: Coach): FeatureExtractor;

= 86; end; 

function FourierDescriptorsFeatureExtractor.GetID: string; begin 

= 'FE_FRR'; end; 

procedure FourierDescriptorsFeatureExtractor.GetFeatures( data: IPixelEnumerator; const features: PFloatArray); var desc: TComplexArray; i, l: integer; curr: TComplex; begin l := GetFVLength; desc := AreaMoments.FourierDescriptors(data, l); for i := 0 to l - 1 do begin try curr := desc[i]; features^[i] := Sqrt(curr.re * curr.re + curr.im * curr.im) (*maxMod*); except desc := AreaMoments.FourierDescriptors(data, l); end; end; end; 

FeatureExtractor

FourierDescriptorsFeatureExtractor 

function FourierDescriptorsFeatureExtractor.GetFVLength: integer; begin