[color=#999999]Esta actividad pertenece al [i]libro de GeoGebra[/i] [url=https://www.geogebra.org/m/btjysbzp]Autómatas[/url][/color].[br][br]Existe una gran diferencia entre condición y cálculo. Por ejemplo, la condición para que un número real sea raíz de una función es que el valor numérico de la función, para ese número, sea cero. Calcular esa raíz es otro cantar.[br][br]Habitualmente los cálculos exigen procedimientos cuyo aprendizaje es largo y tedioso. Pero que no sepamos realizar esos cálculos no es impedimento para apropiarnos de la idea matemática que abordan. Estas ideas pueden parecer mucho más atractivas si sacrificamos algo de cálculo... o lo simplemente lo posponemos a un nivel más avanzado.[br][br][b]Proyecto 2D[/b]: [i]crear sistemas dinámicos que se estabilicen por sí mismos.[/i] [br][br]Pongamos dos puntos en el interior de un círculo. Imaginemos que tanto los puntos como el borde del círculo están cargados eléctricamente, con la misma carga. Los dos puntos se repelen entre sí, y son repelidos por la circunferencia, con intensidad inversamente proporcional al cuadrado de la distancia. Inmediatamente, buscarán el equilibrio, que se alcanzará cuando los dos puntos se dispongan simétricamente respecto al centro del círculo y a una distancia entre sí igual a un tercio del diámetro.

Si añadimos más puntos, el equilibrio dará lugar a polígonos regulares, como cabría esperar. Aquí vemos cómo 10 puntos se equilibran formando el decágono regular (dependiendo de las condiciones iniciales, podría formarse también un eneágono con su centro).

No siempre resulta tan intuitivo predecir cuál serán las posiciones estables. En este caso, cinco puntos en un cuadrado encuentran, además de la distribución que cabría esperar, otras cuatro posibles distribuciones, simétricas entre sí.

Incluso pueden observarse situaciones en las que una levísima diferencia en las condiciones iniciales diferencie el orden del caos. En este ejemplo, los puntos se repelen entre ellos igual que antes, pero ahora además son atraídos, con doble intensidad, al origen de coordenadas.

[color=#999999]Autor de la actividad y construcción GeoGebra: [url=https://www.geogebra.org/u/rafael]Rafael Losada[/url].[/color]

[color=#999999]Esta actividad pertenece al [i]libro de GeoGebra[/i] [url=https://www.geogebra.org/m/btjysbzp]Autómatas[/url][/color].[br][br]Hasta ahora, el comportamiento de los robots quedaba determinado por vectores definidos a partir de los otros puntos. En este último apartado, crearemos robots que antes de emprender un movimiento [b]husmeen [/b]qué sucede a su alrededor y, basándose en los valores obtenidos, tomen una decisión.[br][br][b]Proyecto 2D[/b]: [i]crear demostraciones dinámicas automáticas[/i].[br][br]En este ejemplo, queremos demostrar el recíproco del teorema de Pitágoras. [br][br]Partimos de un [b]triángulo [/b]ABC y llamamos [b]dif [/b]la expresión abs(a²+b²-c²). Nuestro objetivo es que dif valga 0.[br]Creamos un deslizador t que va a servirnos para animar el vértice C (al que hemos activado el rastro), de forma que varíe con bastante frecuencia, por ejemplo, entre 0 y 1 con paso 0.01.[br][br]Otro deslizador inc, entre 0 y 0.1, nos servirá para establecer el avance en cada paso. En principio, el valor de inc será 0.1. [br][br]Finalmente, creamos dos objetos auxiliares: [b]C0[/b]=(0,0) y [b]dif0[/b]=0 que valdrán para mantener, respectivamente, los valores actuales de C y dif.[br][br]Ahora escribimos el programa de nuestro robot. Cada vez que se actualice el valor de t, se ejecutará el siguiente [b]guión [/b]de instrucciones (el símbolo # sirve para añadir comentarios): [br][br][color=#ff0000]# Fijamos los valores de partida dif0 y C0:[/color][br]Valor(dif0, dif)[br]Valor(C0, C)[br][br][color=#ff0000]# Variamos C y comparamos la dif yendo hacia el NE con dif0:[/color][br]Valor(C, C + (inc, inc))[br]Valor(C, Si(dif# [Repetimos estas tres instrucciones para los movimientos hacia el E, SE, S, SO, O, NO y N, es decir, (inc, 0), (inc, -inc), (0, -inc), (-inc, -inc), (-inc, 0), (-inc, inc) y (0, inc).][br][br][color=#ff0000]# Si la diferencia no se reduce, incrementamos la precisión dividiendo inc entre 10:[/color][br]Valor(inc, Si(dif==dif0, inc/10, inc))[br][br][color=#ff0000]# Cuando la diferencia sea nula, detenemos la animación (además, se mostrará el mensaje “proceso terminado”):[/color][br]Si(dif==0, IniciaAnimación(false))[br][br]Ya solo nos queda animar el deslizador t.[br][br]Nota: Si queremos volver a repetir el experimento, debemos recordar devolver inc al valor 0.1.

[color=#999999]Autor de la actividad y construcción GeoGebra: [url=https://www.geogebra.org/u/rafael]Rafael Losada[/url].[/color]