Esta animación simula el
movimiento de un péndulo de segundos
en tiempo real, despreciando el peso de la varilla y el rozamiento.
La animación no hace uso de fórmulas (ni trigonometría ni
ecuaciones ni cálculo diferencial), solo realiza las variaciones
necesarias en los vectores que dirigen el movimiento.
En la actividad del Péndulo simple, hemos comprobado que para amplitudes pequeñas
(menores de 10º, aproximadamente), el período T es prácticamente
constante e igual al período T0 del movimiento armónico
simple (MAS). Como el período del MAS es:

podemos calcular la longitud de
la varilla para que ese período sea exactamente de 2 segundos (en cada
oscilación, un segundo para la ida y otro para la vuelta). Este valor es de:

Utilizando un péndulo de este
tipo, se pudo, por primera vez en la historia, medir con bastante exactitud
una cantidad de tiempo tan pequeña como un segundo (un día tiene 86 400
segundos). Como ves, la longitud de la varilla es casi un metro exacto. No
es casualidad. Esta medida fue originalmente propuesta, a finales del siglo
XVII, como medida estándar de longitud, hasta convertirse en nuestro
metro actual, del que difiere en poco más de medio centímetro.
-
Nota: Veremos más adelante, en la actividad Péndulo cicloidal, cómo Huygens
se las ingenió para evitar la pequeña diferencia de tiempo entre el
período del péndulo y el período del MAS, logrando construir relojes de
péndulo precisos.
Atención: puedes detener la animación en cualquier momento, pero si lo
haces deberás pulsar el botón Reinicia para actualizar el contador de
tiempo, en caso contrario el péndulo puede "despendolarse".
GUION DEL DESLIZADOR anima
# Calcula los segundos dt transcurridos; para
ello, suma un segundo si t1(1) < tt
Valor(tt, t1(1))
Valor(t1, Primero(TomaTiempo(), 3))
Valor(dt, (t1(1) < tt) + (t1(1) - tt)/1000)
# Mueve M
Valor(aux, vt)
Valor(v, vt + dt gt)
Valor(M, M + dt v)
# Registra el tiempo del período y el número de
oscilaciones completas
Valor(reg, Si(x(aux) < 0 ∧ x(vt) > 0,
Añade(t, reg), reg))
Valor(osci, Si(x(aux) < 0 ∧ x(vt) > 0, osci + 1, osci))