WExpFit

procedure WExpFit(

  X: TVector;

  Y: TVector;

  S: TVector;

  Lb: Integer;

  Ub: Integer;

  Nexp: Integer;

  ConsTerm: Boolean;

  MaxIter: Integer;

  Tol: Float;

  B: TVector;

  V: TMatrix

);