gammq.txt

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

Function GAMMQ(A, X)
    If X < 0# Or A <= 0# Then
        Print "PAUSE"
        Exit Function
    End If
    If X < A + 1# Then
        Call GSER(GAMSER, A, X, GLN)
        GAMMQ = 1# - GAMSER
    Else
        Call GCF(GAMMCF, A, X, GLN)
        GAMMQ = GAMMCF
    End If
End Function