用lingo语言编写程序

编写一个lingo代码或C语言程序~

那每列是不是也选一个 你这样说每行选最小的就完了 自己把问题描述清楚再说

sets:
store/1..4/:d;
center/1,2,3/:c;
indext(store,center)/2,2 3,3 4,2 4,3/:tral,pricet,trun1,turn2,m;!铁路;
indexr(store,center)/1,1 1,2 2,2 3,2 3,3 4,2 4,3/:road,pricer;!公路;
endsets
data:
d=50 40 35 65;
pricet=14 4 11 10;
pricer=12 14 12 9 5 14 14;
enddata
min=@sum(indext(i,j):tral(i,j)*pricet(i,j))+@sum(indexr(l,k):road(l,k)*pricer(l,k));
@sum(indext(i,j):tral(i,j))+@sum(indexr(i,j):road(i,j))=180;
@for(indext:@bin(turn1));
@for(indext:@bin(turn2));
@for(indext:m>10);
@for(indext:m<50);
@for(indext:trun1+turn2=1);
@for(indext:tral=turn1*0+turn2*m);
road(1,1)+road(1,2)=50;
road(2,2)+tral(2,2)=40;
road(3,2)+road(3,3)+tral(3,3)=35;
road(4,2)+road(4,3)+tral(4,2)+tral(4,3)=65;

还有一种方法：
sets:
store/1..4/:d;
center/1..3/:c;
index(store,center):tral,pricet,trun1,turn2,m,road,pricer;
endsets
data:
d=50 40 35 65;
pricet=100000 100000 100000
100000 14 100000
100000 100000 4
100000 11 10;
pricer=12 14 100000
100000 12 100000
100000 9 5
100000 14 14;
enddata
min=@sum(index(i,j):tral(i,j)*pricet(i,j))+@sum(index(l,k):road(l,k)*pricer(l,k));
@sum(index(i,j):tral(i,j))+@sum(index(i,j):road(i,j))=180;
@for(index:@bin(turn1));
@for(index:@bin(turn2));
@for(index:m>10);
@for(index:m<50);
@for(index:trun1+turn2=1);
@for(index:tral=turn1*0+turn2*m);
@for(store(i):@sum(center(j):tral(i,j)+road(i,j))=d(i));
不过好奇怪，你这个模型好像没有解

你看这样行吗？ 结果有了！

model:
! x 吨 A 原料 2x 吨 B 原料 生产 甲轴承
  y 吨 A 原料 0.6y 吨 B 原料 生产 乙轴承;
sets:
c/1..3/: cities, pri_jia, pri_yi; ! pri_jia：甲的价格, pri_yi： 乙的价格;
endsets

data:
pri_jia = 2 3 4;
pri_yi = 6 4 2;
enddata

max = @sum(c(i): cities(i)*(pri_jia*0.5*x + pri_yi(i)*0.2*y));

2*x + 0.6*y <= 12;
x + y <= 10;

x * 0.5 < 2.5;
y * 0.2 < 1.5;

@sum(c(i): cities(i)) = 1; ! 保证“全部销售到同一个地方”;
end

结果分析：2.5 吨 A 原料，5吨 B 原料，用来生产  1.25 千套 甲产品；7.5 吨 A 原料，4.5 吨B原料生产 1.5 套乙产品！只有 cities(3) 为 1，表示运往广州！ 最后，max = 11.50000

---

用lingo语言编写程序视频