przepływy maxymalny przepływ
proc optmodel;
set wezly={'a','b',itd.};
set luki={'ab','ac','bc'...itd na końcu trzeba dosać 'fa' czyli od ostatniego do pierwszego węzła};
num c{j in luki}=[koszt przepłyu = same zera i w ostatnim -1 tyle zamo co łuków];
num u{j in luki}=[pojemność w ostatnim bardzo duża liczba np 150];
num b{i in wezly}=[ile ma przepłynąc same zera];
num A{i in wezly, j  in luki}=[macierz incydencji];
var x{j in luki}>=0 <=u[j];
min koszt=sum{j in luki}c[j]*x[j];
con war{i in wezly}:sum{j in luki}A[i,j]*x[j]=b[i];
solve;
print x;
quit;