z=%v

n = 2 (slider from 2 to 18, step 1)
z_1 = (8, 6)
r = Segment((0, 0), z_1)
B1 = (8, 6)
O = Intersect(xAxis, yAxis)
α = Angle((10, 0), (0, 0), z_1)
lista1 = Sequence((abs(z_1)^(1 / n); α / n + ((k * 2) * π / n)), k, 0, n - 1)
lista2 = Sequence(Segment[Element[lista1, k], Element[lista1, k + 1]], k, 1, n)
a = Segment(Element[lista1, 1], Element[lista1, n])
texto1: "\sqrt[{" + (LaTeX[n]) + "}]{z}=\left\{(\sqrt[" + (LaTeX[n]) + "]{" + (LaTeX[abs(z_1)]) + "};" + (LaTeX[α / n]) + "), ..., (\sqrt[" + (LaTeX[n]) + " ]{ " + (LaTeX[abs(z_1)]) + "};" + (LaTeX[α / n + (((n - 1) * 360) * ° / n)]) + " )\right\}"