Seguir la secuencia de construcción
1. Marco tres puntos; A, B y C (punto medio entre A y B).. 2. Creo un deslizador que servirá como variable para el numero de lados. 3. Creo la lista de puntos que se obtienen de hacer rotar el punto A alrededor del punto B: ingreso el comando Secuencia[ <Expresión>, <Variable>, <Valor Inicial>, <Valor Final> ], selecciono expresión e ingreso Rota[ <Objeto>, <Ángulo>, <Punto> ]. El objeto es el punto A, el ángulo es i 2π/n, alredor del punto B. Luego completo la variable de la secuencia, valor inicial y valor final. La entrada quedará: Secuencia[Rota[A, i 2π/n, B], i, 0, n] 4. Creo la lista de puntos que se obtienen de hacer rotar el punto C alrededor del punto B: ingreso el comando Secuencia[ <Expresión>, <Variable>, <Valor Inicial>, <Valor Final> ], selecciono expresión e ingreso Rota[ <Objeto>, <Ángulo>, <Punto> ]. El objeto es el punto C, el ángulo es i 2π/n, alredor del punto B. Luego completo la variable de la secuencia, valor inicial y valor final. La entrada quedará: Secuencia[Rota[C, i 2π/n, B], i, 0, n] 5. Creo la lista de todos los segmentos que tendrán por extremos los puntos de las listas. Uso el comando secuencia dos veces porque el segmento tendrá dos extremos, cada uno con su variable: i y j. Ingreso el comando segmento una vez y dos veces el comando elemento para determinar los extremos: Secuencia[ <Expresión>, <Variable>, <Valor Inicial>, <Valor Final> ] (Aqui selecciono <Expresión> y uso otra vez el comando secuencia) Secuencia[ <Expresión>, <Variable>, <Valor Inicial>, <Valor Final> ] (Aqui selecciono <Expresión> y uso el comando segmento) Segmento[ <Extremo (punto)>, <Extremo (punto)> ] (Aqui selecciono <Extremo (punto)> y uso el comando elemento) Elemento[ <Lista>, <Posición del Elemento (número o valor numérico)> ] Elemento[ <Lista>, <Posición del Elemento (número o valor numérico)> ] 6. voy completando los datos en la entrada, de adentro hacia afuera: Secuencia[ Secuencia[ Segmento[ Elemento[ lista1, i ], Elemento[ lista2, j] ], i, 1, n ], j, 1, n ]