E(t,n)

E(t,n) = (1 + t i / n ) ⁿ

n = 8 (slider from 2 to 1000, step 1)
t = 1 (slider from -3.14 to 3.14, step 0.01)
a: 1 + t * ί / n
w: a^(0)
z: 1 + t * ί
e = Segment(w, z)
O = (0, 0)
k = Circle(O, w)
S = Sequence(a^(k), k, 1, n)
L = PolyLine(S)
lista1 = Sequence(Segment[O, a^(k)], k, 1, n)
E: a^(n)