永发信息网

一个LINGO 旅行商问题

答案:1  悬赏:80  手机版
解决时间 2021-04-04 01:31
MODEL:
SETS:
CITY/1..14/: JL;
STEP/1..11/;
LINE( STEP, CITY): X;
LINKS(CITY,CITY):C;
ENDSETS

DATA:
JL=0,14,16,17,21,23,26,27,31,32,35,36,38,39
C= 0 0 0 0 1797 0 1392 0 0 0 0 0 0 0
0 0 2608 2196 3297 0 0 0 0 0 0 0 0 0
0 2608 0 0 0 2098 0 0 0 0 0 0 0 0
0 2196 0 0 2104 1775 0 0 0 0 0 0 0 0
1797 3297 0 2104 0 0 2192 0 0 0 0 0 0 0
0 0 2098 1775 0 0 0 0 0 1312 0 0 0 0
1392 0 0 0 2192 0 0 0 1537 0 0 0 0 0
0 0 0 0 0 0 0 0 1068 0 0 2204 0 1780
0 0 0 0 0 0 1537 1068 0 0 1114 0 0 0
0 0 0 0 0 1312 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 1114 0 0 0 1410 0
0 0 0 0 2880 0 0 2204 0 0 0 0 1537 0
0 0 0 0 0 0 0 0 0 0 1410 1537 0 0
0 0 0 0 0 0 0 1780 0 0 0 0 0 0
ENDDATA

@FOR( LINE : @BIn( X));
M1=@SIZE(STEP);
@FOR(CITY(I): @SUM(STEP(N): X(N,I)) = 1);
@FOR(STEP(N):@SUM(CITY(I):X(N,I))=1);
L1=@SUM(CITY(I):(X(1,I)+X(M1,I))*JL(I));
LX=@SUM(STEP(N)|N#LT#M1:@SUM(LINKS(I,J):C(I,J)*X(N,I)*X(N+1,J)));
MIN=L1+LX;
END
这是一个用LINGO求解旅行商问题的程序,在这个程序里面,一个人从O点出发,送货到13个位置,位置之间并不是两两相连的,这是求最短路径的但是不知道为啥有溢出的错误,请各路大侠帮忙看看问题出在哪个地方。。。。。。拜托了,各种紧急各种在线等。。。。。。
最佳答案



我不知道下面的step是指什么意思
STEP/1..11/;
LINE( STEP, CITY): X;

我换了一种方式来编:
MODEL:
SETS:
CITY / 1.. 14/: U;
LINK( CITY, CITY):DIST, X;
ENDSETS
DATA:
DIST = 0 0 0 0 1797 0 1392 0 0 0 0 0 0 0
0 0 2608 2196 3297 0 0 0 0 0 0 0 0 0
0 2608 0 0 0 2098 0 0 0 0 0 0 0 0
0 2196 0 0 2104 1775 0 0 0 0 0 0 0 0
1797 3297 0 2104 0 0 2192 0 0 0 0 0 0 0
0 0 2098 1775 0 0 0 0 0 1312 0 0 0 0
1392 0 0 0 2192 0 0 0 1537 0 0 0 0 0
0 0 0 0 0 0 0 0 1068 0 0 2204 0 1780
0 0 0 0 0 0 1537 1068 0 0 1114 0 0 0
0 0 0 0 0 1312 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 1114 0 0 0 1410 0
0 0 0 0 2880 0 0 2204 0 0 0 0 1537 0
0 0 0 0 0 0 0 0 0 0 1410 1537 0 0
0 0 0 0 0 0 0 1780 0 0 0 0 0 0;
ENDDATA
N = @SIZE( CITY);
MIN = @SUM( LINK: DIST * X);
@FOR( CITY( K):
@SUM( CITY( I)| I #NE# K: X( I, K)) = 1;
@SUM( CITY( J)| J #NE# K: X( K, J)) = 1;
@FOR( CITY( J)| J #GT# 1 #AND# J #NE# K:
U( J) >= U( K) + X ( K, J) -
( N - 2) * ( 1 - X( K, J)) +
( N - 3) * X( J, K));
);
@FOR( LINK: @BIn( X));
@FOR( CITY( K)| K #GT# 1:
U( K) <= N - 1 - ( N - 2) * X( 1, K);
U( K) >= 1 + ( N - 2) * X( K, 1)
);
END
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
来首藏头诗,以名字"欧妮"为原由~
5笔中井字怎样打拜托了各位 谢谢
WOW里千金马是个什么东西?
解答题下列命题:(1)每个二次函数的图象都
家养的雄老猫为什么攻击人
单选题企业生产的目的是A.盈利B.为社会服务C.
男孩12岁了,身高只有130cm正常吗
解方程3分之2x减1等于4分之x加2减1
京东首单是什么意思,京东app首单满79送79是什
大连体检中心五一广场分部,南石道街分部办理
为什么摩托车跑车比汽车跑车提速快
手机提示系统升级,是升级好还是原始糸统好
单选题鸦片战争中,英军迫使清政府签订不平等
孝义华美电影院今日15:oo一2o:oo上演什么?
学位论文综合评语,对论文的评价与建议应该怎
推荐资讯
香市中说从前农村还是桃源的时候,作者是想说
QQ聊天信息变了乱码
下沙商贸城坐什么公交车去星城客运站
真实女友注册表补丁为什么打不开
2010款东风标致307两厢1.6MT怎么样?
想前女友了,分手一个多月了,昨天喝酒了,忍不
男人微信朋友圈语录,失眠的时候想在微信上留
PS3可以玩PS2暴走山地自行车吗
谁有高中英语模块一到6的 英语单词 mp3
小学二年级诗歌,小学生二年级的作文课教案怎
24和36的最小公倍数
余易贷:p2p理财市场优势在哪?
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?