论坛 › 编程交流 › 求lingo高手帮个忙，错误代码1017

晶莹夏日 发表于 2008-2-17 16:43:37

求lingo高手帮个忙，错误代码1017

拜托lingo高手帮忙修改下程序，快急死了，错误代码1017
模型：
min Z=∑∑tijxij
∑jxij-∑jxji=bi
xij≤100*yij
xkl≤100*(1-yij)
∑jyji≤zi+1
∑izi≤1
0≤xij≤100
程序：
sets:
nodes/o1,o2,o3,o4,o5,o6,o7,o8,m1,m2,m3,m4,m5,m6,m7,m8,d1,d2,d3,d4,d5,d6,d7,d8/:b,z;
arcs(nodes,nodes):t,x,y;
endsets
data:
t=100 100 100 100 100 100 100 100 100 100 100 100 100 100 100 100 100 1 100 100 100 100 100 100
100 100 100 100 100 100 100 100 100 100 100 1 100 100 100 100 100 100 100 100 100 100 100 100
100 100 100 100 100 100 100 100 100 100 100 100 100 100 100 100 100 100 100 100 1 100 100 100
100 100 100 100 100 100 100 100 100 1 100 100 100 100 100 100 100 100 100 100 100 100 100 100
100 100 100 100 100 100 100 100 100 100 100 100 100 100 1 100 100 100 100 100 100 100 100 100
100 100 100 100 100 100 100 100 100 100 100 100 100 100 100 100 100 100 100 1 100 100 100 100
100 100 100 100 100 100 100 100 100 100 100 100 1 100 100 100 100 100 100 100 100 100 100 100
100 100 100 100 100 100 100 100 100 100 100 100 100 100 100 100 100 100 100 100 100 100 1 100
100 100 1 100 100 100 100 100 100 1 100 100 100 100 100 100 100 1 100 100 100 100 100 100
100 1 100 100 100 100 100 100 100 100 100 100 100 100 100 100 1 1 100 100 100 100 100 100
1 100 100 100 100 100 100 100 100 100 100 1 100 100 100 100 100 100 100 1 100 100 100 100
100 100 100 100 1 100 100 100 100 100 100 100 100 100 100 100 100 100 1 1 100 100 100 100
100 100 100 1 100 100 100 100 100 100 100 100 100 100 100 100 100 100 100 100 1 1 100 100
100 100 100 100 100 100 100 1 100 100 100 100 1 100 100 100 100 100 100 100 1 100 100 100
100 100 100 100 100 100 1 100 100 100 100 100 100 100 100 100 100 100 100 100 100 100 1 1
100 100 100 100 100 1 100 100 100 100 100 100 100 100 1 100 100 100 100 100 100 100 1 100
100 100 100 100 100 100 100 100 1 2 100 100 100 100 100 100 100 100 100 100 100 100 100 100
100 100 100 100 100 100 100 100 2 100 100 100 100 100 100 100 1 100 100 100 100 100 100 100
100 100 100 100 100 100 100 100 100 100 1 2 100 100 100 100 100 100 100 100 100 100 100 100
100 100 100 100 100 100 100 100 100 100 2 100 100 100 100 100 100 100 1 100 100 100 100 100
100 100 100 100 100 100 100 100 100 100 100 100 100 2 100 100 100 100 100 100 100 1 100 100
100 100 100 100 100 100 100 100 100 100 100 100 2 1 100 100 100 100 100 100 100 100 100 100
100 100 100 100 100 100 100 100 100 100 100 100 100 100 100 2 100 100 100 100 100 100 100 1
100 100 100 100 100 100 100 100 100 100 100 100 100 100 2 1 100 100 100 100 100 100 100 100
;
b=1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1;
enddata
min=@sum(arcs(i,j):t(i,j)*x(i,j));
@for(nodes(i):
   @sum(nodes(j):x(i,j)) - @sum(nodes(j):x(j,i))=b(i)
);
@for(arcs:
   x(i,j)<=100*y(i,j);
   x(k,l)<=100-100*y(i,j);
);
@for(nodes:
   @sum(nodes(j):y(j,i))<=z(i)+1);
@for(nodes:
   @sum(nodes(i):z(i))<=1);
