Power-Programmierung/CD1.mdf/pascal/library/dos/nrpas/beta.pas

Pascal/Delphi Source File | 1994-04-11 | 99 b | 5 lines

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