a(x) = (2 * x) ≤ 1000
b(x, y) = (2 * x) + (4 * y) ≤ 3000
c(x, y) = (10 * x) + (5 * y) ≤ 6000
d(x) = x ≥ 0
e(y) = y ≥ 0
O: (0, 0)
A: (500, 0)
B: (500, 200)
C: (300, 600)
D: (0, 750)
polígono1, o, a_1, b_1, c_1, d_1 = Polygon(O, A, B, C, D)
f(x, y) = (6 * x) + (5 * y)
dif: 1000
ndiv: 6
l1 = Sequence(f(x, y) = (k * dif), k, 1, ndiv)
E = Point(l1)
texto1 = Text(f(x(E), y(E)), E)
F = Point(l1)
texto2 = Text(f(x(F), y(F)), F)
G = Point(l1)
texto3 = Text(f(x(G), y(G)), G)
H = Point(l1)
texto4 = Text(f(x(H), y(H)), H)
I = Point(l1)
texto5 = Text(f(x(I), y(I)), I)
J = Point(l1)
texto6 = Text(f(x(J), y(J)), J)
niv = 3400
cniv = ImplicitCurve(f(x, y) - niv)
P = Point(cniv)
texto7 = Text(f(x(P), y(P)), P)
opt: f(x(C), y(C))
copt: (6 * x) + (5 * y) = opt