作者chungyuandye (养花种鱼数月亮赏星星)
看板Math
标题Re: [其他] mathematica求整数解
时间Sun Mar 27 17:50:57 2011
※ 引述《iamcrazyforu (爱宅)》之铭言：
: 用mathematica解线性规画
: 是否能够限制解必须为整数呢?
: 另外如果要输出图的话
: 有没有办法把最佳整数解标示在图上呢?
方法很多，LinearProgramming, Minimize, FindMinimum, NMinimize
都可以用来求解线性规划问题，当然包含整数规划。
min x+2y
st 3x+4y>=5
x>=0,y>=0
obj=x+2y;
cons=And[3x+4y>=5,x>=0,y>=0];
ansR=Minimize[{obj,cons},{x,y}]
ansI=Minimize[{obj,cons,Element[{x,y},Integers]},{x,y}]
Show[RegionPlot[cons,{x,0,3},{y,0,3}],
ContourPlot[obj==ansR[[1]],{x,-1,3},{y,-1,3},ContourStyle->{Red,Thickness[0.01]
ContourPlot[obj==ansI[[1]],{x,-1,3},{y,-1,3},ContourStyle->{Blue,Thickness[0.01
Epilog->{Green,PointSize[0.05],Point[{x,y}/.ansR[[2]]],Point[{x,y}/.ansI[[2]]]}
PlotRange->{{-1,3},{-1,3}}
]
--
我打研究室走过 那独坐电脑前的容颜如苦瓜的纠结
灵感不来 长寿的烟雾不散
研究室如小小的寂寞的城 恰如商管的电梯向晚
http://chungyuandye.twbbs.org
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 218.173.240.190
※ 编辑: chungyuandye 来自: 218.173.240.190 (03/27 17:55)
1F：推 iamcrazyforu:谢谢热心解答 03/27 18:07
2F：→ iamcrazyforu:可是跟不上时代的5.2版似乎没办法这样写啊... 03/27 18:07
3F：→ iamcrazyforu:没有先讲清楚真是抱歉... 03/27 18:14