数学建模社区-数学中国

标题: 急求:Lingo程序 [打印本页]

作者: yduckey    时间: 2009-8-6 21:00
标题: 急求:Lingo程序
帮忙做一下下面模型的LIngo程序吧~~急用 万分感谢!!

整数规划模型.rar

9.5 KB, 下载次数: 7, 下载积分: 体力 -2 点


作者: wangyx    时间: 2009-8-6 21:56
郁闷! 下载帮你看看,还收了我两个矩阵币!!
作者: wangyx    时间: 2009-8-6 22:15
既然看了,就给个程序吧!我是找你给的模型写的!
但是好像最后结果有问题!没有最优解!!
model:
sets:
row/1..10/:M;
col/1..4/;
link(row,col):x,l;
endsets
data:
l=8.4        8.4        9.1        8.7       
  9.3        8.4        8.4        8.9       
  8.4        8.1        8.4        9.5       
  8.1        8.7        9        8.4       
  8.4        9        8.3        9.4       
  9.4        8.7        8.5        8.4       
  9.5        8.4        8.3        8.4       
  8.4        8.8        8.7        8.2       
  8.4        8.4        8.4        9.3       
  9        8.1        8.2        9.1;
enddata
max=@sum(link:x*l);
@sum(row:M)=4;
@for(row(i)sum(col(j):x(i,j))-M(i)<=3;@sum(col(j):x(i,j))-4*M(i)>=0);
@sum(link:x)=6;
@for(rowbin(M));
@for(linkbin(x));
end
作者: wangyx    时间: 2009-8-6 22:16
model:
sets:
row/1..10/:M;
col/1..4/;
link(row,col):x,l;
endsets
data:
l=8.4        8.4        9.1        8.7       
  9.3        8.4        8.4        8.9       
  8.4        8.1        8.4        9.5       
  8.1        8.7        9        8.4       
  8.4        9        8.3        9.4       
  9.4        8.7        8.5        8.4       
  9.5        8.4        8.3        8.4       
  8.4        8.8        8.7        8.2       
  8.4        8.4        8.4        9.3       
  9        8.1        8.2        9.1;
enddata
max=@sum(link:x*l);
@sum(row:M)=4;
@for(row(i): @sum(col(j):x(i,j))-M(i)<=3;@sum(col(j):x(i,j))-4*M(i)>=0);
@sum(link:x)=6;
@for(row: @bin(M));
@for(link: @bin(x));
end
是不是编码有问题
作者: yduckey    时间: 2009-8-6 22:53
4# wangyx
(⊙o⊙)…万分感谢了……

可是如果可以做出来就更好了……
作者: chip    时间: 2009-8-7 02:33
wangyx是好人那!
作者: yduckey    时间: 2009-8-7 08:38
2# wangyx
(⊙o⊙)…十分不好意思……这个有办法把矩阵币去掉么……
作者: yduckey    时间: 2009-8-7 08:39
4# wangyx
@for(row(i): @sum(col(j):x(i,j))-M(i)<=3;@sum(col(j):x(i,j))-4*M(i)>=0);
这个好像有问题~~不过……我找不出来。。
作者: xiaoguo    时间: 2009-9-7 12:59
有内涵,不过自己再去找看看那些资料对你有用啊
作者: zwb1030    时间: 2009-9-8 09:10
感觉程序不复杂
下来看了下
也被扣
作者: zwb1030    时间: 2009-9-8 09:25
程序没有发现问题啊
怎么没有解得呢
作者: zwb1030    时间: 2009-9-8 09:36
找出来了
@for(col(j): @sum(row(i): x(i,j))=6);
结果212.3
作者: lrh116    时间: 2009-9-8 15:39
郁闷! 下载帮你看看,还收了我两个矩阵币!!




欢迎光临 数学建模社区-数学中国 (http://www.madio.net/) Powered by Discuz! X2.5