WNLFit

procedure WNLFit(

  RegFunc: TRegFunc;

  DerivProc: TDerivProc;

  X: TVector;

  Y: TVector;

  S: TVector;

  Lb: Integer;

  Ub: Integer;

  MaxIter: Integer;

  Tol: Float;

  B: TVector;

  FirstPar: Integer;

  LastPar: Integer;

  V: TMatrix

);