Raíces de números complejos

Construcción para visualizar que las raíces n-ésimas de un número complejo son los vértices de un polígono regular de n lados.

Parte real:

Parte imaginaria

Raíces:

a: -3
b: -2
z_1: a + (b * ί)
modu: abs(z_1)
argu: arg(z_1)
CasillaDeEntrada1 = Textfield(a)
CasillaDeEntrada2 = Textfield(b)
signo = If(b ≥ 0, "+", "")
texto1: "" + a + "" + signo + "" + b + "i"
n = 5 (slider from 3 to 10, step 1)
moduraices: nroot(modu,n)
l1 = Sequence((moduraices; (argu + (k * 360°)) / n), k, 0, n - 1)
polígono1 = Polygon(Element[l1, 1], Element[l1, 2], n)
texto2 = TableText(l1)