Function qwgts

Real qwgts(Real) (
  Real x,
  Real a,
  Real b,
  Real alfa,
  Real beta,
  int integr
);