4 Produkte werden herstellt

G:read("Gib die Liste mit den Gewinnen je LE ein");

zf:G[1]*x1+G[2]*x2+G[3]*x3+G[4]*x4;

B1:read("Höchstmenge für die ersten beiden Produkte zusammen");

u1:x1>=0;

u2:x2>=0;

u3:x3>=0;

u4:x4>=0;

u5:x1+x2<=B1;

B2:read("Höchstmenge von Produkt1, Produkt3 und Produkt4 zusammen");

u6:x1+x3+x4<=B2;

B3:read("Mindestbedarf an Produkt 4");

u7:x4>=B3;

B4:read("Höchstbedarf an Produkt 3");

u8:x3<=B4;

load(simplex);

NB:[u1,u2,u3,u4,u5,u6,u7,u8];

l:maximize_lp(zf,NB);

print(u5)$
print(u6)$
print(u7)$
print(u8)$

print("Eine Firma stellt 4 verschiedene Produktsorten her.")$
print("Gewinn pro ME für Produkt 1 =",G[1])$
print("Gewinn pro ME für Produkt 2 =",G[2])$
print("Gewinn pro ME für Produkt 3 =",G[3])$
print("Gewinn pro ME für Produkt 4 =",G[4])$
print("Produkt 1 + Produkt 2 zusammen höchstens",B1)$
print("Produkt 1 + Produkt3 + Produkt 4 zusammen höchstens",B2)$
print("Produkt 4 mindestens",B3)$
print("Produkt 3 höchstens",B4)$
print("Der Gewinn soll maximal werden")$
print("------------------------------")$
print("Lösung:",l)$