小卢 发表于 2012-8-26 20:20

求HELP


程序是这样的：
model:
sets:
city/A,B,C,D,E,F,G/;
roads(city,city)/A B,A C,B D,B E,B  F,C D,C  E,C F,D G,E G,F G/:W,x;
endsets
data:
w=2,4,3,3,1,2,3,1,1,3,4;
enddata
n=@size(city);
@for(city(i)|i#gt#1#and#i#lt#n:@sum(roads(i,j):x(i,j))=@sum(roads(j,i):x(j,i));
@sum(roads(i,j)|i#eq#1:x(i,j))=1;
@sum(roads(i,j)|j#eq#n:x(i,j))=1;
@for(roads(i,j):@bin(x));
min=@sum(roads(i,j):W(i,j)*x(i,j));
end
请问那儿错了啊。。。

shaox 发表于 2012-8-26 20:38

lz应该把帖子放到lingo论坛~~{:3_41:}

美0725 发表于 2012-8-27 09:28

问题1： city 集合没有属性，那么是给city的什么赋值呢? 就比如一个集合是学生，然后你给学生赋值为20，那这个20是什么呢？是年龄，还是序号？
问题2：@for函数少了一个右括号…… 建议每打一个函数时，直接打成@for()的形式之后在往里填东西~

ps:感觉这是求从A到G的最短路径吧？如果不是请无视…………
试试下面这个程序~：
model:
sets:
city/A,B,C,D,E,F,G/:l;
roads(city,city)/A B,A C,B D,B E,B F,C D,C E,C F,D G,E G,F G/:w;
endsets
data:
l=0, , , , , , ;
w=2,4,3,3,1,2,3,1,1,3,4;
enddata
@for(city(i)|i#gt#1:l(i)=@min(roads(j,i):l(j)+w(j,i)));
end

美0725 发表于 2012-8-27 09:29

问题1： city 集合没有属性，那么是给city的什么赋值呢? 就比如一个集合是学生，然后你给学生赋值为20，那这个20是什么呢？是年龄，还是序号？
问题2：@for函数少了一个右括号…… 建议每打一个函数时，直接打成@for()的形式之后在往里填东西~

ps:感觉这是求从A到G的最短路径吧？如果不是请无视…………
试试下面这个程序~：
model:
sets:
city/A,B,C,D,E,F,G/:l;
roads(city,city)/A B,A C,B D,B E,B F,C D,C E,C F,D G,E G,F G/:w;
endsets
data:
l=0, , , , , , ;
w=2,4,3,3,1,2,3,1,1,3,4;
enddata
@for(city(i)|i#gt#1:l(i)=@min(roads(j,i):l(j)+w(j,i)));
end

一路顺风-顺顺 发表于 2012-8-27 10:13

美0725 发表于 2012-8-27 09:29 static/image/common/back.gif
问题1： city 集合没有属性，那么是给city的什么赋值呢? 就比如一个集合是学生，然后你给学生赋值为20，那这 ...

LINGO学的不错呀~~~~~~

美0725 发表于 2012-8-27 10:35

一路顺风-顺顺 发表于 2012-8-27 10:13 static/image/common/back.gif
LINGO学的不错呀~~~~~~

额……现学现卖~

一路顺风-顺顺 发表于 2012-8-27 10:37

美0725 发表于 2012-8-27 10:35 static/image/common/back.gif
额……现学现卖~

现学现卖也不错~~~~~

美0725 发表于 2012-8-27 10:39

一路顺风-顺顺 发表于 2012-8-27 10:37 static/image/common/back.gif
现学现卖也不错~~~~~

吼吼~~~~{:3_59:}

天海星云 发表于 2012-8-28 10:56

有个同学回帖了，你不满意么

小卢 发表于 2012-8-28 12:47

美0725 发表于 2012-8-27 09:28 static/image/common/back.gif
问题1： city 集合没有属性，那么是给city的什么赋值呢? 就比如一个集合是学生，然后你给学生赋值为20，那这 ...

可以不要属性，题目是求A到G的最短路问题。你的程序运行没错。
页: [1] 2
查看完整版本: 求HELP