Este archivo es el resultado de algunos experimentos con finalidad únicamente artística.[br][br]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.[br][br][b]CONSTRUCCIÓN:[/b][br][list][br][*]Se ha partido de tres puntos (blancos) situados cerca del origen y se ha modificado el color del fondo de la pantalla (negro).[br][*]A partir de esos tres puntos se obtienen sus simétricos respecto del eje de abcisas (y=0)[br][*]Ambas ternas de puntos se utilizan para obtener dos polígonos de color rojo ...[br][*]Se define un deslizador entero "n" (blanco) con valores de 3 en adelante [br][*]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]'[br][*]Se obtiene otra lista de polígonos (lista2) usando el mismo procedimiento con la segunda terna de puntos.[br][*]Cambiando el valor de 'n' y la posición de los tres puntos iniciales se modifica la construcción.[br][*]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]][br][/list]

Carlos Fleitas, enero de 2014