网络问题实验报告(五).docVIP

桂林理工大学理学院 运筹学上机报告 实验五 实验名称 网络问题 实验时间 2012年6 月 12 日 姓名 班级 学号 成绩 一、实验目的 二、实验内容与步骤 三、实验程序 四、实验结果 五、实验结果的分析 六、实验出现的问题 实验目的 利用lingo编程求解最短路、最大流问题 实验内容与步骤 掌握网络问题的数学模型；能够利用lingo编程求解网络问题。 实验程序 （ZDL1）model: !title 会计09-1班; sets: dots/s,2,3,4,5,t/; arcs(dots,dots):p,w,x;!w为弧的距离,x为决策变量; endsets data: p=0 1 0 1 0 0 1 0 1 1 1 0 0 1 0 1 1 1 1 1 1 0 1 0 0 1 1 1 0 1 0 0 1 0 1 0; w=0 9 0 8 0 0 9 0 1 5 3 0 0 1 0 7 4 3 8 5 7 0 7 0 0 3 4 7 0 10 0 0 3 0 10 0; enddata n=@size(dots); min=@sum(arcs:w*x); @for(dots(i)|i#ne#1#and#i#ne#n: @sum(dots(j):p(i,j)*x(i,j)) =@sum(dots(j):p(j,i)*x(j,i))); @sum(dots(j):p(1,j)*x(1,j))=1; End （ZDL2）model: !title ; sets: dots/1,2,3,4/; arcs(dots,dots)/ 1,2 1,3 1,4 2,1 2,3 3,1 3,2 3,4 4,1 4,3/:w,x;!w为弧的距离,x为决策变量; endsets data: w=1 2 1 2 7 6 5 2 1 4; enddata min=@sum(arcs:w*x);!目标函数; @sum(arcs(i,j)|i#eq#1:x(i,j))=1;!始点约束; @sum(arcs(i,j)|j#eq#4:x(i,j))=1;!终点约束; @for(dots(i)|i#ne#1 #and# i#ne#4: @sum(arcs(i,j):x(i,j))=@sum(arcs(j,i):x(j,i)));!中间点约束; End （ZDL3）model: !title 会计09-1班; sets: dots/s,2,3,4,5,t/;!最大流问题; arcs(dots,dots)/ s,2 s,4 2,3 2,4 3,t 4,5 5,2 5,3 5,t/:c,f;!c表示容量 f表示可行变量; endsets max=flow;!目标函数; @sum(arcs(i,j)|i#eq#1:f(i,j))=flow;!始点约束; @for(dots(i)|i#ne#1 #and# i#ne#6: @sum(arcs(i,j):f(i,j))=@sum(arcs(j,i):f(j,i)));!中间点约束; @for(arcs:@bnd(0,f,c));!弧容量约束; data: c=3 5 4 1 5 2 1 3 2; enddata end （ZDL4）model: !title 会计09-1班; sets: dots/1,2,3,4,5,6,7/;!最大流问题; arcs(dots,dots)/ 1,2 1,4 1,5 2,4 2,3 3,7 4,3 4,6 5,4 5,6 6,3 6,7/:c,f;!c表示容量 f表示可行变量; endsets max=flow;!目标函数; @sum(arcs(i,j)|i#eq#1:f(i,j))=flow;!始点约束; @for(dots(i)|i#ne#1 #and# i#ne#7: @sum(arcs(i,j):f(i,j))=@sum(arcs(j,i):f(j,i)));!中间点约束; @for(arcs:@bnd(0,f,c));!弧容量约束; data: c=5 4 8 3 6 8 2 8 4 4 8 9; enddata end 实验结