mdetcholmainmodule.bas

各种矩阵运算

Attribute VB_Name = "MainModule"
Sub Main()
    Dim mtxA(4, 4) As Double
    Dim nDetA As Double
    
    mtxA(1, 1) = 5:  mtxA(1, 2) = 7:  mtxA(1, 3) = 6:  mtxA(1, 4) = 5
    mtxA(2, 1) = 7:  mtxA(2, 2) = 10:  mtxA(2, 3) = 8:  mtxA(2, 4) = 7
    mtxA(3, 1) = 6:  mtxA(3, 2) = 8:  mtxA(3, 3) = 10:  mtxA(3, 4) = 9
    mtxA(4, 1) = 5:  mtxA(4, 2) = 7:  mtxA(4, 3) = 9:  mtxA(4, 4) = 10
    
    '求解
    If MDetChol(4, mtxA, nDetA) Then
        MsgBox "Det(A) = " & nDetA & Chr$(13) & Chr$(13) & _
                "分解后的下三角矩阵为" & Chr$(13) & Chr$(13) & _
                MatrixToString(4, 4, mtxA, "######0.0000000")
    Else
        MsgBox "求解失败"
    End If
    
End Sub