mmqrmainmodule.bas

来自「编程中经常用到的一些算法,算法已模块化,来自于<科学工程与数值算法大全&g」· BAS 代码 · 共 24 行

Attribute VB_Name = "MainModule"
Sub Main()
    Dim mtxA(4, 3) As Double
    Dim mtxQ(4, 4) As Double
    
    mtxA(1, 1) = 1: mtxA(1, 2) = 1: mtxA(1, 3) = -1
    mtxA(2, 1) = 2: mtxA(2, 2) = 1: mtxA(2, 3) = 0
    mtxA(3, 1) = 1: mtxA(3, 2) = -1: mtxA(3, 3) = 0
    mtxA(4, 1) = -1: mtxA(4, 2) = 2: mtxA(4, 3) = 1


    '求解
    If MMqr(4, 3, mtxA, mtxQ) Then
        MsgBox "求解成功！" & Chr$(13) & Chr$(13) & _
                "矩阵Q" & Chr$(13) & Chr$(13) & _
                MatrixToString(4, 4, mtxQ, "######0.0000000") & Chr$(13) & Chr$(13) & _
                "矩阵A" & Chr$(13) & Chr$(13) & _
                MatrixToString(4, 3, mtxA, "######0.0000000")
    Else
        MsgBox "求解失败！"
    End If
    
End Sub