model "cvicenie 4" !Uloha s kontajnermi - nedokoncena.

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;
y : mpvar; !zadanie 2), 3), 5)
z : mpvar !zadanie 4)
end-declarations

a := [100, 150, 200]
b := [80, 80, 140, 80]
c := [40, 80, 90, 50, 
	  70, 60, 60, 40,
	  80, 60, 90, 60] 

NAKL := sum (i in skl, j in zak) c(i,j)*y(i,j)

forall(i in skl) sum(j in zak) c(i,j) <= a(i)
forall(j in zak) sum(i in skl) x(i,j) =  b(j)
forall(i in skl, j in zak) x(i,j)<= 50*y(i,j)
forall(i in skl, j in zak) y(i,j) is_integer 



!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