gammp.txt

来自「1.г函数、贝塔函数、阶乘及二项式系数 2.不完全г函数、误差函数 3.不完」· 文本 代码 · 共 16 行

Function GAMMP(A,X:real):real;
var
  GAMMCF,GLN:real;
begin
    If (X < 0) Or (A <= 0) Then  ShowMessage('PAUSE');
    If X < A + 1 Then
    begin
        GSER(GAMMCF, A, X, GLN);
        GAMMP:=GAMMCF;
    end
    Else
    begin
        GCF(GAMMCF, A, X, GLN);
        GAMMP:= 1 - GAMMCF;
    end;
end;