erf.txt

VB常用数值算法集 内含有解线性代数方程组

Function ERF(X)
    If X < 0# Then
        ERF = -GAMMP(0.5, X ^ 2)
    Else
        ERF = GAMMP(0.5, X ^ 2)
    End If
End Function