Source position: ugenalg.pas line 35
procedure GenAlg(
Func: TFuncNVar;
X: TVector;
Xmin: TVector;
Xmax: TVector;
Lb: Integer;
Ub: Integer;
var F_min: Float
);