INICIO

C = (10, 0)
posición = OrthogonalLine(C, xAxis)
tiempo = OrthogonalLine(C, posición)
s_0 = 4.2 (slider from 0 to 10, step 0.2)
t = 1.65 (slider from 0 to 10)
c = Circle(C, t)
E, F = Intersect(c, tiempo)
h = OrthogonalLine(E, tiempo)
v = -2 (slider from -5 to 5, step 0.2)
posicion_u(t) = If[0 ≤ t, s_0 + (v * t)]
posicion_d(t) = If[0 ≤ t - 10, s_0 + (v * (t - 10))]
H: (10, s_0)
P = Intersect(posicion_d, h, (11.65, 0.8999999999999995))
g = OrthogonalLine(P, posición)
D = Intersect(posición, g)
sr_0 = If(v ≥ 0, 0, 15)
A: (0, -6)
B: (15, -6)
orde: posicion_u(t)
dista: posicion_u(t)
fv(t) = If[t ≥ 0, Derivative[posicion_u]]
J = (15.508153266331657, -0.029139072847682135)
K = (16.439522613065343, -0.029139072847682135)
d = Segment(E, P)
velocidad_1(t) = If[t ≥ 0, v]
Velocidad = Intersect(velocidad_1, posición)
I = Point(velocidad_1)
Δs: y(D) - y(H)
velocidad = Ray(Velocidad, I)
Δt = Segment(D, P)
texto1: "△s=" + Δs + ""
i = Segment(H, P)
L = Intersect(h, velocidad)
f = Segment(Velocidad, L)
G: (10, s_0)
Segmento(H, P) = Segment(G, P)