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

Mueve el deslizadordor para ver el número de diagonales de los diferentes polígonos

Comprueba visualmente  y numericamente cuantas diagonales tiene cada polígono y si se adapta a la formula conocida

Move o esvarador n 
e obterás as diagonais 
de polígonos de n lados

Nº de diagonais:

\frac{n(n-3)}{2}

n = 10 (slider from 3 to 30, step 1)
B = Corner(2)
C = Corner(3)
D = Corner(4)
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)
lista2 = Sequence(Sequence[Segment[Element[lista1, i], Element[lista1, j]], j, i + 1, n], i, 1, n - 1)
a: ((n * (n - 3))) / 2
texto3: "\frac{" + (LaTeX[n]) + "(" + (LaTeX[n]) + "-3)}{2}=" + (LaTeX[a]) + ""
polígono1 = Polygon(lista1)