利用修正单纯形法解线性规划问题-read.docVIP

利用修正单纯形法解线性规划问题 一 软件示意： 二 代码说明： Dim A(1 To 3, 1 To 6) As Double 矩阵A Dim a1(1 To 3) As Double 矩阵A的第一列向量 Dim a2(1 To 3) As Double 矩阵A的第二列向量 Dim a3(1 To 3) As Double 矩阵A的第三列向量 Dim a4(1 To 3) As Double 矩阵A的第四列向量 Dim a5(1 To 3) As Double 矩阵A的第五列向量 Dim a6(1 To 3) As Double 矩阵A的第六列向量 Dim B_(1 To 3, 1 To 3) As Double 基矩阵B的逆矩阵 Dim XB(1 To 3) As Double 基本可行解 Dim b(1 To 3) As Double 右端向量b Dim C(1 To 6) As Double 检验数 Dim CB(1 To 3) As Double 基本可行解对应的检验数 Dim π(1 To 3) As Double 单纯形乘子矢量 Dim r(1 To 6) As Double 检验矢量r Dim r_min As Double 检验矢量最小值 Dim k_sign As Integer 检验矢量最小值对应的位置 Dim Y(1 To 3, 0 To 6) As Double 矩阵y Dim just_vector(1 To 3) As Double Dim liji_min As Double 用于判断离基变量所用值 Dim r_sign As Integer 用于记录离基变量对应的位置 Dim main_yuan As Double 用于存放主元 Dim Erk(1 To 3, 1 To 3) As Double Dim Exchange_B(1 To 3, 1 To 3) 在矩阵Erk与矩阵B_进行乘法运算时，作为矩阵B_的替换矩阵 Dim Exchange_XB(1 To 3) 在矩阵Erk与XB_进行乘法运算时，作为XB_的替换矩阵 Dim iterative_time As Integer 定义迭代的次数 Dim XB_optimization(1 To 6) As Double 最优解 Private Sub Command1_Click()窗口1 For iterative_time = 1 To 1000 开始了迭代循环 Select Case k_sign Case 1 If (r_sign - 3) = 3 Then CB(1) = C(2) 付值给基本可行解对应的检验数 CB(2) = C(3) CB(3) = C(6) XB_optimization(1) = 0 XB_optimization(2) = XB(1) XB_optimization(3) = XB(2) XB_optimization(4) = 0 XB_optimization(5) = 0 XB_optimization(6) = XB(3) End If Case 2 If (r_sign - 3) = 1 Then CB(1) = C(2) 付值给基本可行解对应的检验数 CB(2) = C(5) CB(3) = C(6) XB_optimization(1) = 0 XB_optimization(2) = XB(1) XB_optimization(3) = 0 XB_optimization(4) = 0 XB_optimization(5) = XB(2) XB_optimization(6) = XB(3) End If Case 3 If (r_sign - 3) = 2 Then CB(1) = C(2) 付值给基本可行解对应的检验数