SVDFit

procedure SVDFit(

  X: TMatrix;

  Y: TVector;

  Lb: Integer;

  Ub: Integer;

  Nvar: Integer;

  ConsTerm: Boolean;

  SVDTol: Float;

  B: TVector;

  V: TMatrix

);