model "cvicenie 4" !Priklad 3 taxiky. Stvrty priklad je rovnaky princip akurat sa zmeni minimize na max.. , index sa zvysi o 1, a zmenia sa hodnoty v c.

uses "mmxprs"

declarations
index = 1..3
c : array(index, index) of real;
x : array(index, index) of mpvar;
end-declarations

c := [6, 16, 9, 12, 17, 10, 10, 14, 8.5] 

NAKL := sum (i in index, j in index) c(i,j)*x(i,j)

forall(i in index)kap(i):=sum(j in index) x(i,j) = 1
forall(j in index)poz(j):=sum(i in index) x(i,j) = 1

!prikaz optimalizacie
minimize(NAKL);

!Vypis Riesenia

writeln("Naklady = ", strfmt(getobjval,6,1))
writeln
forall(i in index) do
  forall(j in index|getsol(x(i,j))>0) do
     write("X(", i, ",", j, ") =", strfmt(getsol(x(i,j)), 5, 1), " ");
  end-do
  writeln;
  end-do 

end-model