set LIEFER := {"l1", "l2" }; set MENSA := {"m1","m2","m3"}; set FABRIK := {"f1","f2"}; set ELF := LIEFER*FABRIK; set EFM := FABRIK*MENSA; do print ELF; do print EFM; param kap[LIEFER] := <"l1"> 10, <"l2"> 15; param plf[LIEFER*FABRIK] := |"f1","f2"| |"l1"| 10 , 15 | |"l2"| 20 , 15 |; param pfm[FABRIK*MENSA] := |"m1","m2","m3"| |"f1"| 40 , 20 , 10 | |"f2"| 30 , 40 , 20 |; param dem[MENSA] := <"m1"> 8, <"m2"> 14, <"m3"> 3; var xRes[ELF] >=0; var xLabs[EFM] >=0; minimize cost: (sum in ELF: plf[i,j]*xRes[i,j]) + (sum in EFM: pfm[k,l]*xLabs[k,l]); subto SKAP: forall in LIEFER : (sum in FABRIK: xRes[l,f]) <= kap[l]; subto SDEM: forall in MENSA : (sum in FABRIK: xLabs[f,m]) == dem[m]; subto SLFM: forall in FABRIK : (sum in MENSA: xLabs[f,m]) - (sum in LIEFER: xRes[l,f]) <=0;