erfcc.txt

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

Function ERFCC(X)
    Z = Abs(X)
    T = 1# / (1# + 0.5 * Z)
    DDD = -0.82215223 + T * 0.17087277
    AAA = T * (-1.13520398 + T * (1.48851587 + T * DDD))
    BBB = T * (-0.18628806 + T * (0.27886807 + AAA))
    CCC = T * (0.37409196 + T * (0.09678418 + BBB))
    ERFCC = T * Exp(-Z * Z - 1.26551223 + T * (1.00002368 + CCC))
    If X < 0# Then ERFCC = 2# - ERFCC
End Function