gammln.txt

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

Function GAMMLN(XX)
    Dim COF(6)
    COF(1) = 76.18009173
    COF(2) = -86.50532033
    COF(3) = 24.01409822
    COF(4) = -1.231739516
    COF(5) = 0.00120858003
    COF(6) = -0.00000536382
    STP = 2.50662827465
    HALF = 0.5
    ONE = 1#
    FPF = 5.5
    X = XX - ONE
    TMP = X + FPF
    TMP = (X + HALF) * Log(TMP) - TMP
    SER = ONE
    For J = 1 To 6
        X = X + ONE
        SER = SER + COF(J) / X
    Next J
    GAMMLN = TMP + Log(STP * SER)
End Function