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
           

推薦文章：那些年，做的幾個應用