24小时热门版块排行榜    

Znn3bq.jpeg
查看: 264  |  回复: 0

caibin088789

金虫 (正式写手)

大爷脾气

[求助] 编程问题

sets:
    level/1 2 3/:p,z,goal;
    s_con_num/1..19/:g,dplus,dminus;
    source/1..6/:a,c;
    sink/1..9/:b;
    pure/1..9/:d;
    costs(source,sink):e,x;
    obj(level,s_con_num)/1 1,1 2,1 3,1 4,1 5,1 6,1 7,1 8,1 9,
3 19,2 10,2 11,2 12,2 13,2 14,2 15,2 16,2 17,2,18/:wplus,wminus;
endsets
data:
    ctr=?;
    goal=??0;
    a=40000 25000 35000 5000 866 6952;
    b=1823 10000 40000 28672 431 400 250 10000 6000;
    c=99.9 99.9 92 92 67.2 30.29;
    d=99.9 99.9 98 97 92 91 91 90 85;
    e=158.665 173.660 102.725 55.617 0 0 158.665 173.660 102.725 55.617 0 0
      158.665 173.660 102.725 55.617 0 0 158.665 173.660 102.725 55.617 0 0
      158.665 173.660 102.725 55.617 0 0 158.665 173.660 102.725 55.617 0 0
      158.665 173.660 102.725 55.617 0 0 158.665 173.660 102.725 55.617 0 0
      158.665 173.660 102.725 55.617 0 0;
     wplus=0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1;
    wminus=1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 1 0 0;
enddata
    min=@sum(level:p*z);
    p(ctr)=1;
    @for(level(n)|n#ne#ctr:p(n)=0);
    @for(level(n):z(n)=@sum(obj(i,j):wplus(i,j)*dplus(j)+
    wminus(i,j)*dminus(j)));
    @for(source(i):@sum(sink(j):x(i,j))     @for(sink(j):@sum(source(i):x(i,j))+dminus(9+j)-dplus(9+j)=b(j));
    @sum(source(i):c*x(i,1))/@sum(source(i):x(i,1))+dminus(1)-dplus(1)=d(1);
    @sum(source(i):c*x(i,2))/@sum(source(i):x(i,2))+dminus(2)-dplus(2)=d(2);
    @sum(source(i):c*x(i,3))/@sum(source(i):x(i,3))+dminus(3)-dplus(3)=d(3);
    @sum(source(i):c*x(i,4))/@sum(source(i):x(i,4))+dminus(4)-dplus(4)=d(4);
    @sum(source(i):c*x(i,5))/@sum(source(i):x(i,5))+dminus(5)-dplus(5)=d(5);
    @sum(source(i):c*x(i,9))/@sum(source(i):x(i,6))+dminus(6)-dplus(6)=d(6);
    @sum(source(i):c*x(i,9))/@sum(source(i):x(i,7))+dminus(7)-dplus(7)=d(7);
    @sum(source(i):c*x(i,9))/@sum(source(i):x(i,8))+dminus(8)-dplus(8)=d(8);
    @sum(source(i):c*x(i,9))/@sum(source(i):x(i,9))+dminus(9)-dplus(9)=d(9);
    @sum(costs:e*x)+dminus(19)-dplus(19)=12618900;
    @for(level(n)|n#lt#@size(level):@bnd(0,z(n),goal));
end

用lingo编了一个程序,但是电脑算了一个多小时了,还是没算完,请教哪位高手看一下,
回复此楼

» 猜你喜欢

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 caibin088789 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 面上本子正文33页,违规吗?会被低分嘛? +11 1234567wang 2026-05-17 13/650 2026-05-20 18:55 by tanfancy
[基金申请] 提交了我也来说说感想 +6 fummck 2026-05-20 6/300 2026-05-20 17:29 by 姜太公烤鱼
[论文投稿] Sci. Bull. 悲剧经验 +6 jyang1999 2026-05-16 7/350 2026-05-20 16:39 by feng6531
[基金申请] 今年审到国自然15份,谈谈感受 +19 国自然国社科中 2026-05-17 20/1000 2026-05-20 14:14 by 仲夏夜的星星
[基金申请] 国自然评分 +3 无名者登山 2026-05-20 4/200 2026-05-20 13:29 by vito刘
[考博] 如果工作了想读博,可以边工作边读全日制嘛? 30+3 铁达火车 2026-05-18 5/250 2026-05-20 09:33 by tfang
[基金申请] 河北省自然科学基金 +3 Peterchao 2026-05-18 3/150 2026-05-20 08:57 by 霸_霸
[教师之家] 上海大学实验技术岗位非升即走 +12 嘻嘻哈哈乐呵呵 2026-05-15 13/650 2026-05-20 08:34 by xli1984
[文学芳草园] 献血感触 +6 呀呀好傻 2026-05-19 11/550 2026-05-19 22:26 by 而立得乐
[考博] 云南大学材料与能源学院解琳课题组钙钛矿博士招生 +3 光伏爱好者 2026-05-17 5/250 2026-05-19 19:13 by 光伏爱好者
[考博] 找博士生导师 +6 小代想上岸 2026-05-15 7/350 2026-05-19 10:22 by free_fisher
[考博] 26/27申博自荐-锂/钠电池方向 5+3 狗头军师. 2026-05-15 4/200 2026-05-19 09:10 by moonboat
[基金申请] 同样的基金本子,换个专家直接从C变A! (金币-10) +3 国自然国社科中 2026-05-19 3/150 2026-05-19 08:50 by Equinoxhua
[基金申请] 别被青基扩招骗了!26年科研内卷才刚刚开始 +3 国自然国社科中 2026-05-14 4/200 2026-05-19 08:48 by archvillain
[考博] 2026博士还有哪些学校有名额 +7 小王求读研 2026-05-15 8/400 2026-05-19 08:27 by zhyzzh
[硕博家园] 我在等一个没有答案的答案 +3 Love_MH 2026-05-17 3/150 2026-05-18 02:22 by 竹林孤影
[文学芳草园] 半夜喝咖啡 +3 myrtle 2026-05-15 5/250 2026-05-18 01:03 by 小沈2018
[考博] 光量子物理方向 博士招生 1人(2026.09) +3 sandyworld 2026-05-15 4/200 2026-05-17 14:38 by sandyworld
[有机交流] 求助2,4-二氯-5-嘧啶甲醛的合成方法 20+3 光吃不拉 2026-05-14 6/300 2026-05-16 19:46 by Equinoxhua
[硕博家园] 申请博士 +3 呃?呃 2026-05-15 3/150 2026-05-16 11:01 by a4742549
信息提示
请填处理意见