function BetaLike(const Pars: TVec; Const Con: TVec; Const OConst: Array of TObject): double; overload;