VB.Net矩阵求逆

Function Rect_yu(A As Array,L As Integer,C As Array) As Single '矩阵求逆
        Dim T0 As Single
        Dim T1 As Single
        Dim T2 As Single
        Dim T3 As Single
        Dim B(0,0) As Single
        Dim Num As Single
        Dim Chay As Integer
        Dim Chax As Integer
        Chay = 0
        Chax = 0
        ReDim B(L - 1,L - 1)
        Num = 0
        Dim add As Double
        add = 1 / Rect(A,L)
        For T0 = 0 To L
            For T3 = 0 To L
                For T1 = 0 To L - 1
                    If T1 < T0 Then
                        Chax = 0
                    Else
                        Chax = 1
                    End If
                    For T2 = 0 To L - 1
                        If T2 < T3 Then
                            Chay = 0
                        Else
                            Chay = 1
                        End If
                        B(T1,T2) = A(T1 + Chax,T2 + Chay)
                    Next T2
                Next T1
                Rect(B,L - 1) '调用求行列式值
                C(T3,T0) = Rect(B,L - 1) * add * ((-1) ^ (T0 + T3))
            Next T3
        Next T0
    End Function

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!