VB.Net行列计算函数

Function Rect(A As Array,L As Integer) As Single '行列式计算L*L
        Dim T0 As Single
        Dim T1 As Single
        Dim T2 As Single
        Dim B(0,0) As Single
        Dim Num As Single
        Dim Cha As Integer
        If L > 0 Then
            Cha = 0
            ReDim B(L - 1,L - 1)
            Num = 0
            If L = 1 Then
                Rect = A(0,0) * A(1,1) - A(0,1) * A(1,0)
                Exit Function
            End If
            For T0 = 0 To L
                For T1 = 1 To L
                    For T2 = 0 To L - 1
                        If T2 = T0 Then Cha = 1
                        B(T1 - 1,T2) = A(T1,T2 + Cha)
                    Next T2
                    Cha = 0
                Next T1
                Num = Num + A(0,T0) * Rect(B,L - 1) * (-1) ^ T0
            Next T0
            Rect = Num
        ElseIf L = 0 Then
            Rect = A(0,0)
        End If
    End Function

（编辑：李大同）

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