CD Actual 15/CDACTUAL15.iso/cdactual/program/pascal/NUMRPAS.ZIP/NRPAS13.ZIP/BETA.PAS

Pascal/Delphi Source File | 1987-03-17 | 99 b | 5 lines

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