var_def.bas

方程组解算,根据系数矩阵,解出方程组中x的坐标

Attribute VB_Name = "Var_Def"
Public g_EquNum As Integer
Public Const g_MaxNum As Long = 300
Public a(g_MaxNum, g_MaxNum) As Double
Public a1(g_MaxNum, g_MaxNum) As Double
Public Q(g_MaxNum, g_MaxNum) As Double
Public b(g_MaxNum) As Double
Public x(g_MaxNum) As Double
Public i As Integer
Public j As Integer
Public k As Integer