TITLE Pivovar;
!pczv-pivovar.mpl
    
OPTIONS
ExcelWorkBook="pczv-pivovar.xlsm";

INDEX
i := EXCELRANGE("Optimalizace!misto");
j := i;
   
DATA
c[i,j] :=EXCELRANGE("Optimalizace!vzdalenost");
n:=count(i)-1;

BINARY VARIABLES
x[i,j] EXPORT TO EXCELRANGE("Optimalizace!pojede");

VARIABLES
u[i] EXPORT TO EXCELRANGE("Optimalizace!poradi");

MODEL
MIN z EXPORT TO EXCELRANGE("Optimalizace!celkem") =sum(c*x); 

SUBJECT TO
OutCity[i]: SUM(j: x[i,j])=1;
InCity[j]: SUM(i: x[i,j])=1;
Subtour[i,j>1]: u[i]+1-n*(1-x[i,j])<=u[i:=j];
END