求lingo高手!mcm1988b题目,用lingo咋写代码.新手待解救,财富不多,见谅!貌似自己写的很多错啊...先谢过了!model:Title:train problem;sets:huowu/1..7/:t,w,k;train/1..2/:x;link(huowu,train):h;endsetsdata:t=48.7,52.0,61.3,72.0,

来源:学生作业帮助网 编辑:作业帮 时间:2024/03/29 04:31:25

求lingo高手!mcm1988b题目,用lingo咋写代码.新手待解救,财富不多,见谅!
貌似自己写的很多错啊...先谢过了!
model:
Title:train problem;
sets:
huowu/1..7/:t,w,k;
train/1..2/:x;
link(huowu,train):h;
endsets
data:
t=48.7,52.0,61.3,72.0,48.7,52.0,64.0;
w=2000,3000,1000,500,4000,2000,1000;
k=8,7,9,6,6,4,3;
enddata
init:
x=1;
endinit
[OBJ]max=@for(train(j):@sum(huowu(i):h(i,j)*t(i)););
@for(huowu(i):[HUOWU_COM]@sum(train(j):h(i,j))=k(i););
@sum(huowu(i):h(i,1)*t(i)

model:Title: train problem;
sets:
huowu/1..7/:t,w,k;
train/1..2/:x;
link(huowu,train):h;
endsets
data:t=48.7,52.0,61.3,72.0,48.7,52.0,64.0;
w=2000,3000,1000,500,4000,2000,1000;
k=8,7,9,6,6,4,3;
enddata
init:
x=1;
endinit
[OBJ]max=@sum(train(j):@sum(huowu(i):h(i,j)*t(i)););
@for(huowu(i):[HUOWU_COM]@sum(train(j):h(i,j))=k(i));
@sum(huowu(i):h(i,1)*t(i))