运用Lingo求解网络最大流的方法

sets:
l/1..6/;
m(l,l)/1,2 2,6 1,5 5,3 3,6 5,4 4,6 3,4 2,3 3,2 4,5 3,5/:x,f;
!x(i,j):节点i到节点j的单位时间流量;
!f(i,j): 节点i到节点j的带宽;
endsets
data:
f=10 4 9 6 11 7 12 5 6 6 7 6;
@text()=@status();
enddata
@for(l(i)|i#ge#2#and#i#le#@size(l)-1:@sum(m(i,j):x(i,j))=@sum(m(j,i):x(j,i)));
! 中间节点的输入等于输出;
@for(m(i,j):@gin(x(i,j));
x(i,j)