Réel

z_1 = (3.41505570694453, 1.0075670058350856)
z_2 = (1.4648577200110247, 2.6977385945107923)
a: z_2 / z_1
liste2 = Sequence(Polygon[(0, 0), a^(n) * z_1, a^(n - 1) * z_1], n, 1, 40)
liste1 = Sequence(a^(n) * z_1, n, 2, 20)
texte1: "Raison a=" + (LaTeX[a]) + "=" + (LaTeX[Length[a]]) + "$e^{" + (LaTeX[y(log(a / Length[a]))]) + " i}$"