Ha 2/11

B = (10.5, 4)
A = (-5, 4)
a = Line(A, B)
Theta = Point(a)
Phi = 1.618033988749895
θ: x(Theta)
r: Phi^(2.0 / 3.141592653589793 * θ)
px: r * cos(θ)
py: r * sin(θ)
P: (px, py)
Ortslinie1 = Locus(P, Theta)
O = (0, 0)
Ps: (-y(P) * Phi, x(P) * Phi)
b = Segment(O, P)
c = Segment(O, Ps)
d = OrthogonalLine(P, b)
e = OrthogonalLine(Ps, c)
C = Intersect(d, e)
Vieleck1, o, p, c_1, ps = Polygon(O, P, C, Ps)
f = AngularBisector(P, O, Ps)
xpm: Phi^(2.0 / 3.141592653589793 * (θ + 3.141592653589793 / 4.0)) * cos(θ + 3.141592653589793 / 4.0)
ypm: Phi^(2.0 / 3.141592653589793 * (θ + 3.141592653589793 / 4.0)) * sin(θ + 3.141592653589793 / 4.0)
P_m: (xpm, ypm)
g = Segment(O, P_m)
li = Sequence((Phi^(2.0 / 3.141592653589793 * (θ + 3.141592653589793 / 40.0 * i)) * cos(θ + 3.141592653589793 / 40.0 * i), Phi^(2.0 / 3.141592653589793 * (θ + 3.141592653589793 / 40.0 * i)) * sin(θ + 3.141592653589793 / 40.0 * i)), i, 1.0, 20.0)
Vieleck2, o_1, p_1, h, i, j, k, l, m, n, q, s, t = Polygon(O, P, Element[li, 1.0], Element[li, 2.0], Element[li, 3.0], Element[li, 4.0], Element[li, 5.0], Element[li, 6.0], Element[li, 7.0], Element[li, 8.0], Element[li, 9.0], Element[li, 10.0])
Vieleck3, a_1, b_1, d_1, e_1, f_1, g_1, h_1, i_1, j_1, k_1, l_1, m_1 = Polygon(O, P_m, Element[li, 11.0], Element[li, 12.0], Element[li, 13.0], Element[li, 14.0], Element[li, 15.0], Element[li, 16.0], Element[li, 17.0], Element[li, 18.0], Element[li, 19.0], Element[li, 20.0])
D = (-2.7690406064520734, 1.6736337728439614)
n_1 = Line(D, m_1)
q_1 = OrthogonalLine(D, n_1)
E = Point(q_1)
r_1 = OrthogonalLine(E, q_1)
F = Point(r_1)
s_1 = OrthogonalLine(F, r_1)
G = Intersect(n_1, s_1)
Vieleck4, d_2, e_2, f_2, g_2 = Polygon(D, E, F, G)
Vieleck5, f_3, g_3, t_1, a_2, H, I = Polygon(F, G, 4.0)
Vieleck6, e_3, i_2, b_2, c_2, J, K = Polygon(E, I, 4.0)
h_2 = Circle(H, G)
α = Angle(P, O, I)
j_2 = Segment(O, I)