eigsrt.txt

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

Sub EIGSRT(D(), V(), N)
    For I = 1 To N - 1
        K = I
        P = D(I)
        For J = I + 1 To N
            If D(J) >= P Then
                K = J
                P = D(J)
            End If
        Next J
        If K <> I Then
            D(K) = D(I)
            D(I) = P
            For J = 1 To N
                P = V(J, I)
                V(J, I) = V(J, K)
                V(J, K) = P
            Next J
        End If
    Next I
End Sub