求最短路的lingo程序,运行有错误啊!!
sets:
years/1..6/:L;
roads(years,years)/
1,2 2,3 3,4 4,5 5,6 1,3 2,4 3,5 4,6
1,4 2,5 3,6 1,5 2,6
1,6/:D;
endsets
data:
D=7,7,7,7,7,12,12,12,12
21,21,21,31,31
44;
enddata
L(1)=0;
@for(years(i)|i#GT#1:L(i)=@min(roads(i,j):D(i,j)+L(j)));
end