Somma delle radici dell'unità

O = Intersect(xAxis, yAxis)
n = 5 (slider from 2 to 10, step 1)
vrads = Sequence(Vector[(1; i * 360 * ° / n)], i, 0, n - 1)
vrads1 = Insert(Vector[(0, 0)], vrads, 1)
u = Translate(Vector[Element[vrads, 1]], (0, 0) + Sum[vrads1, 1])
v = Translate(Vector[Element[vrads, 2]], (0, 0) + Sum[vrads1, 2])
w = Translate(Vector[Element[vrads, 3]], (0, 0) + Sum[vrads1, 3])
z = Translate(Vector[Element[vrads, 4]], (0, 0) + Sum[vrads1, 4])
a = Translate(Vector[Element[vrads, 5]], (0, 0) + Sum[vrads1, 5])
b = Translate(Vector[Element[vrads, 6]], (0, 0) + Sum[vrads1, 6])
c = Translate(Vector[Element[vrads, 7]], (0, 0) + Sum[vrads1, 7])
d = Translate(Vector[Element[vrads, 8]], (0, 0) + Sum[vrads1, 8])
e = Translate(Vector[Element[vrads, 9]], (0, 0) + Sum[vrads1, 9])
f = Translate(Vector[Element[vrads, 10]], (0, 0) + Sum[vrads1, 10])
A: (0, 0) + Element[vrads, 1]
B: (0, 0) + Element[vrads, 2]
poli1, a_1, g, h, i, j, C, D, E = Polygon(A, B, n)