eclazz.txt

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

Sub ECLAZZ(NF(), N)
    NF(1) = 1
    For JJ = 2 To N
        NF(JJ) = JJ
        For KK = 1 To JJ - 1
            NF(KK) = NF(NF(KK))
            If EQUIV(JJ, KK) Then NF(NF(NF(KK))) = JJ
        Next KK
    Next JJ
    For JJ = 1 To N
        NF(JJ) = NF(NF(JJ))
    Next JJ
End Sub