作业帮lingo中最短路径的程序
来源：学生作业帮 编辑：拍题作业网作业帮 分类：综合作业 时间：2024/06/10 11:30:22
lingo中最短路径的程序
sets:
cities/S,A1,A2,A3,B1,B2,C1,C2,T/;
roads(cities,cities)/S,A1 S,A2 S,A3 A1,B1 A1,B2 A2,B1 A2,B2 A3,B1 A3,B2 B1,C1 B1,C2 B2,C1 B2,C2
C1,T C2,T/:w,x;
endsets
data:
w=6 3 3 6 5 8 6 7 4 6 7 8 9 5 6;
enddata
n=@size(cities);
min=@sum(roads:w*x); %从这里开始我就不懂原理,
@for(cities(i)|i#ne#1#and#i#ne#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;
sets:
cities/S,A1,A2,A3,B1,B2,C1,C2,T/;
roads(cities,cities)/S,A1 S,A2 S,A3 A1,B1 A1,B2 A2,B1 A2,B2 A3,B1 A3,B2 B1,C1 B1,C2 B2,C1 B2,C2
C1,T C2,T/:w,x;
endsets
data:
w=6 3 3 6 5 8 6 7 4 6 7 8 9 5 6;
enddata
n=@size(cities);
min=@sum(roads:w*x); %从这里开始我就不懂原理,
@for(cities(i)|i#ne#1#and#i#ne#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;
你不懂哪里 你能写出模型吗? lingo就是把模型表示出来然后软件自己去解 根本不需要你想什么算法 很简单的