码迷,mamicode.com
首页 > 其他好文 > 详细

矩阵求逆(二):逆矩阵

时间:2015-07-20 19:08:48      阅读:120      评论:0      收藏:0      [点我收藏+]

标签:

1.数学定义  

  定义:对于n阶矩阵A,如果有一个n阶矩阵B,使

        AB=BA=E

    则说矩阵A是可逆的,并把矩阵B称为A逆矩阵.

  定理:若矩阵A可逆,则|A|≠0.

  定理:若|A|≠0,则矩阵A可逆,且

        A-1=1/|A|*A*


 

 

2.算法实现

    1)矩阵的行列式

    ‘‘‘ <summary>
    ‘‘‘ 返回一个矩阵的行列式
    ‘‘‘ </summary>
    ‘‘‘ <param name="dMatrix">原矩阵</param>
    ‘‘‘ <returns></returns>
    ‘‘‘ <remarks></remarks>
    Public Shared Function DetOfMatrix(ByVal dMatrix As Matrix) As Determinant
        Dim tempDet As New Determinant(dMatrix.RowLength)
        For i = 1 To tempDet.Rank
            For j = 1 To tempDet.Rank
                tempDet.Item(i, j) = dMatrix.Item(i, j)
            Next
        Next
        Return tempDet
    End Function

 

    2)矩阵求逆

    ‘‘‘ <summary>
    ‘‘‘ 返回一个矩阵的逆矩阵
    ‘‘‘ </summary>
    ‘‘‘ <param name="iMatrix">原矩阵</param>
    ‘‘‘ <returns></returns>
    ‘‘‘ <remarks></remarks>
    Public Shared Function InverseMatrix(ByVal iMatrix As Matrix) As Matrix
        Dim TempMatrix As New Matrix(iMatrix.RowLength, iMatrix.ColLength)
        Dim TempDet As Determinant = Matrix.DetOfMatrix(iMatrix)
        Dim TempDetValue As Double = TempDet.value
        TempMatrix = Matrix.AdjointMatrix(iMatrix)
        MsgBox(TempDetValue)
        If Not TempDetValue = 0 Then
            Return (TempMatrix * (1 / TempDetValue))
        Else
            Return Nothing
        End If
    End Function

 

矩阵求逆(二):逆矩阵

标签:

原文地址:http://www.cnblogs.com/experdot/p/4661820.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!