@for(arcs:@bin(y));
@for(arcs:@bnd(0,x,100));
end
谢谢了

dingjun 发表于 2008-4-29 12:19:31

xkl到底是什么呀？

dingjun 发表于 2008-4-29 12:47:38

xkl到底是什么呀？ 改了一下sets:
nodes/o1,o2,o3,o4,o5,o6,o7,o8,m1,m2,m3,m4,m5,m6,m7,m8,d1,d2,d3,d4,d5,d6,d7,d8/:b,z;
arcs(nodes,nodes):t,x,y;
endsets
data:
t=100 100 100 100 100 100 100 100 100 100 100 100 100 100 100 100 100 1 100 100 100 100 100 100
100 100 100 100 100 100 100 100 100 100 100 1 100 100 100 100 100 100 100 100 100 100 100 100
100 100 100 100 100 100 100 100 100 100 100 100 100 100 100 100 100 100 100 100 1 100 100 100
100 100 100 100 100 100 100 100 100 1 100 100 100 100 100 100 100 100 100 100 100 100 100 100
100 100 100 100 100 100 100 100 100 100 100 100 100 100 1 100 100 100 100 100 100 100 100 100
100 100 100 100 100 100 100 100 100 100 100 100 100 100 100 100 100 100 100 1 100 100 100 100
100 100 100 100 100 100 100 100 100 100 100 100 1 100 100 100 100 100 100 100 100 100 100 100
100 100 100 100 100 100 100 100 100 100 100 100 100 100 100 100 100 100 100 100 100 100 1 100
100 100 1 100 100 100 100 100 100 1 100 100 100 100 100 100 100 1 100 100 100 100 100 100
100 1 100 100 100 100 100 100 100 100 100 100 100 100 100 100 1 1 100 100 100 100 100 100
1 100 100 100 100 100 100 100 100 100 100 1 100 100 100 100 100 100 100 1 100 100 100 100
100 100 100 100 1 100 100 100 100 100 100 100 100 100 100 100 100 100 1 1 100 100 100 100
100 100 100 1 100 100 100 100 100 100 100 100 100 100 100 100 100 100 100 100 1 1 100 100
100 100 100 100 100 100 100 1 100 100 100 100 1 100 100 100 100 100 100 100 1 100 100 100
100 100 100 100 100 100 1 100 100 100 100 100 100 100 100 100 100 100 100 100 100 100 1 1
100 100 100 100 100 1 100 100 100 100 100 100 100 100 1 100 100 100 100 100 100 100 1 100
100 100 100 100 100 100 100 100 1 2 100 100 100 100 100 100 100 100 100 100 100 100 100 100
100 100 100 100 100 100 100 100 2 100 100 100 100 100 100 100 1 100 100 100 100 100 100 100
100 100 100 100 100 100 100 100 100 100 1 2 100 100 100 100 100 100 100 100 100 100 100 100
100 100 100 100 100 100 100 100 100 100 2 100 100 100 100 100 100 100 1 100 100 100 100 100
100 100 100 100 100 100 100 100 100 100 100 100 100 2 100 100 100 100 100 100 100 1 100 100
100 100 100 100 100 100 100 100 100 100 100 100 2 1 100 100 100 100 100 100 100 100 100 100
100 100 100 100 100 100 100 100 100 100 100 100 100 100 100 2 100 100 100 100 100 100 100 1
100 100 100 100 100 100 100 100 100 100 100 100 100 100 2 1 100 100 100 100 100 100 100 100
;
b=1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 -1;
enddata
min=@sum(arcs:t*x);
@for(nodes(i):
@sum(nodes(j):x(i,j)) - @sum(nodes(j):x(j,i))=b(i)
);
@for(arcs(i,j):
x(i,j)<=100*y(i,j));
@for(arcs(i,j):
@sum(arcs(k,l):x(k,l)#le#100*(1-y(i,j)))>=1);
@for(nodes(i):
@sum(nodes(j):y(j,i))<=z(i)+1);
@for(nodes:
@sum(nodes(i):z(i))<=1);
@for(arcs:@bin(y));
@for(arcs:@bnd(0,x,100));，还是算不出

查看完整版本: 求lingo高手帮个忙，错误代码1017