erf.txt

用于开发税务票据管理的软件

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