第1个回答 2018-12-20
In[84]:= Maximize[{2 x1 - x2 + x3,
x1 + x2 + x3 <= 6, -x1 + 2 x2 <= 4, -x1 + 2 x3 >= 2, x1 >= 0,
x2 >= 0, x3 >= 0}, {x1, x2, x3}]
Out[84]= {28/3, {x1 -> 10/3, x2 -> 0, x3 -> 8/3}}
用Mathematica求解得一最优解:然后去验证是否有多重解,
In[85]:= Solve[{2 x1 - x2 + x3 == 28/3,
x1 + x2 + x3 <= 6, -x1 + 2 x2 <= 4, -x1 + 2 x3 >= 2, x1 >= 0,
x2 >= 0, x3 >= 0}, {x1, x2, x3}]
Out[85]= {{x1 -> 10/3, x2 -> 0, x3 -> 8/3}}
出来的结果也说明只有唯一解。本回答被网友采纳