beta.pas

Delphi Pascal 数据挖掘领域算法包 数值算法大全

FUNCTION beta(VAR z,w: real): real;
BEGIN
   beta := exp(gammln(z)+gammln(w)-gammln(z+w))
END;