0 m

2000 m

50 m

100 m

150 m

vectores

condiciones

Tiempo

ACCIÓN

INICIO

 Las  \space tropas  \space troyanas  \

están  \space inmovilizadas  \
¡ TROYA   \space ARDERÁ...!

ventaja = 0.16666666666666666
C = (7.52, -3.96)
D = (7.5, -2.96)
E = (8, -2)
F = (8.34, -0.7)
H = (9.02, 1.8)
I = (9.48, 1.98)
J = (10, 3)
K = (11.3, 4.28)
L = (11.72, 4.34)
M = (13.3, 3.9)
N = (14.38, 3.66)
O = (16, 3)
P = (16.44, 3.14)
Q = (17, 3)
R = (17.48, 2.74)
S = (18.28, 3.18)
T = (18.26, 7.18)
U = (-1.64, 7.16)
V = (-1.64, -3.94)
polígono1, c, d, e, f, h, i, j, k, l, m, n, o, p, q, r, s, t, u, v = Polygon(C, D, E, F, H, I, J, K, L, M, N, O, P, Q, R, S, T, U, V)
W = (12.36, 1.62)
L_1 = Intersect(i, OrthogonalLine[W, i])
escala: Distance[L_1, W] / 3
vcuesta: (6 * escala)
H_1 = (12.66, 1.46)
I_1 = (12.76, 1.8)
f_1 = Ellipse(W, H_1, I_1)
P_1 = Point(f_1)
tiempo1: (escala * Distance[W, P_1] / vcuesta)
tiempo = 0 (slider from 0 to tope, step 0.005)
tiempotroyanos = Max(0, tiempo - ventaja)
lineanivel = 50
α = 0.12217304763960307 rad
pendiente: tan(α)
A_1 = (12.48, 1.98)
Z = (12.84, 1.18)
g = Ellipse(W, Z, A_1)
P_2 = Point(g)
B2 = If(lineanivel / (((1000 * escala) * Length[Vector[P_1, P_2]]))  <  pendiente, 1, 0)
tiempo2: (escala * sqrt(Distance[P_2, P_1]^(2) + 5.0E-4) / vcuesta)
D2 = If(tiempotroyanos > tiempo1, 1, 0)
G = (3.310444225074039, 5.743909249563701)
A = (6.78, 4.2)
B = (5.5, 3)
a = Segment(A, B)
xMin = 0
yMin = 10
xMax = 10
yMax = 5.65647
B_1 = (13.24, 0.82)
C_1 = (13.46, 1.7)
c_1 = Ellipse(W, B_1, C_1)
D_1 = (13.76, 0.48)
E_1 = (13.48, -0.3)
d_1 = Ellipse(W, D_1, E_1)
F_1 = (12.34, -0.02)
G_1 = (14.18, -0.88)
e_1 = Ellipse(Z, F_1, G_1)
J_1 = (15, -3.5)
K_1 = (17, -3.5)
b = OrthogonalLine(G, i)
P_3 = Point(c_1)
P_4 = Point(d_1)
P_5 = Point(e_1)
tiempo3: (escala * sqrt(Distance[P_2, P_3]^(2) + 5.0E-4) / vcuesta)
tiempo4: (escala * sqrt(Distance[P_3, P_4]^(2) + 5.0E-4) / vcuesta)
tiempo5: (escala * sqrt(Distance[P_4, P_5]^(2) + 5.0E-4) / vcuesta)
vllano: (15 * escala)
tiempo6: (escala * sqrt(Distance[L_1, P_5]^(2) + 5.0E-4) / vllano)
vgriegos: (12 * escala)
tiempo_{griegos}: Distance[L_1, G] / vgriegos
tiempo_{troyanos}: tiempo1 + tiempo2 + tiempo3 + tiempo4 + tiempo5 + tiempo6
ugriegos: (1 / tiempo_{griegos} * Vector[G, L_1])
griegos = Translate(G, Vector[(tiempo * ugriegos)])
A1: (1 / tiempo1 * Vector[W, P_1])
A2: (1 / tiempo2 * Vector[P_1, P_2])
A3: (1 / tiempo3 * Vector[P_2, P_3])
A4: (1 / tiempo4 * Vector[P_3, P_4])
A5: (1 / tiempo5 * Vector[P_4, P_5])
A6: (1 / tiempo6 * Vector[P_5, L_1])
B6 = 1
B1 = If(Length[Vector[W, P_1]] / ((20 * escala))  <  pendiente, 1, 0)
B3 = If(lineanivel / (((1000 * escala) * Length[Vector[P_2, P_3]]))  <  pendiente, 1, 0)
B4 = If(lineanivel / (((1000 * escala) * Length[Vector[P_3, P_4]]))  <  pendiente, 1, 0)
B5 = If(lineanivel / (((1000 * escala) * Length[Vector[P_4, P_5]]))  <  pendiente, 1, 0)
C2: ((B2 * D2) * Min[tiempotroyanos - tiempo1, tiempo2])
D3 = If(tiempotroyanos > tiempo1 + tiempo2, 1, 0)
D4 = If(tiempotroyanos > tiempo1 + tiempo2 + tiempo3, 1, 0)
D5 = If(tiempotroyanos > tiempo1 + tiempo2 + tiempo3 + tiempo4, 1, 0)
D6 = If(tiempotroyanos > tiempo1 + tiempo2 + tiempo3 + tiempo4 + tiempo5, 1, 0)
C3: ((((B2 * D2) * B3) * D3) * Min[tiempotroyanos - tiempo1 - tiempo2, tiempo3])
C4: ((((((B2 * D2) * B3) * D3) * B4) * D4) * Min[tiempotroyanos - tiempo1 - tiempo2 - tiempo3, tiempo4])
C5: ((((((((B2 * D2) * B3) * D3) * B4) * D4) * B5) * D5) * Min[tiempotroyanos - tiempo1 - tiempo2 - tiempo3 - tiempo4, tiempo5])
C6: (((((((((B2 * D2) * B3) * D3) * B4) * D4) * B5) * D5) * D6) * Min[tiempotroyanos - tiempo1 - tiempo2 - tiempo3 - tiempo4 - tiempo5, tiempo6])
C1 = Min(tiempo1, tiempotroyanos)
E1: (C1 * A1)
E2: (C2 * A2)
E3: (C3 * A3)
E4: (C4 * A4)
E5: (C5 * A5)
E6: (C6 * A6)
troyanos = Translate(W, E1 + E2 + E3 + E4 + E5 + E6)
TIEMPO: round((60 * tiempo))
caidatroya: (-tiempo_{griegos})
texto6: "" + (LaTeX[TIEMPO]) + "  \space minutos"
D1 = If(tiempotroyanos > 0, 1, 0)
tope = If((((((B1 * B2) * B3) * B4) * B5) * B6) ≟ 0, tiempo_{griegos}, Min[tiempo_{griegos}, tiempo_{troyanos} + ventaja])
playa = Segment(I, J)
SOLUCION: ventaja + tiempo_{troyanos} - tiempo_{griegos}
minutos: abs(round((60 * SOLUCION)))
segundos: abs(round((3600 * (abs(SOLUCION) - minutos / 60))))
texto7: " La  \space flota  \space aquea  \space ha  \space desembarcado \\

 " + (LaTeX[minutos]) + "  \space minutos  \space y  \space " + (LaTeX[segundos]) + "   \space segundos  \space antes  \\
 de \space que  \space lleguen \space las  \space tropas  \space troyanas.  \\
¡ TROYA  \space ARDERÁ...!"
texto8: " Las  \space tropas  \space troyanas  \space han  \space llegado \\

 " + (LaTeX[minutos]) + "   \space minutos  \space y  \space  " + (LaTeX[segundos]) + "   \space segundos  \space antes  \\
 del \space posible  \space desembarco \space aqueo.  \\
¡ LOS   \space GRIEGOS \space HAN \space HUIDO...!"