Si[d1 ≟ 1, E6, D6]

Si[a1 ≟ 1, E5, D5]

Si[a1 ≟ 1, E4, D4]

1

2

3

1

2

3

≤

≥

≤

≥

≥

≤

1ª

2ª

3ª

Inecuaciones:

F. objetivo:

≤

≥

4

4

4ª

Región Factible

Región Factible

F. Objetivo

F. Objetivo

5

5

≤

≥

5ª

Cant. inecuaciones

Comienzo

N1: {1, 2, 3, 4, 5}
h = SelectedIndex(N1)
p1 = 0
M1: {"≤", "≥"}
s5 = SelectedIndex(M1)
L1: {"≤", "≥"}
s4 = SelectedIndex(L1)
K1: {"≤", "≥"}
s3 = SelectedIndex(K1)
J1: {"≤", "≥"}
s2 = SelectedIndex(J1)
I1: {"≤", "≥"}
s1 = SelectedIndex(I1)
t = 0.694 (slider from 0 to 1.5, step 0.001)
p5 = 100
e5(x, y) = (2 * x) + y
E7(x, y) = e5(x, y) ≥ p5
g1: s5 - 1
D7(x, y) = e5(x, y) ≤ p5
F7 = If(g1 ≟ 1, E7, D7)
g = 0 (slider from 0 to 1, step 1)
a = 1 (slider from 0 to 1, step 1)
b = 1 (slider from 0 to 1, step 1)
c = 1 (slider from 0 to 1, step 1)
e1(x, y) = x
D3(x, y) = e1(x, y) ≤ p1
E3(x, y) = e1(x, y) ≥ p1
p3 = 120
e3(x, y) = (3 * x) + (2 * y)
D5(x, y) = e3(x, y) ≤ p3
c1: s3 - 1
E5(x, y) = e3(x, y) ≥ p3
a1: s1 - 1
F5 = If(c1 ≟ 1, E5, D5)
F3 = If(a1 ≟ 1, E3, D3)
e4(x, y) = x + (2 * y)
p4 = 80
E6(x, y) = e4(x, y) ≥ p4
d1: s4 - 1
D6(x, y) = e4(x, y) ≤ p4
F6 = If(d1 ≟ 1, E6, D6)
d = 1 (slider from 0 to 1, step 1)
e0(x, y) = x
F2(x, y) = e0(x, y) ≥ -100
v1 = If(h ≥ 1, F3(x, y), F2(x, y))
p2 = 0
e2(x, y) = y
E4(x, y) = e2(x, y) ≥ p2
b1: s2 - 1
D4(x, y) = e2(x, y) ≤ p2
F4 = If(b1 ≟ 1, E4, D4)
v2 = If(h ≥ 2, v1(x, y) ∧ F4(x, y), v1)
v3 = If(h ≥ 3, v2(x, y) ∧ F5(x, y), v2)
v4 = If(h ≥ 4, v3(x, y) ∧ F6(x, y), v3)
v5 = If(h ≥ 5, v4(x, y) ∧ F7(x, y), v4)
vv(x, y) = v5(x, y)
lista1: {Vertex[vv]}
mul = CountIf(IsInRegion[A, vv], A, lista1)
lista3 = KeepIf(IsInRegion[A, vv], A, lista1)
e9(x, y) = (150 * x) + (200 * y)
A = (54.94152192305783, 92.38373174255757)
r1: e1(x, y) = p1
CasillaDeEntrada31 = Textfield(e1)
CasillaDeEntrada32 = Textfield(e2)
CasillaDeEntrada33 = Textfield(e3)
A3: e1
C4 = If(h ≥ 2, p2, 0)
C5 = If(h ≥ 3, p3, 0)
CasillaDeEntrada41 = Textfield(p1)
CasillaDeEntrada42 = Textfield(p2)
CasillaDeEntrada43 = Textfield(p3)
q1: e1((54.94152192305783, 92.38373174255757))
q2: e2((54.94152192305783, 92.38373174255757))
q3: e3((54.94152192305783, 92.38373174255757))
B3: q1
A4: e2
B4: q2
B5: q3
C3 = If(h ≥ 1, p1, 0)
texto1: "" + A3 + " = " + B3 + " ≤ " + C3 + ""
texto2: "" + A3 + " = " + B3 + " ≥ " + C3 + ""
texto4: "" + A4 + " = " + B4 + " ≥ " + C4 + ""
texto3: "" + A4 + " = " + B4 + " ≤ " + C4 + ""
A5(x, y) = e3(x, y)
texto5: "" + A5 + " = " + B5 + " ≤ " + C5 + ""
texto6: "" + A5 + " = " + B5 + " ≥ " + C5 + ""
r2: e2(x, y) = p2
r3: e3(x, y) = p3
P13 = Intersect(r1, r3)
P23 = Intersect(r2, r3)
P12 = Intersect(r1, r2)
O = Point(yAxis)
d_1(x, y) = (e9(x, y) * 0)
r9: e9(x, y) = 0
A10: P12
A11: P13
A12: P23
B10 = Distance(O, A10)
B11 = Distance(O, A11)
B12 = Distance(O, A12)
B13 = Min(B10, B12)
B14 = Max(B10, B12)
CasillaDeEntrada1 = Textfield(e9)
q4: e4((54.94152192305783, 92.38373174255757))
A6(x, y) = e4(x, y)
B6: q4
CasillaDeEntrada44 = Textfield(p4)
CasillaDeEntrada34 = Textfield(e4)
v_1(x, y) = F3(x, y) ∧ F4(x, y) ∧ F5(x, y) ∧ F6(x, y)
lista5 = Sequence(e9((200, 100)), i, 1, mul)
min = Min(lista5)
max = Max(lista5)
maa = IndexOf(max, lista5)
mii = IndexOf(min, lista5)
P1 = Element(lista3, mii)
P2 = Element(lista3, maa)
ul = Last(lista3)
lista4 = Sequence(Distance[Element[lista3, i], (0, 0)], i, 1, mul)
P: P1 + (t * (P2 - P1))
e_1 = Line(P, r9)
ob: e9((69.39999999999999, 138.79999999999998))
e = 1 (slider from 0 to 1, step 1)
f = 0 (slider from 0 to 1, step 1)
texto9: "" + (LaTeX[e9]) + "=0"
E = Intersect(r2, e_1)
texto10: "" + (LaTeX[e9]) + "=" + (LaTeX[ob]) + ""
u = Vector(P1, P2)
r4: e4(x, y) = p4
P14 = Intersect(r1, r4)
P24 = Intersect(r2, r4)
P34 = Intersect(r3, r4)
lista1x = Sequence(x(Element[lista1, i]), i, 1, h)
lista1y = Sequence(y(Element[lista1, i]), i, 1, h)
mx = Max(lista1x)
my = Max(lista1y)
texto8: "Función Objetivo:
" + e9 + " = " + ob + ""
CasillaDeEntrada35 = Textfield(e5)
A7(x, y) = e5(x, y)
CasillaDeEntrada45 = Textfield(p5)
q5: e5((54.94152192305783, 92.38373174255757))
B7: q5
v = 0 (slider from 0 to 1, step 1)
C7 = If(h ≥ 5, p5, 0)
C6 = If(h ≥ 4, p4, 0)