1

2

3

4

5

6

7

8

9

10

11

12

\scalebox{1.5}{e}

\scalebox{1.5}{e}

\scalebox{1.5}{e}

\scalebox{1.5}{e}

\scalebox{1.5}{e}

\scalebox{1.5}{e}

\scalebox{1.5}{t}

\scalebox{1.5}{t}

\scalebox{1.5}{t}

\scalebox{1.5}{t}

\scalebox{1.5}{t}

\scalebox{1.5}{v}

\scalebox{1.5}{v}

\scalebox{1.5}{v}

\scalebox{1.5}{v}

\scalebox{1.5}{v}

\scalebox{1.5}{v}

\scalebox{1.5}{a}

\scalebox{1.5}{a}

\scalebox{1.5}{a}

\scalebox{1.5}{a}

\scalebox{1.5}{a}

\scalebox{1.5}{a}

\scalebox{1.5}{t}

T0: {8, 21, 5, 20, 3, 1, 2012, "Enero", "Martes", 3}
S0: ((((Element[T0, 5] * 24 + Element[T0, 4]) * 60 + Element[T0, 3]) * 60 + Element[T0, 2]) * 1000 + Element[T0, 1]) / 1000
T1: {8, 21, 5, 20, 3, 1, 2012, "Enero", "Martes", 3}
S1: ((((Element[T1, 5] * 24 + Element[T1, 4]) * 60 + Element[T1, 3]) * 60 + Element[T1, 2]) * 1000 + Element[T1, 1]) / 1000
Sdet = 0
Sinc: S1 - S0 - Sdet
v = 1 (slider from 0.1 to 1, step 0.1)
h = 0.21
w: h / 2.5
escala = 0.3
A = (-0.82, 2.92)
origen = Join(Sequence[Sequence[A + j * (4, 0) + k * (0, -4), j, 0, 3], k, 0, 2])
Base1: Element[origen, 9] + (-2, 0)
a = 9.8
t0 = 0.5
e0: 1 / 2 * a * t0^(2)
t = Min(10 * Sinc * v, 20)
z: t * w
f0 = If(0 < x < 10, 0 * x + 100)
f1 = If(0 ≤ x ≤ 20 * w, 1 / 2 * a * ((x + 5 * w) / (10 * w))^(2) * w)
f2 = If(0 ≤ x ≤ 20 * w, a * (x + 5 * w) / 10)
f3 = If(0 ≤ x ≤ 20 * w, a * w)
f4 = If(f1(0) ≤ x ≤ f1(20 * w), 10 * sqrt(2 * x * w / a) - 5 * w)
f5 = If(f2(0) ≤ x ≤ f2(20 * w), 10 * x / a - 5 * w)
f6 = Segment((a * w, 0), (a * w, 20 * w))
f7 = If(f1(0) ≤ x ≤ f1(20 * w), sqrt(2 * a * w * x))
f8 = If(f2(0) ≤ x ≤ f2(20 * w), x^(2) / (2 * a * w))
f9 = Segment((a * w, f1(0)), (a * w, f1(20 * w)))
f10 = If(f1(0) ≤ x ≤ f1(20 * w), a * w)
f11 = If(f2(0) ≤ x ≤ f2(20 * w), a * w)
f12 = Segment((a * w, f2(0)), (a * w, f2(20 * w)))
funciones: {f1, f2, f3, f4, f5, f0, f7, f8, f0, f10, f11, f0}
gráficas = Sequence(Translate[Element[funciones, k], Element[origen, k]], k, 1, 12)
Base2: (x(Base1), y(Base1) + 1 + escala / w * (e0 * w + f1(20 * w) - f1(0)))
TopeSuperior: Base2
ejesX = Sequence(Segment[Element[origen, k], Element[origen, k] + (3, 0)], k, 1, 12)
ejesY = Sequence(Segment[Element[origen, k], Element[origen, k] + (0, 3)], k, 1, 12)
marcax = Sequence(Segment[(k * h, 0), (k * h, -0.1 + 0.03 * Mod[k, 2])], k, 1, 12)
marcay = Sequence(Segment[(0, k * h), (-0.1 + 0.07 * Mod[k, 2], k * h)], k, 1, 12)
nx: {" 0", "10", "20", "30"}
B: A + (1.2, 1.2)
C: A + (-0.3, 3.16)
D: A + (2.9, -0.05)
P1: (z, Iteration[Element[funciones, 1], z, 1]) + Element[origen, 1]
P2: (z, Iteration[Element[funciones, 2], z, 1]) + Element[origen, 2]
P3: (z, Iteration[Element[funciones, 3], z, 1]) + Element[origen, 3]
P4: (f1(z), Iteration[Element[funciones, 4], f1(z), 1]) + Element[origen, 4]
P5: (f2(z), Iteration[Element[funciones, 5], f2(z), 1]) + Element[origen, 5]
P6: (a * w, z) + Element[origen, 6]
P7: (f1(z), Iteration[Element[funciones, 7], f1(z), 1]) + Element[origen, 7]
P8: (f2(z), Iteration[Element[funciones, 8], f2(z), 1]) + Element[origen, 8]
P9: (a * w, f1(z)) + Element[origen, 9]
P10: (f1(z), Iteration[Element[funciones, 10], f1(z), 1]) + Element[origen, 10]
P11: (f2(z), Iteration[Element[funciones, 11], f2(z), 1]) + Element[origen, 11]
P12: (a * w, f2(z)) + Element[origen, 12]
ny: {"  0", "10", "20", "30"}
marcasX = Sequence(Translate[marcax, Element[origen, k]], k, 1, 12)
marcasY = Sequence(Translate[marcay, Element[origen, k]], k, 1, 12)
segmentos: {Translate[f6, Element[origen, 6]], Translate[f9, Element[origen, 9]], Translate[f12, Element[origen, 12]]}
E: TopeSuperior - (0, 0.5 + escala * f1(t * w) / w)
anima = false
tiempo = 0.043 (slider from 0 to 1, step 0.0010)
base: {Polygon[Base1 + (1, 0), Base1 - (1, 0), Base1 - (1, escala), Base1 + (1, -escala)]}
prueba2: f1(5 * w) / w
prueba1: f1(0) / w
zona3: {Polygon[TopeSuperior - (0.7, escala * f1(10 * w) / w), TopeSuperior - (-0.7, escala * f1(10 * w) / w), TopeSuperior - (-0.7, escala * f1(15 * w) / w), TopeSuperior - (0.7, escala * f1(15 * w) / w)]}
zona1: {Polygon[TopeSuperior - (0.7, escala * f1(0 * w) / w), TopeSuperior - (-0.7, escala * f1(0 * w) / w), TopeSuperior - (-0.7, escala * f1(5 * w) / w), TopeSuperior - (0.7, escala * f1(5 * w) / w)]}
Paso0: TopeSuperior - (0, a / 2 * 0.5^(2) * escala)
T2: {141, 22, 5, 20, 3, 1, 2012, "Enero", "Martes", 3}
T3: {984, 23, 5, 20, 3, 1, 2012, "Enero", "Martes", 3}
S2: ((((Element[T2, 5] * 24 + Element[T2, 4]) * 60 + Element[T2, 3]) * 60 + Element[T2, 2]) * 1000 + Element[T2, 1]) / 1000
S3: ((((Element[T3, 5] * 24 + Element[T3, 4]) * 60 + Element[T3, 3]) * 60 + Element[T3, 2]) * 1000 + Element[T3, 1]) / 1000
velocidad: "" + v + ""
cero = 0
crono: "" + (t / 10) + "''"
puntos: P1:P12
posiciones: {Sequence[Segment[Element[puntos, k], (x(Element[puntos, k]), y(Element[origen, k]))], k, 1, 12], Sequence[Segment[Element[puntos, k], (x(Element[origen, k]), y(Element[puntos, k]))], k, 1, 12]}
nt: {"0", "1", "2", "3"}
nX = Sequence(Sequence[Text[Element[If[k < 4, nt, nx], j + 1], Element[origen, k] + (4 * j * h - If[k < 4, 0.06, 0.1], -0.33)], j, 0, 4], k, 1, 12)
tiempos = Sequence(Text["t = " + (k / 10), (-4.24, 5) - (0, escala * f1(k * w) / w)], k, 0, 20, 5)
pasos = Sequence(Segment[TopeSuperior - (-0.7, escala * f1(k * w) / w), TopeSuperior - (0.7, escala * f1(k * w) / w)], k, 0, 20, 5)
nY = Sequence(Sequence[Text[Element[If[(k > 3) ∧ (k < 7), nt, ny], j + 1], Element[origen, k] + (If[(k > 3) ∧ (k < 7), -0.3, -0.42], 4 * j * h - 0.08)], j, 0, 4], k, 1, 12)