beta.txt

来自「数学算法原书光盘」· 文本 代码 · 共 4 行

Function BETA(Z,W:real):real;
begin
  BETA:=Exp(GAMMLN(Z)+GAMMLN(W)-GAMMLN(Z+W))
end;