beta.txt

最近开发的,比较使用,曲线拟合,谢谢下载 ,没问题

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