Aquiles

Tortuga

tiempo

Pasos lógicos... SIN FIN

a = 2 (slider from 2 to 10, step 1)
t = 0 (slider from 0 to 30, step 0.01)
F = (14, 6)
A: ((-(2, 1)) * (2^(t) - 1))
v = 1 (slider from 1 to 9, step 1)
r: 1 - 1 / a
xx: ((-(log(6) - log(5 + 2^(t))))) / log(a)
saltos: floor(xx)
recorrido: (1000 / r * (1 - 6 / (5 + 2^(t))))
d1: floor(recorrido / 1000)
d2: recorrido - (1000 * floor(recorrido / 1000))
d3: (1000 * (d2 - floor(d2)))
d4: (1000 * (d3 - floor(d3)))
d5: (1000 * (d4 - floor(d4)))
d6: (1000 * (d5 - floor(d5)))
T5: "Distancia recorrida por Aquiles = " + d1 + " km " + (floor(d2)) + " m " + (floor(d3)) + " mm " + (floor(d4)) + " μm " + (floor(d5)) + " nm"
T6: "Pasos lógicos: " + saltos + ""
m = 0.42857142857142855
f = Segment((y(A) * (1 / m, 1)), F)
k: (3 * floor(1 + (saltos * lg(a) / 3)))
unidades: {" km", " m", " mm", " μm", " nm", "pm"}
paso = Vector(((14 * r) + (1 / ((a * m)) * (6 - ((5 + 2^(t)) * 1 / a^(saltos - 1)))), 6 - ((5 + 2^(t)) * 1 / a^(saltos - 1))), ((1 / m * (6 - ((5 + 2^(t)) * 1 / a^(saltos)))), 6 - ((5 + 2^(t)) * 1 / a^(saltos))))
T7: "" + (floor((10^(k) / a^(saltos + 1) * 100)) / 100) + (Element[unidades, 1 + Div[k, 3]])
T1: "" + (floor((10^(k) / a^(saltos) * 100)) / 100) + (Element[unidades, 1 + Div[k, 3]])
tramos = Sequence(Segment[((1 / m * (6 - (5 + 2^(t)) / a^(k + 1))), 6 - (5 + 2^(t)) / a^(k + 1)), ((14 * r) + (1 / ((a * m)) * (6 - (5 + 2^(t)) / a^(k + 1))), 6 - (5 + 2^(t)) / a^(k + 1))], k, -1, 60)
g = Segment((y(A) / ((a * m)) + (14 * r), y(A)), F)
PasoK = Midpoint(((1 / m * (6 - (5 + 2^(t)) / a^(saltos))), 6 - (5 + 2^(t)) / a^(saltos)), ((14 * r) + (1 / ((a * m)) * (6 - (5 + 2^(t)) / a^(saltos))), 6 - (5 + 2^(t)) / a^(saltos)))
PasoKK = Midpoint(((1 / m * (6 - (5 + 2^(t)) / a^(saltos + 1))), 6 - (5 + 2^(t)) / a^(saltos + 1)), ((14 * r) + (1 / ((a * m)) * (6 - (5 + 2^(t)) / a^(saltos + 1))), 6 - (5 + 2^(t)) / a^(saltos + 1)))
Tortuga: ((14 * r), 0)
α: atan(((42 * r) - 21) / (67 - (49 * r)))
tortuga' = Rotate(tortuga, α / 2, Tortuga + (0.1, -0.5))
T: (2000 / ((r * a)) * (1 - 6 / (5 + 2^(t))))
horas: floor(T / 3600)
minutos: floor((T - (3600 * horas)) / 60)
segundos: floor(T - (3600 * horas) - (60 * minutos))
milisegundos: floor((100000000 * (T - (3600 * horas) - (60 * minutos) - segundos))) / 100000
crono: "" + (If[horas  <  1, "00", If[horas  <  10, ("0" * horas), ("" * horas)]]) + ":" + (If[minutos  <  1, "00", If[minutos  <  10, ("0" * minutos), ("" * minutos)]]) + ":" + (If[segundos  <  1, "00", If[segundos  <  10, ("0" * segundos), ("" * segundos)]]) + "." + milisegundos + ""
fin = If(t  <  39.9, false, true)
anima = false