lingo编程

Question

MODEL:

SETS:
r/1..4/:t1,t2，t3;
t/1..7/:;
p(r,r,t):y;
q(r,r):A,B;
endsets
DATA:
G=50;
B=
1000 1500 1300 1000
800 800 900 800
600 700 700 700
500 600 400 500;
A =
250 200 170 110
250 200 170 110
250 200 170 110
250 200 170 110;
t1=17 20 15 18;
t2=12 25 17 10;
t3=48 125 119 70;
ENDDATA

max=@sum(p(i,j,k):y(i,j,k)*(B(i,j)-A(i,j)))-@sum(p(i,j,k)|i#GE#3:y(i,j,k)*G);
@for(r(i)；@sum(p(i,j,k):y(i,j,k))<=t3(i));
@for(r(k):
@bnd(1,y(1,1,k),3);@bnd(2,y(1,2,k),5);y(1,3,k)=2;@bnd(1,y(1,4,k),2);
y(2,1,k)>=2;y(2,2,k)>=2;y(2,3,k)>=2;@bnd(2,y(2,4,k),8);
y(3,1,k)>=2;y(3,2,k)>=2;y(3,3,k)>=2;y(3,4,k)>=1;
y(4,1,k)>=1;y(4,2,k)>=3;y(4,3,k)>=1;y(4,4,k)=0
);
@for(q(i,k):@sum(p(i,j,k):y(i,j,k))<=t2(i));
@for(q(j,k):@sum(p(i,j,k):y(i,j,k))<=t1(j));

@for(p:@GIN(y));
END
有什么问题

Answer 1

我把思路告诉你，这里没有lingo软件。。。
sets部分
你先假设有16个软盘disk（因为16个文件最多用到16个软盘）软盘的级属性是一个（0，1）变量q（0表示没有用到，1表示用到）。
16个文件doc，属性是他们分别的大小s。
doc和disk的父集link，属性是p也是0-1变量，表示某个doc是否放在某个disk里
data部分：
对文件的大小赋值。
目标函数：
min=@sum(disk(i):q(i));!用到软盘的最大数;
约束条件：
@for(doc(i):@sum(disk(j):p(i,j))=1);!每个文件只能放一次;
@for(disk(j):@sum(doc(i):s(i)*p(i,j))<1.44*1024);!每张盘的容量上限;

追问

这段程序运行有问题。希望知道问题出在哪

Answer 2

我有加标记的两行里面有标点使用错误，应该用英文状态下的。。。

MODEL:

SETS:
r/1..4/:t1,t2,t3;!;
t/1..7/:;
p(r,r,t):y;
q(r,r):A,B;
endsets
DATA:
G=50;
B=
1000 1500 1300 1000
800 800 900 800
600 700 700 700
500 600 400 500;
A =
250 200 170 110
250 200 170 110
250 200 170 110
250 200 170 110;
t1=17 20 15 18;
t2=12 25 17 10;
t3=48 125 119 70;
ENDDATA

max=@sum(p(i,j,k):y(i,j,k)*(B(i,j)-A(i,j)))-@sum(p(i,j,k)|i#GE#3:y(i,j,k)*G);
@for(r(i):@sum(p(i,j,k):y(i,j,k))<=t3(i));!;
@for(r(k):
@bnd(1,y(1,1,k),3);@bnd(2,y(1,2,k),5);y(1,3,k)=2;@bnd(1,y(1,4,k),2);
y(2,1,k)>=2;y(2,2,k)>=2;y(2,3,k)>=2;@bnd(2,y(2,4,k),8);
y(3,1,k)>=2;y(3,2,k)>=2;y(3,3,k)>=2;y(3,4,k)>=1;
y(4,1,k)>=1;y(4,2,k)>=3;y(4,3,k)>=1;y(4,4,k)=0
);
@for(q(i,k):@sum(p(i,j,k):y(i,j,k))<=t2(i));
@for(q(j,k):@sum(p(i,j,k):y(i,j,k))<=t1(j));

@for(p:@GIN(y));
END