exibir polígono de raízes

w = (2, 2)
B = Point(xAxis)
C = (0, 0)
α = Angle(B, C, w)
u = Vector(C, w)
n = 5 (slider from 2 to 16, step 1)
k = 6 (slider from 0 to 15, step 1)
r: abs(w)
A: (r^(1 / n) * cos((α + 2 * k * 3.141592653589793) / n), r^(1 / n) * sin((α + 2 * k * 3.141592653589793) / n))
v = Vector(C, A)
A' = Rotate(A, 360 * ° / n, C)
β = Angle(A, C, A')
polígono1, a, a', c, d, e, D, E, F = Polygon(A, A', n)
b = true
lista1 = Sequence(w^(1 / k), k, 1, n)
texto1: "Extracção de raízes de indíce n do 
número complexo w=" + w + "

Escolha w, escolha n e, de seguida, clique no play."
texto2: "raízes de indíce " + n + " de " + w + " = " + lista1 + ""