论坛 › LINDO\LINGO论坛 › Lingo程序求助 哪位大侠帮帮忙啊

Chewein 发表于 2011-8-13 01:33

Lingo程序求助 哪位大侠帮帮忙啊

以下是自己写的程序  能运行但是无解
sets:
jiedian/1..42/:g;
che/1..11/:q;
edge(jiedian,jiedian):d,c;
xingshi(che,jiedian,jiedian):x;
liang(che,jiedian):s;
endsets
data:
g=0 2.8 1.9        0.6 1.3 1.15 2.1 1.4 2.1 1.6 1.75 1.3 2.75 2.1 1.8 0.65 1.5 1.2 1.5 2.51 1.85 0.85 1.4 1.2 2.3 1.45 1.6 1.6        1.3 2.1 1 2.1 1.25 1.9 1.4 1.65 1.2 1.5 2.1 2.2        3.2 2.95;
q=7 7 7 7 7 7 7 7 7 7 7;
d=@file('距离.txt');！d是42X42的矩阵；
enddata
min=cost;
cost=@sum(che(k):@sum(edge(i,j):c(i,j)*d(i,j)*x(k,i,j)*s(k,i)));
@for(che(k):@sum(edge(i,j):x(k,i,j)*d(i,j))*4/3+0.1*(@sum(xingshi(k,i,j):x(k,i,j))-2)<240);
@for(che(k):@sum(xingshi(k,i,j):x(k,i,j)*g(j))<q(k));
@for(jiedian(j):@sum(xingshi(k,i,j):x(k,i,j))=1);
@for(jiedian(i):@sum(xingshi(k,i,j):x(k,i,j))=1);
@for(xingshi(k,i,j):@bin(x(k,i,j)));
@for(edge(i,j)|i #eq# 1:c=1.5);
@for(edge(i,j)|i #gt# 1:c=3.5);
@for(che(k):s(k,1)=0);
@for(jiedian(i):@for(liang(k,j):s(k,j)=((s(k,i)+g(i)))*x(k,i,j)));
end

Chewein 发表于 2011-8-13 01:34

为什么所有的@都变成图片了？？？？？？？

厚积薄发 发表于 2011-8-13 07:52

Chewein 发表于 2011-8-13 01:34 static/image/common/back.gif
为什么所有的@都变成图片了？？？？？？？

你用嵌入代码发就不存在这个问题了

厚积薄发 发表于 2011-8-13 07:52

以下是自己写的程序  能运行但是无解
sets:
jiedian/1..42/:g;
che/1..11/:q;
edge(jiedian,jiedian):d,c;
xingshi(che,jiedian,jiedian):x;
liang(che,jiedian):s;
endsets
data:
g=0 2.8 1.9        0.6 1.3 1.15 2.1 1.4 2.1 1.6 1.75 1.3 2.75 2.1 1.8 0.65 1.5 1.2 1.5 2.51 1.85 0.85 1.4 1.2 2.3 1.45 1.6 1.6        1.3 2.1 1 2.1 1.25 1.9 1.4 1.65 1.2 1.5 2.1 2.2        3.2 2.95;
q=7 7 7 7 7 7 7 7 7 7 7;
d=@file('距离.txt');！d是42X42的矩阵；
enddata
min=cost;
cost=@sum(che(k)sum(edge(i,j):c(i,j)*d(i,j)*x(k,i,j)*s(k,i)));
@for(che(k)sum(edge(i,j):x(k,i,j)*d(i,j))*4/3+0.1*(@sum(xingshi(k,i,j):x(k,i,j))-2)<240);
@for(che(k)sum(xingshi(k,i,j):x(k,i,j)*g(j))<q(k));
@for(jiedian(j)sum(xingshi(k,i,j):x(k,i,j))=1);
@for(jiedian(i)sum(xingshi(k,i,j):x(k,i,j))=1);
@for(xingshi(k,i,j)bin(x(k,i,j)));
@for(edge(i,j)|i #eq# 1:c=1.5);
@for(edge(i,j)|i #gt# 1:c=3.5);
@for(che(k):s(k,1)=0);
@for(jiedian(i)for(liang(k,j):s(k,j)=((s(k,i)+g(i)))*x(k,i,j)));
end

xieyun 发表于 2011-8-13 08:34

看不懂哈。。。

I_know__!!!! 发表于 2011-8-13 08:53

厚积薄发 发表于 2011-8-13 07:52 static/image/common/back.gif
你用嵌入代码发就不存在这个问题了

原来如此。

I_know__!!!! 发表于 2011-8-13 08:57

d=@file('距离.txt');！d是42X42的矩阵；
我用其他的数据，没办法引用啊，怎么回事？
求救。

jjc616 发表于 2011-8-13 12:11

呵呵，这个问题用lingo很难求解

yujingxian 发表于 2011-8-13 12:35

把距离.txt法出来

发现者2011 发表于 2011-8-13 14:34

杀红眼了。。。。。。。。。

查看完整版本: Lingo程序求助 哪位大侠帮帮忙啊