灵鹊做题网编写下程序用lingo
来源：学生作业帮 编辑：灵鹊做题网作业帮 分类：综合作业 时间：2024/04/30 02:40:10
编写下程序用lingo
某公司有6个建筑工地要开工,每个工地的位置（用平面坐标系a,b表示,距离单位：km)及水泥日用量d(单位：t),目前有两个临时料场位于A（5,1）B(2,7),日储量各有20t,假设从料场到工地之间均为直线道路相连.试制定每天的供应计划,即从A,B两个料场向其中的3个工地运送水泥,使总的吨千米数最小.a=1.25 8.7 0.5 5.75 3 7.25 b=1.25 0.75 4.75 5 6.5 7.75 d=3 5 4 7 6 11
某公司有6个建筑工地要开工,每个工地的位置（用平面坐标系a,b表示,距离单位：km)及水泥日用量d(单位：t),目前有两个临时料场位于A（5,1）B(2,7),日储量各有20t,假设从料场到工地之间均为直线道路相连.试制定每天的供应计划,即从A,B两个料场向其中的3个工地运送水泥,使总的吨千米数最小.a=1.25 8.7 0.5 5.75 3 7.25 b=1.25 0.75 4.75 5 6.5 7.75 d=3 5 4 7 6 11
你的问题就很奇怪 只向其中三个工地运吗? 这样也太浪费了 如果确认问题无误最好直接来找我
再问： 没错啦，我们老师临时改的题目，告诉我程序怎么编
再答： 这样写 不过改的真没什么意思 不典型 没意义 model: sets: s1/1,2/:x0,y0; s2/1..6/:a,b,d,c; link(s1,s2):x; endsets data: a=1.25 8.7 0.5 5.75 3 7.25; b=1.25 0.75 4.75 5 6.5 7.75; d=3 5 4 7 6 11; x0=5 2; y0=1 7; enddata min=@sum(link(i,j):@sqrt((a(j)-x0(i))^2+(b(j)-y0(i))^2)*d(j)*x(i,j)); @for(s2(j):c(j)=@if(@sum(s1(i):x(i,j)) #gt# 0,1,0)); @sum(s2(j):c(j))=3; @for(s2:@bin(c)); @for(s1(i):@sum(s2(j):x(i,j))
再问： 没错啦，我们老师临时改的题目，告诉我程序怎么编
再答： 这样写 不过改的真没什么意思 不典型 没意义 model: sets: s1/1,2/:x0,y0; s2/1..6/:a,b,d,c; link(s1,s2):x; endsets data: a=1.25 8.7 0.5 5.75 3 7.25; b=1.25 0.75 4.75 5 6.5 7.75; d=3 5 4 7 6 11; x0=5 2; y0=1 7; enddata min=@sum(link(i,j):@sqrt((a(j)-x0(i))^2+(b(j)-y0(i))^2)*d(j)*x(i,j)); @for(s2(j):c(j)=@if(@sum(s1(i):x(i,j)) #gt# 0,1,0)); @sum(s2(j):c(j))=3; @for(s2:@bin(c)); @for(s1(i):@sum(s2(j):x(i,j))