erf.txt

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

Function ERF(X:real):real;
begin
    If X < 0 Then
        ERF:=-GAMMP(0.5, sqr(X))
    Else
        ERF:=GAMMP(0.5, sqr(X));
end;