Aquiles

Tortuga

tiempo (s)

Pasos lógicos... SIN FIN

factor = 2 (slider from 2 to 10, step 1)
t = 0 (slider from 0 to 40, step 0.01)
F = (14, 6)
A: ((-(2, 1)) * (2^(t) - 1))
v = 1 (slider from 1 to 9, step 1)
r: 1 - 1 / factor
xx: ((-(log(6) - log(5 + 2^(t))))) / log(factor)
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)))
T6: "Pasos lógicos: " + saltos + ""
m = 0.428571428571429
f = Segment((y(A) * (1 / m, 1)), F)
k: (3 * floor(1 + (saltos * lg(factor) / 3)))
unidades: {" km", " m", " mm", " μm", " nm", "pm"}
paso = Vector(((14 * r) + (1 / ((factor * m)) * (6 - ((5 + 2^(t)) * 1 / factor^(saltos - 1)))), 6 - ((5 + 2^(t)) * 1 / factor^(saltos - 1))), ((1 / m * (6 - ((5 + 2^(t)) * 1 / factor^(saltos)))), 6 - ((5 + 2^(t)) * 1 / factor^(saltos))))
T7: "" + (floor((10^(k) / factor^(saltos + 1) * 100)) / 100) + (Element[unidades, 1 + Div[k, 3]])
T1: "" + (floor((10^(k) / factor^(saltos) * 100)) / 100) + (Element[unidades, 1 + Div[k, 3]])
tramos = Sequence(Segment[((1 / m * (6 - (5 + 2^(t)) / factor^(k + 1))), 6 - (5 + 2^(t)) / factor^(k + 1)), ((14 * r) + (1 / ((factor * m)) * (6 - (5 + 2^(t)) / factor^(k + 1))), 6 - (5 + 2^(t)) / factor^(k + 1))], k, -1, 60)
g = Segment((y(A) / ((factor * m)) + (14 * r), y(A)), F)
PasoK = Midpoint(((1 / m * (6 - (5 + 2^(t)) / factor^(saltos))), 6 - (5 + 2^(t)) / factor^(saltos)), ((14 * r) + (1 / ((factor * m)) * (6 - (5 + 2^(t)) / factor^(saltos))), 6 - (5 + 2^(t)) / factor^(saltos)))
PasoKK = Midpoint(((1 / m * (6 - (5 + 2^(t)) / factor^(saltos + 1))), 6 - (5 + 2^(t)) / factor^(saltos + 1)), ((14 * r) + (1 / ((factor * m)) * (6 - (5 + 2^(t)) / factor^(saltos + 1))), 6 - (5 + 2^(t)) / factor^(saltos + 1)))
Tortuga: ((14 * r), 0)
α: atan(((42 * r) - 21) / (67 - (49 * r)))
T: (2000 / ((r * factor)) * (1 - 6 / (5 + 2^(t))))
fin = If(t  <  39.9, false, true)
anima = false
tortuga' = Rotate(tortuga, α / 2, Tortuga)
tramos2 = Sequence(Segment[((1 / m * (6 - (5 + 2^(t)) / factor^(k + 2))), 6 - (5 + 2^(t)) / factor^(k + 2)), ((14 * r) + (1 / ((factor * m)) * (6 - (5 + 2^(t)) / factor^(k + 1))), 6 - (5 + 2^(t)) / factor^(k + 1))], k, -1, 60)
crono: "" + T + ""
T5_2: "Distancia recorrida por Aquiles:
 " + recorrido + "  m"