Cantidad de veces que
pasan por el Polo Norte.

Rapidez de la animación

Sat 1

Sat 2

Sat 3

Rapidez de la animación

A = (0, 0)
c_1 = Circle(A, 5)
d_1 = Circle(A, 5.5)
e = Circle(A, 6)
f = Circle(A, 6.5)
B = Intersect(d_1, yAxis, 2)
C = Intersect(e, yAxis, 2)
D = Intersect(f, yAxis, 2)
s3 = 8 (slider from 1 to 20, step 1)
s2 = 12 (slider from 1 to 20, step 1)
s1 = 6 (slider from 1 to 20, step 1)
a = 0 (slider from 0 to (3 * m) + 5, step 0.001)
B1 = Rotate(B, ((2 * a) * π / s3), A)
m = LCM({s3, s2, s1})
C1 = Rotate(C, ((2 * a) * π / s2), A)
D1 = Rotate(D, ((2 * a) * π / s1), A)
v = 0 (slider from 0 to 0.2, step 0.01)
nada = -1.7 (slider from -5 to 5, step 0.1)
E = (-5.35338, -5.34662)
h = Line(E, xAxis)
H = Point(h)
i = Ray(B1, A)
j = Ray(D1, A)
k = Ray(C1, A)
I = Intersect(c_1, i, 1)
J = Intersect(c_1, j, 1)
K = Intersect(c_1, k, 1)
l = Segment(B1, I)
n = Segment(D1, J)
p = Segment(C1, K)
lb = Sequence((i * s3), i, 1, a / s3)
texto1: "" + lb + ""
lc = Sequence((i * s2), i, 1, a / s2)
ldd = Sequence((i * s1), i, 1, a / s1)
texto2: "" + lc + ""
texto3: "" + ldd + ""
pb: floor(a / s3)
pc: floor(a / s2)
pd: floor(a / s1)
texto6: "" + pc + ""
texto5: "" + pb + ""
texto7: "" + pd + ""
texto9: "" + pb + ""
texto10: "" + pc + ""
texto11: "" + pd + ""
pm: floor(a / m)
lm = Sequence((i * m), i, 1, a / m)
texto12: "Los tres juntos  " + pm + "  veces"
F = (-7.94, 6.36)
texto14: "Los tres juntos  " + pm + "  vez"
pa: floor(a)
texto15: "Horas " + lm + ""
texto16: "Hora:  " + pa + ""
texto20: "Los tres juntos  " + pm + "  vez"