[color=#999999]Esta actividad pertenece al [i]libro de GeoGebra [/i][url=https://www.geogebra.org/m/nfjy7ug4]El dominio del Tiempo[/url].[/color][br][br]Esta animación compara el movimiento del péndulo simple con el del correspondiente armónico, [b]en tiempo real[/b], despreciando el peso de la varilla y el rozamiento. La animación [b]no hace uso de fórmulas[/b] (ni trigonometría ni ecuaciones ni cálculo diferencial), solo realiza las variaciones necesarias en los vectores que dirigen el movimiento.[br][br]Una masa [i]m[/i], representada por el punto azul [color=#0000ff]M[/color], se encuentra en el extremo de la varilla, de longitud[i] l[/i]. Llamamos [b][color=#6aa84f]g[/color][/b] al vector de la aceleración gravitatoria. [br][br]Al mismo tiempo que el péndulo oscila, un resorte activa el movimiento armónico simple, en horizontal, de la masa [i]m [/i](en este caso representada por el pequeño punto verde [i]MM[/i], con velocidad [i]vv[/i]), con la amplitud correspondiente a la amplitud angular del péndulo. Para ello, se toma para el resorte la constante de elasticidad:[br][center][math]k=\frac{\left|g\right|}{l}m[/math][/center]Observa que cuando esta amplitud angular es pequeña, el período de oscilación del péndulo es casi idéntico al del movimiento armónico simple. Pero si variamos la posición inicial para que la amplitud angular sea mayor, los dos movimientos dejan de sincronizarse.

[b]GUION DEL DESLIZADOR anima[/b][br][br][color=#cc0000]# Calcula los segundos dt transcurridos; para ello, suma un segundo si t1(1) < tt[/color][br][color=#999999]Valor(tt, t1(1))[br]Valor(t1, Primero(TomaTiempo(), 3))[br]Valor(dt, (t1(1) < tt) + (t1(1) [color=#999999]−[/color] tt)/1000)[/color][br][br][color=#cc0000]# Mueve M [/color][br][color=#999999]Valor(aux, vt)[br]Valor(v, vt + dt gt)[/color][br][color=#999999]Valor(M, M + dt v)[/color][br][br][color=#cc0000]# Mueve MM[/color] [color=#cc0000](el punto pequeño verde del MAS, con velocidad vv, y aceleración f + a)[/color][br][color=#0000ff]Valor(vv, vv + dt (f + a))[br]Valor(MM, MM + dt vv)[/color][br][br][color=#cc0000]# Registra el tiempo del período y el número de oscilaciones completas[/color][br][color=#999999]Valor(reg, Si(x(aux) < 0 ∧ x(vt) > 0, Añade(t, reg), reg))[br]Valor(osci, Si(x(aux) < 0 ∧ x(vt) > 0, osci + 1, osci))[/color][br][br][br][br][br][br][color=#999999]Autor de la actividad y construcción GeoGebra: [url=https://www.geogebra.org/u/rafael]Rafael Losada[/url].[/color]