Vamos a crear un polígono regular de modo que el número de sus lados dependan de un deslizador. Además aprovecharemos este ejercicio para que el polígono cambie su tamaño en función de la resolución de pantalla que tenga el equipo donde se ejecute. Los pasos a seguir son: 

• Crear un deslizador n, de 3 a 30 e incremento 1.

Con lo puntos de las cuatro esquinas de la ventana gráfica que se pueden obtener cómo Esquina[i], con i = 1, 2, 3 y 4, las funciones x( ) e y( ) que dan la coordenada x e y de un punto, un vector o una diferencia de puntos, y el comando Mínimo[a, b] se puede obtener r, un valor igual al 90% de la mitad del mínimo del ancho y el alto de la ventana gráfica:

• r = 0.9 Mínimo[y(Esquina[4] - Esquina[1])/2, x(Esquina[2] - Esquina[1])/2]

• Con: A = (Esquina[1] + Esquina[3])/2 se sitúa en el centro de la ventana gráfica.

• Con Lista1 = Secuencia[Rota[A + (r, 0), 2 π k / n, A], k, 0, n - 1] se consigue una lista de n puntos igualmente repartidos a una distancia r del punto A.

• Mediante una secuencia doble, se crea una lista con los segmentos que unen todos los puntos: lista2 = Secuencia[Secuencia[Segmento[Elemento[lista1, i], Elemento[lista1, j]], j, i +1, n], i, 1, n - 1]