[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 simula un movimiento armónico simple (MAS) [url=https://es.wikipedia.org/wiki/Movimiento_arm%C3%B3nico_simple][img]https://www.geogebra.org/resource/scjbyz2p/0tuzuVw455vxurEw/material-scjbyz2p.png[/img][/url] [b]en tiempo real[/b], despreciando el rozamiento, de un resorte vertical. La animación [b]hace uso del mínimo de fórmulas[/b] (ni trigonometría ni cálculo diferencial), solo realiza las variaciones necesarias en los vectores que dirigen el movimiento.[br][br]Este movimiento es prácticamente idéntico al del ya visto de [url=https://www.geogebra.org/m/nfjy7ug4#material/wknympjw]MAS de un resorte horizontal[/url], sin más que cambiar la orientación. La única diferencia entre ambos es que ahora, en la oscilación vertical, interviene la gravedad, haciendo que el centro de la oscilación pase de ser el [i]punto de reposo[/i] del muelle a ser el [i]punto de equilibrio[/i] entre la fuerza de restauración del resorte y la gravedad.[br][br]Al iniciarse, la construcción muestra el punto azul [color=#0000ff]M[/color] en estado de equilibrio: el resorte ejerce sobre él exactamente la misma fuerza, pero en sentido opuesto, que la gravedad. [b]Arrastra[/b] [color=#0000ff]M[/color] hacia la abajo para estirar el resorte. La distancia que lo arrastres determinará la [i]amplitud[/i]. [br][br]Esa separación de la posición de equilibrio hará que el resorte se resista, apareciendo una aceleración [b][color=#6aa84f]a[/color][/b] (en verde) cuyo sentido es siempre hacia el punto de equilibrio. Pulsa el botón [img]https://www.geogebra.org/resource/yxbcmb2f/CZJZaLQBirTUHVXU/material-yxbcmb2f.png[/img] para activar la animación. [br][br]Basta adecuar a esta situación el guion del deslizador [b]anima[/b], simplemente sustituyendo:[br][br] Valor([color=#cc0000][b]v[/b][/color], [color=#cc0000][b]v[/b][/color] + [i]dt[/i] [b][color=#6aa84f]a[/color][/b])[br][br]por:[br][br] Valor([color=#cc0000][b]v[/b][/color], [color=#cc0000][b]v[/b][/color] + [i]dt[/i] [color=#cc0000]([/color][b][color=#6aa84f]a[/color][/b] + [b][color=#6aa84f]g[/color][/b][color=#cc0000])[/color])

[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) - tt)/1000)[/color][br][br][color=#cc0000]# Mueve M [/color][br][color=#999999]Valor(aux, v)[/color][br][color=#0000ff]Valor(v, v + dt (a + g))[br][/color][color=#999999]Valor(M, M + dt v)[/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(y(aux) < 0 ∧ y(v) > 0, Añade(t, reg), reg))[br]Valor(osci, Si(y(aux) < 0 ∧ y(v) > 0, osci + 1, osci))[/color][color=#0000ff][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][/color]