lemorbidmainmodule.bas

来自「求解线性方程组」· BAS 代码 · 共 31 行

Attribute VB_Name = "MainModule"
Sub Main()
    Dim dblA(4, 4) As Double
    Dim dblB(4) As Double
    Dim dblX(4) As Double
    
    '系数矩阵
    dblA(1, 1) = 3.4336:   dblA(1, 2) = -0.5238:    dblA(1, 3) = 0.67105:    dblA(1, 4) = -0.15271
    dblA(2, 1) = -0.5238:   dblA(2, 2) = 3.28326:   dblA(2, 3) = -0.73051:   dblA(2, 4) = -0.2689
    dblA(3, 1) = 0.67105:    dblA(3, 2) = -0.73051:   dblA(3, 3) = 4.02612:   dblA(3, 4) = 0.01835
    dblA(4, 1) = -0.15272:    dblA(4, 2) = -0.268:    dblA(4, 3) = 0.01835:    dblA(4, 4) = 2.75702

    '常数向量
    dblB(1) = -1#
    dblB(2) = 1.5
    dblB(3) = 2.5
    dblB(4) = -2#
    
    '求解
    If LEMorbid(4, dblA, dblB, dblX, 0.000001) Then
        MsgBox "求解成功！" & Chr$(13) & Chr$(13) & _
                "x1 = " & Round(dblX(1), 6) & Chr$(13) & _
                "x2 = " & Round(dblX(2), 6) & Chr$(13) & _
                "x3 = " & Round(dblX(3), 6) & Chr$(13) & _
                "x4 = " & Round(dblX(4), 6)
    Else
        MsgBox "求解失败！"
    End If
    
End Sub