[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]En este ejemplo, el guion del deslizador [i]anima[/i] es algo más largo debido a los cambios a los que hay que someter a la velocidad y posición de la pelota en las cercanías del suelo y paredes donde rebota. Como la pelota avanza a intervalos de tiempo [i]dt[/i], podemos observar que el momento exacto del rebote no siempre coincide con el instante real del impacto.[br][center]Valor([color=#c51414][b]v[/b][/color], (x([color=#c51414][b]v[/b][/color]), -y([color=#c51414][b]v[/b][/color]))) [color=#999999][br](3ª ley de Newton)[/color] [/center]Se visualizan dos situaciones: caída libre o con velocidad inicial. Para cada una de ellas, podemos fijar el[b] Coeficiente de Restitución[/b] (C[sub]R[/sub]). [br][br]Para C[sub]R[/sub] = 1 ([i][b]choque elástico[/b][/i]) la pelota es de elasticidad perfecta. Esto significa que la pelota, en cada rebote con el suelo, alcanzará siempre la misma altura máxima.[br][br]Para valores de menores C[sub]R [/sub]que la unidad, la pelota pierde energía al chocar, por lo que en cada rebote con el suelo la altura de la pelota disminuye en[b] progresión geométrica[/b] (de razón C[sub]R[/sub]), hasta finalmente detenerse. Esta progresión se visualiza de un modo más familiar que en otros ejemplos socorridos (como, por ejemplo, el de la carrera de Aquiles y la tortuga).

[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)) [/color][br][color=#999999]Valor(t1, Primero(TomaTiempo(), 3)) [/color][br][color=#999999]Valor(dt, (t1(1) < tt) + (t1(1) − tt)/1000)[/color][br] [br][color=#cc0000]# Controla los rebotes en el suelo y paredes de la pelota de radio r; x2 es la abscisa de la Esquina(2)[/color][color=#0000FF][br]Valor(M', M + dt v)[br]Valor(caso, Si(y(v) < 0 ∧ y(M') < r, 1, x(v) < 0 ∧ x(M') < r, 2, x(v) > 0 ∧ x2 − x(M') < r, 3, 0))[br][/color][color=#cc0000][br]# Actualiza M y v (el punto auxiliar retiene la posición de M en su mínima altura)[/color][color=#0000FF][br]Valor(Aux, Si(caso ≟ 1, M, Aux))[/color][br][color=#0000FF]Valor(M, M')[br]Valor(v, Si(caso < 1, v + dt g, caso < 2, C_R (x(v), −y(v)), (−C_R x(v), y(v + dt g))))[br][br][/color][color=#cc0000]# Añade la posición M al registro para el rastro poligonal y controla el final[br][/color][color=#999999]Valor(reg, Añade(reg, M))[/color][color=#0000FF][br]IniciaAnimación(anima, C_R ≟ 1 ∧ y(P) > r ∨ C_R < 1 ∧ y(Aux) > r )[/color][br][br][br][br][br][color=#999999][color=#999999]Autor de la actividad y construcción GeoGebra: [url=https://www.geogebra.org/u/rafael]Rafael Losada[/url].[/color][/color]