Diagonales de un polígono de n lados
1. marco dos puntos A y B. 2. creo un deslizador que servirá como variable para el numero de lados. 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> ], como expresión 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] 3. Creo la lista de todos los segmentos que tendrán por extremos los puntos de la lista. 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> ] Secuencia[ <Expresión>, <Variable>, <Valor Inicial>, <Valor Final> ] Segmento[ <Extremo (punto)>, <Extremo (punto)> ] Elemento[ <Lista>, <Posición del Elemento (número o valor numérico)> ] Elemento[ <Lista>, <Posición del Elemento (número o valor numérico)> ] 4. voy completando los datos en la entrada, de adentro hacia afuera: Secuencia[ Secuencia[ Segmento[ Elemento[ lista1, i ], Elemento[ lista1, j] ], i, 1, n ], j, 1, n ]