model "cvicenie 2" !pr 4 Dopravna uloha

uses "mmxprs"

declarations
skl=(1..3)
zak=(1..4)
a : array(skl) of real;
b : array(zak) of real;
c : array(1..3, 1..4) of real;
x : array(skl, zak) of mpvar;
end-declarations

a := [100, 150, 200]
b := [80, 80, 140, 80]
c := [4, 8, 9, 5, 7, 6, 6, 4, 8, 6, 9, 6]

NAKL := sum (i in skl, j in zak)c(i,j)*x(i,j) !ucelova fcia

forall(i in skl) sum(j in zak) x(i,j) <= a(i)
forall(j in zak) sum(i in skl) x(i,j)  = b(j)

!prikaz optimalizacie
minimize(NAKL);

!Vypis Riesenia

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

end-model