Re(z)

Im(z)

A = Point(c)
A2: x(A)
B2: y(A)
A3: A2^(2.0) - B2^(2.0)
B3: 2.0 * A2 * B2
A4: $A$2 * A3 - $B$2 * B3
B4: $B$2 * A3 + $A$2 * B3
A5: $A$2 * A4 - $B$2 * B4
B5: $B$2 * A4 + $A$2 * B4
A6: $A$2 * A5 - $B$2 * B5
B6: $B$2 * A5 + $A$2 * B5
A7: $A$2 * A6 - $B$2 * B6
B7: $B$2 * A6 + $A$2 * B6
A8: $A$2 * A7 - $B$2 * B7
B8: $B$2 * A7 + $A$2 * B7
A9: $A$2 * A8 - $B$2 * B8
B9: $B$2 * A8 + $A$2 * B8
A10: $A$2 * A9 - $B$2 * B9
B10: $B$2 * A9 + $A$2 * B9
A11: $A$2 * A10 - $B$2 * B10
B11: $B$2 * A10 + $A$2 * B10
A12: $A$2 * A11 - $B$2 * B11
B12: $B$2 * A11 + $A$2 * B11
A13: $A$2 * A12 - $B$2 * B12
B13: $B$2 * A12 + $A$2 * B12
A14: $A$2 * A13 - $B$2 * B13
B14: $B$2 * A13 + $A$2 * B13
A15: $A$2 * A14 - $B$2 * B14
B15: $B$2 * A14 + $A$2 * B14
A16: $A$2 * A15 - $B$2 * B15
B16: $B$2 * A15 + $A$2 * B15
A17: $A$2 * A16 - $B$2 * B16
B17: $B$2 * A16 + $A$2 * B16
A18: $A$2 * A17 - $B$2 * B17
B18: $B$2 * A17 + $A$2 * B17
A19: $A$2 * A18 - $B$2 * B18
B19: $B$2 * A18 + $A$2 * B18
A20: $A$2 * A19 - $B$2 * B19
B20: $B$2 * A19 + $A$2 * B19
A21: $A$2 * A20 - $B$2 * B20
B21: $B$2 * A20 + $A$2 * 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, 20.0)
B = Point(xAxis)