ω

Posición inicial

r

O: (0, 0)
r = 2 (slider from 0.5 to 2, step 0.1)
c = Circle((0, 0), r)
anima = 0 (slider from 0 to 1, step 0.001)
t0: {0, 0, 0}
t1: {0, 0, 0}
t: ((t1(3) < t0(3)) * 3600) + ((t1(3) - t0(3)) * 60) + t1(2) - t0(2) + (t1(1) - t0(1)) / 1000
dt = 0.031
tt = 382
M = (2, 0)
s = Segment(O, M)
reg: {0}
vueltas = 0
regDif = If(Length[reg] ≟ 1, {reg(1)}, Sequence[reg(k) - reg(k + 1), k, 1, Length[reg] - 1])
T = mean(regDif)
ω = 0.5 (slider from 0.1 to 2, step 0.1)
α = Angle((1, 0), O, Rotate[(1, 0), ω])
P: O + (r, 0)
v: ((UnitOrthogonalVector[s] * ω) * r)
texto1: "Período teórico: " + ((2 * pi / ω)) + "''

Tiempo animación:  " + t + "''
Nº vueltas: " + vueltas + "
Período animación (media): " + T + "''"
f = Segment(O, P)