erfc.txt

来自「VB常用数值算法集 内含有解线性代数方程组」· 文本 代码 · 共 7 行

Function ERFC(X)
    If X < 0# Then
        ERFC = 1# + GAMMP(0.5, X ^ 2)
    Else
        ERFC = GAMMQ(0.5, X ^ 2)
    End If
End Function