Re(z)

Im(z)

M = Intersect(xAxis, yAxis)
c = Circle(M, 1.0)
A = Point(c)
A2: x(A)
B2: y(A)
A3: A2^(2.0) - B2^(2.0)
B3: 2.0 * A2 * B2
A4: A3^(2.0) - B3^(2.0)
B4: 2.0 * A3 * B3
A5: A4^(2.0) - B4^(2.0)
B5: 2.0 * A4 * B4
A6: A5^(2.0) - B5^(2.0)
B6: 2.0 * A5 * B5
A7: A6^(2.0) - B6^(2.0)
B7: 2.0 * A6 * B6
A8: A7^(2.0) - B7^(2.0)
B8: 2.0 * A7 * B7
A9: A8^(2.0) - B8^(2.0)
B9: 2.0 * A8 * B8
A10: A9^(2.0) - B9^(2.0)
B10: 2.0 * A9 * B9
A11: A10^(2.0) - B10^(2.0)
B11: 2.0 * A10 * B10
A12: A11^(2.0) - B11^(2.0)
B12: 2.0 * A11 * B11
A13: A12^(2.0) - B12^(2.0)
B13: 2.0 * A12 * B12
A14: A13^(2.0) - B13^(2.0)
B14: 2.0 * A13 * B13
A15: A14^(2.0) - B14^(2.0)
B15: 2.0 * A14 * B14
A16: A15^(2.0) - B15^(2.0)
B16: 2.0 * A15 * B15
A17: A16^(2.0) - B16^(2.0)
B17: 2.0 * A16 * B16
A18: A17^(2.0) - B17^(2.0)
B18: 2.0 * A17 * B17
A19: A18^(2.0) - B18^(2.0)
B19: 2.0 * A18 * B18
A20: A19^(2.0) - B19^(2.0)
B20: 2.0 * A19 * B19
A21: A20^(2.0) - B20^(2.0)
B21: 2.0 * A20 * B20
P_1: (A2, B2)
P_2: (A3, B3)
P_3: (A4, B4)
P_4: (A5, B5)
P_5: (A6, B6)
P_6: (A7, B7)
P_7: (A8, B8)
P_8: (A9, B9)
P_9: (A10, B10)
P_{10}: (A11, B11)
P_{11}: (A12, B12)
P_{12}: (A13, B13)
P_{13}: (A14, B14)
P_{14}: (A15, B15)
P_{15}: (A16, B16)
P_{16}: (A17, B17)
P_{17}: (A18, B18)
P_{18}: (A19, B19)
P_{19}: (A20, B20)
P_{20}: (A21, B21)
Liste1: {P_1, P_2, P_3, P_4, P_5, P_6, P_7, P_8, P_9, P_{10}, P_{11}, P_{12}, P_{13}, P_{14}, P_{15}, P_{16}, P_{17}, P_{18}, P_{19}, P_{20}}
Liste2 = Sequence(Segment[Element[Liste1, i], Element[Liste1, i + 1.0]], i, 1.0, 19.0)