Diagonales de un polígono regular

Comenzamos creando dos deslizadores Toolbar Imagenuméricos; uno para el radio (r) de la circunferencia circunscrita a la familia de polígonos regulares y otro para la cantidad de vértices (n) del polígono. A continuación crearemos una lista con los vértices del polígono. Para eso escribimos en la barra de entrada:

lista1 = Secuencia[Rota[(r, 0), i 2 π / n, (0, 0)], i, 0, n]

Para construir el polígono escribimos:

Polígono[lista1]