Parte real:

Parte imaginaria

a: 1
b: 0.5
z_1: a + (b * ί)
modu: abs(z_1)
Potpositivas = 15 (slider from 1 to 20, step 1)
Potnegativas = -13 (slider from -20 to -1, step 1)
listapot = Sequence(z_1^((-i)), i, 1, Potnegativas)
listapotmas = Sequence(z_1^(i), i, 1, Potpositivas)
listapotmenos = Sequence(z_1^((-i)), i, 1, (-Potnegativas))
argu: arg(z_1)
c = CurveCartesian((modu^(t) * cos((argu * t))), (modu^(t) * sin((argu * t))), t, 0, Potpositivas)
d = CurveCartesian((modu^(t) * cos((argu * t))), (modu^(t) * sin((argu * t))), t, Potnegativas, 0)
CasillaDeEntrada1 = Textfield(a)
CasillaDeEntrada2 = Textfield(b)
signo = If(b ≥ 0, "+", "")
texto1: "" + a + "" + signo + "" + b + "i"