beta.txt

来自「里面都是一些原代码」· 文本 代码 · 共 4 行

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