erfc.txt

来自「《Delphi常用数值算法集》的配书源码」· 文本 代码 · 共 7 行

Function ERFC(X:real):real;
begin
    If X < 0 Then
        ERFC:=1+GAMMP(0.5, sqr(X))
    Else
        ERFC:=GAMMQ(0.5, sqr(X));
end;