bksub.txt

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

Sub BKSUB(NE, NB, JF, K1, K2, C(), NCI, NCJ, NCK)
    NBF = NE - NB
    For K = K2 To K1 Step -1
        KP = K + 1
        For J = 1 To NBF
            XX = C(J, JF, KP)
            For I = 1 To NE
                C(I, JF, K) = C(I, JF, K) - C(I, J, K) * XX
            Next I
        Next J
    Next K
    For K = K1 To K2
        KP = K + 1
        For I = 1 To NB
            C(I, 1, K) = C(I + NBF, JF, K)
        Next I
        For I = 1 To NBF
            C(I + NB, 1, K) = C(I, JF, KP)
        Next I
    Next K
End Sub