a_2 = 5.6 (slider from 0 to 20, step 0.1)
c = 3.9 (slider from 0 to 15, step 0.1)
h = 12 (slider from 0 to 15, step 0.1)
A = (-0.04, -8.6)
b_1: abs(a_2)
B = Point(Circle[A, abs(a_2)])
b_3 = Segment(A, B)
d = Line(A, B)
E = Point(d)
e = OrthogonalLine(E, d)
f = Circle(E, h)
D = Intersect(f, e, 2)
g = Line(D, d)
k = Circle(D, c)
E_1 = Intersect(k, g, 1)
i = Segment(A, E_1)
j = Segment(B, D)
C = Midpoint(E, D)
l = Line(C, d)
F = Intersect(l, i)
G = Intersect(l, j)
m = Segment(G, E)
n = OrthogonalLine(E_1, b_3)
H = Intersect(d, n)
p = Segment(F, H)
I = Midpoint(A, H)
J = Midpoint(B, E)
q = Segment(I, F)
h_1 = Segment(J, G)
α = Angle(I, A, F)
β = Angle(F, H, I)
γ = Angle(J, B, G)
δ = Angle(G, E, J)
s = Segment(E, C)
h_2 = Segment(C, D)
Vieleck1, a_1, c_3, d_1, b_2 = Polygon(A, E_1, D, B)
Vieleck2, f_1, g_1, e_2, h_3 = Polygon(F, G, E, H)
b = Segment(F, G)
i_1 = Segment(G, C)
a = Segment(A, B)
k_1 = Segment(H, E)