a = 13 (slider from 0 to 20, step 0.1)
h = 14.7 (slider from 0 to 15, step 0.1)
A = (2.24, -8.84)
B = Point(Circle[A, abs(a)])
b_3 = Segment(A, B)
C = Midpoint(A, B)
c_2 = Circle(C, h)
d = OrthogonalLine(C, b_3)
D = Intersect(c_2, d, 2)
e = Line(D, b_3)
E = Point(e)
f = Line(A, E)
g = Line(B, f)
F = Intersect(e, g)
i = Segment(A, E)
j = Segment(B, F)
k = Segment(E, F)
G = Midpoint(C, D)
l = Line(G, k)
H = Intersect(f, l)
I = Intersect(g, l)
m = Segment(H, I)
n = OrthogonalLine(E, e)
p = OrthogonalLine(B, b_3)
J = Intersect(n, b_3)
K = Intersect(e, p)
q = Segment(H, J)
r = Line(A, B)
s = OrthogonalLine(I, m)
t = OrthogonalLine(F, k)
L = Intersect(r, t)
a_1 = Segment(I, L)
Vieleck1, a_2, e_1, f_1, b_1 = Polygon(A, E, F, B)
Vieleck2, h_1, j_1, l_1, i_1 = Polygon(H, J, L, I)
Vieleck3, i_2, b_2, l_2 = Polygon(B, L, I)
c_1 = OrthogonalLine(H, b_3)
M = Intersect(c_1, r)
N = Intersect(r, s)
α = Angle(M, A, H)
δ = Angle(N, B, I)
γ = Angle(I, L, N)
β = Angle(H, J, M)
c = Segment(G, C)
b = Segment(H, I)
d_1 = Segment(M, H)
g_1 = Segment(I, N)