Diagonales de un Polígono
Author: Pila García

Activa as casillas de control 
Move cada esvarador para ver como se van construíndo os diferentes polígonos regulares
Observa como a medida que aumenta o número de lados, o polígono se vai aproximando á circunferencia circunscrita. 
A partir de 20 lados o polígono e a circuferencia son practicamente idénticos

Polígono de 20 lados ou menos

Polígono de máis de 20 lados

n = 8 (slider from 3 to 20, step 1)
r: (0.9 * Min[y(Corner[4] - Corner[1]) / 2, x(Corner[2] - Corner[1]) / 2])
A: (Corner[1] + Corner[3]) / 2
lista1 = Sequence(Rotate[A + (r, 0), ((2 * 3.141592653589793) * k / n), A], k, 0, n - 1)
a: ((n * (n - 3))) / 2
n' = 21 (slider from 21 to 50, step 1)
lista2 = Sequence(Rotate[A + (r, 0), ((2 * π) * k / n'), A], k, 0, n' - 1)
polígono2 = Polygon(lista2)
G = (14.037292, -2.4814439999999998)
b = false
d = false
polígono3 = Polygon(lista1)
c = Circle(A, r)