Mostrar polígono de raízes

Mostrar polígono de raízes

w = (2.7310899309997616, 0.8782335692067574)
B = (0, 0)
u = Vector(B, w)
a: sqrt(x(w)^(2) + y(w)^(2))
A = (5, 0)
α = Angle(A, B, w)
n = 5 (slider from 2 to 10, step 1)
lista1 = Sequence(Vector[a^(1 / n) * (cos((2 * π * k + α) / n), sin((2 * π * k + α) / n))], k, 0, n - 1)
k = 2 (slider from 1 to n, step 1)
lista2 = Sequence((a^(1 / n) * cos((2 * π * k + α) / n), a^(1 / n) * sin((2 * π * k + α) / n)), k, 0, n - 1)
E = Point(lista2)
C = Point(lista2)
polígono1 = Polygon(lista2)
D = Element(lista2, k)
v = Element(lista1, k)
h: (π * α / 180)°
g: h°
texto2: "Raízes\ de\ indice\ " + (LaTeX[n]) + " \,do\ número\ complexo\ " + (LaTeX[w]) + "=" + (LaTeX[a]) + "(\cos " + (LaTeX[α]) + "+i\ \sin" + (LaTeX[α]) + ")"
b: a^(1 / n)
texto1: "$ z_" + (LaTeX[k]) + "=" + (LaTeX[b]) + "\left\{\cos\left(\displaystyle\frac{360^0\times " + (LaTeX[k]) + "+" + (LaTeX[α]) + "}{" + (LaTeX[n]) + "}\right)+i\, \sin\left(\displaystyle\frac{360^0\times" + (LaTeX[k]) + "  + " + (LaTeX[α]) + "}{" + (LaTeX[n]) + " }\right) \right\}$"
c = false