手边没有matlab和lingo(我也不会用) 方法一：安装VB或者打开excel 使用VBA 编辑界面下输入代码如下Option ExplicitDim x1 As IntegerDim x2 As IntegerDim x3 As IntegerDim x As IntegerDim xmax As IntegerDim x11 As IntegerDim x22 As IntegerDim x33 As IntegerPrivate Sub CommandButton1_Click()xmax = 0For x1 = 0 To 4For x2 = 0 To 5For x3 = 0 To 6x = 3 * x1 + 4 * x2 + x3If ((x1 + 2 * x2 + x3) <= 10) And ((x1 + x2 + 2 * x3) <= 6) And ((3 * x1 + x2 + 2 * x3) <= 12) Then If x >= xmax Then xmax = x x11 = x1 x22 = x2 x33 = x3 End IfEnd IfNext x3Next x2Next x1MsgBox (x11)MsgBox (x22)MsgBox (x33)End Sub最终得到最佳答案：x1=2 x2=4 x3=0时 zm=3x1+4x2+x3=22方法二：使用lingo一般地，使用LINGO 求解运筹学问题可以分为以下两个步骤来完成：1)根据实际问题，建立数学模型，即使用数学建模的方法建立优化模型2)根据优化模型，利用LINGO 来求解模型。主要是根据LINGO 软件，把数学模型转译成计算机语言，借助于计算机来求解。例：在线性规划中的应用max Z =5 X1+3 X2+6X3, X1 +2 X2 + X3 ≤18 2 X1 + X2 +3 X3 =16 X1 + X2 + X3 =10 X1 ,X2 ≥0 , X3 为自由变量 应用LINGO 来求解该模型，只需要在 lingo窗口中输入以下信息即可： max=5·x1 +3·x2 +6·x3 ; x1 +2·x2 + x3 <=18 ; 2·x1 + x2+3·x3 =16 ; x1 + x2 + x3 =10 ; @free( x3) ; 然后按运行按钮，得到模型最优解，具体如下： Objective value: 00000 Variable Value Reduced Cost x1 00000 000000 x2 000000 000000 x3 -4 000000 000000 由此可知，当 x1 =14 , x2 =0 , x3 =-4 时，模型得到最优值，且最优值为 46。 说明：在利用LINGO 求解线性规划时，如自变量都为非负的话，在LINGO 中输入的信息和模型基本相同；如自变量为自由变量，可以使用函数 @free来把系统默认的非负变量定义自由变量，如实例一中的 x3。
金威啤酒
