Mandelbrot-Iteration
Author: Prof. Dr. Dörte Haftendorn
Date: Nov 06

z_{n+1}=z_n^2+c

Ha 06

C = (0.1065843621399173, 0.5703703703703703)
O = (0, 0)
c = Vector(O, C)
Z2: (x(c) + x(c)^(2) - y(c)^(2), 2 * x(c) * y(c) + y(c))
Z1: (x(c), y(c))
Z3: (x(c) + x(Z2)^(2) - y(Z2)^(2), 2 * x(Z2) * y(Z2) + y(c))
Z4: (x(c) + x(Z3)^(2) - y(Z3)^(2), 2 * x(Z3) * y(Z3) + y(c))
Z5: (x(c) + x(Z4)^(2) - y(Z4)^(2), 2 * x(Z4) * y(Z4) + y(c))
Z6: (x(c) + x(Z5)^(2) - y(Z5)^(2), 2 * x(Z5) * y(Z5) + y(c))
Z7: (x(c) + x(Z6)^(2) - y(Z6)^(2), 2 * x(Z6) * y(Z6) + y(c))
Z8: (x(c) + x(Z7)^(2) - y(Z7)^(2), 2 * x(Z7) * y(Z7) + y(c))
Z9: (x(c) + x(Z8)^(2) - y(Z8)^(2), 2 * x(Z8) * y(Z8) + y(c))
Z10: (x(c) + x(Z9)^(2) - y(Z9)^(2), 2 * x(Z9) * y(Z9) + y(c))
Z11: (x(c) + x(Z10)^(2) - y(Z10)^(2), 2 * x(Z10) * y(Z10) + y(c))
Z12: (x(c) + x(Z11)^(2) - y(Z11)^(2), 2 * x(Z11) * y(Z11) + y(c))
Z13: (x(c) + x(Z12)^(2) - y(Z12)^(2), 2 * x(Z12) * y(Z12) + y(c))
E: (x(c) + x(Z13)^(2) - y(Z13)^(2), 2 * x(Z13) * y(Z13) + y(c))
a = Segment(Z1, Z2)
b = Segment(Z2, Z3)
d = Segment(Z3, Z4)
e = Segment(Z4, Z5)
f = Segment(Z5, Z6)
g = Segment(Z6, Z7)
h = Segment(Z7, Z8)
i = Segment(Z8, Z9)
j = Segment(Z9, Z10)
k = Segment(Z10, Z11)
l = Segment(Z11, Z12)
m = Segment(Z12, Z13)
n = Segment(Z13, E)
B = (-0.29999999999999993, -0.5999999999999999)
A = (8.326672684688674E-17, -0.5999999999999999)
D = (-0.6999999999999998, -0.29999999999999993)
D1 = (-0.6999999999999998, 0.30000000000000016)
D2 = (-1.236625514403292, -0.16049382716049382)
D3 = (-1.3366255144032921, -0.06049382716049381)
p = Circle(O, 2)
D4 = (-0.8415637860082305, 0.20164609053497942)