UFRR: (Celular) Movimentos Epicíclicos

$\scalebox{1.3}{O}$

$\scalebox{1.3}{S}$

$\scalebox{1.3}{P}$

Exibir círculo 1 (deferente)

Exibir círculo 2 (epiciclo)

Exibir raios dos círculos

Reiniciar!

Animar!

Parar!

w2 = 5 (slider from -20 to 20, step 1)
r2 = 1 (slider from -10 to 10, step 1)
w1 = -1 (slider from -20 to 20, step 1)
r1 = 2 (slider from -10 to 10, step 1)
tempo = 0 (slider from 0 to 200, step 0.001)
C_1 = (0, 0)
parameters: {r1, w1, r2, w2, 0, 10, 0.01}
xr_1 = Element(parameters, 1)
xw_1 = Element(parameters, 2)
xr_2 = Element(parameters, 3)
xw_2 = Element(parameters, 4)
t: tempo
C_2: ((xr_1 * cos((xw_1 * t))), (xr_1 * sin((xw_1 * t))))
P: ((xr_1 * cos((xw_1 * t))) + (xr_2 * cos((xw_2 * t))), (xr_1 * sin((xw_1 * t))) + (xr_2 * sin((xw_2 * t))))
circle_1 = Circle(C_1, xr_1)
circle_2 = Circle(C_2, xr_2)
s_1 = Segment(C_1, C_2)
s_2 = Segment(C_2, P)
tIni = Element(parameters, 5)
path = CurveCartesian((xr_1 * cos((xw_1 * u))) + (xr_2 * cos((xw_2 * u))), (xr_1 * sin((xw_1 * u))) + (xr_2 * sin((xw_2 * u))), u, tIni, t)
n = 3
deltaa: 3.141592653589793 / n
PIni_1 = Sequence(Rotate[(xr_1, 0), (xw_1 * t) + (k * deltaa), C_1], k, 0, n - 1)
PEnd_1 = Sequence(Rotate[(xr_1, 0), (xw_1 * t) + (k * deltaa) + 3.141592653589793, C_1], k, 0, n - 1)
R_1 = Sequence(Segment[Element[PIni_1, k], Element[PEnd_1, k]], k, 1, n)
PIni_2 = Sequence(Rotate[(xr_2 + x(C_2), y(C_2)), (xw_2 * t) + (k * deltaa), C_2], k, 0, n - 1)
PEnd_2 = Sequence(Rotate[(xr_2 + x(C_2), y(C_2)), (xw_2 * t) + (k * deltaa) + 3.141592653589793, C_2], k, 0, n - 1)
R_2 = Sequence(Segment[Element[PIni_2, k], Element[PEnd_2, k]], k, 1, n)
showCircle1 = true
showCircle2 = true
showRadii = true
tEnd = Element(parameters, 6)
deltat = Element(parameters, 7)
vAni = 0.07 (slider from -5 to 5, step 1)
texto1: "r1 = " + xr_1 + ""
texto2: "w1 = " + xw_1 + ""
texto3: "r2  = " + xr_2 + ""
texto4: "w2 = " + xw_2 + ""