eigsrt.txt

用VB实现矩阵特征值的求解算法集。包括：对称矩阵的雅可比变换

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