z^n

A = (0, 0)
z = (0.5398694672106654, 0.8496050640758431)
u = Vector(A, z)
n = 1 (slider from 1 to 40, step 1)
z_1: z^(n)
i = (0, 1)
v = Vector(A, z_1)
texto1: "Potências  de  números  complexos (fórmula de Moivre)..   
Escolha  z=" + z + ",   e depois clique  no play  
para ver as sucessivas potências de z:"
w: z^(n)
texto2: "(" + (LaTeX[z]) + ")^" + (LaTeX[n]) + "=" + (LaTeX[w]) + ""
A1 = 1
A2: A1 + 1
A3: A2 + 1
A4: A3 + 1
A5: A4 + 1
A6: A5 + 1
A7: A6 + 1
A8: A7 + 1
A9: A8 + 1
A10: A9 + 1
A11: A10 + 1
A12: A11 + 1
A13: A12 + 1
A14: A13 + 1
A15: A14 + 1
A16: A15 + 1
A17: A16 + 1
A18: A17 + 1
A19: A18 + 1
A20: A19 + 1
B1: z
B2: $B$1^(A2)
B3: $B$1^(A3)
B4: $B$1^(A4)
B5: $B$1^(A5)
B6: $B$1^(A6)
B7: $B$1^(A7)
B8: $B$1^(A8)
B9: $B$1^(A9)
B10: $B$1^(A10)
B11: $B$1^(A11)
B12: $B$1^(A12)
B13: $B$1^(A13)
B14: $B$1^(A14)
B15: $B$1^(A15)
B16: $B$1^(A16)
B17: $B$1^(A17)
B18: $B$1^(A18)
B19: $B$1^(A19)
B20: $B$1^(A20)
lista1: {B2, B3, B4, B5, B6, B7, B8, B9, B10, B11, B12, B13, B14, B15, B16, B17, B18, B19, B20}
z_2 = Element(lista1, n - 1)
a = Vector(A, z_2)
lista2 = Sequence(z^(k), k, 1, n, 1)
B = Point(lista2)
b = Vector(A, B)
C = Point(lista2)
c = Vector(A, C)
D = Point(lista2)
d = Vector(A, D)
lista3 = Sequence(Vector[A, z^(k)], k, 1, n, 1)
e = Circle(A, 1)