eclass.txt

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

Sub ECLASS(NF(), N, LISTA(), LISTB(), M)
    For K = 1 To N
        NF(K) = K
    Next K
    For L = 1 To M
        J = LISTA(L)
        While NF(J) <> J
              J = NF(J)
        Wend
        K = LISTB(L)
        While NF(K) <> K
            K = NF(K)
        Wend
        If J <> K Then NF(J) = K
    Next L
    For J = 1 To N
        While NF(J) <> NF(NF(J))
            NF(J) = NF(NF(J))
        Wend
    Next J
End Sub