Polígonos estrellados (utilización de listas)
Este archivo es el resultado de algunos experimentos con finalidad únicamente artística.
Está basado en un ejemplo que encontré en su momento en GeogebraTube, pero no he sido capaz de volver a encontrar el archivo que me sirvió de inspiración. Por ese motivo, lamentablemente, no puedo hacer constar los créditos.
CONSTRUCCIÓN:
- Se ha partido de tres puntos (blancos) situados cerca del origen y se ha modificado el color del fondo de la pantalla (negro).
- A partir de esos tres puntos se obtienen sus simétricos respecto del eje de abcisas (y=0)
- Ambas ternas de puntos se utilizan para obtener dos polígonos de color rojo ...
- Se define un deslizador entero "n" (blanco) con valores de 3 en adelante
- Se obtiene una lista de 'n' polígongos a partir de los tres primeros puntos: 'lista1 = Sequence[Polygon[Rotate[O, 2π / n k, (0, 0)], Rotate[A, 2π / n k, (0, 0)], Rotate[B, 2π / n k, (0, 0)]], k, 0, n - 1]'
- Se obtiene otra lista de polígonos (lista2) usando el mismo procedimiento con la segunda terna de puntos.
- Cambiando el valor de 'n' y la posición de los tres puntos iniciales se modifica la construcción.
- Usando uno, dos o más vectores con origen común (u, v, ...), se obtienen por traslación otras estructuras idénticas, pero desplazadas: Translate[lista1, Vector[2u]]
Carlos Fleitas, enero de 2014