WFracFit

procedure WFracFit(

  X: TVector;

  Y: TVector;

  S: TVector;

  Lb: Integer;

  Ub: Integer;

  Deg1: Integer;

  Deg2: Integer;

  ConsTerm: Boolean;

  MaxIter: Integer;

  Tol: Float;

  B: TVector;

  V: TMatrix

);