a)

 \frac{  }{ } 

 \frac{  }{8 } 

 \frac{  }{ 8} 

A_2 = (-3, 3)
B_2 = (-3, 0.5)
a_2 = Segment(A_2, B_2)
C = (0.62, 3)
b_1 = Segment(A_2, C)
c_2 = Line(B_2, b_1)
d = Line(C, a_2)
D = Intersect(c_2, d)
e = Segment(B_2, D)
f = Segment(C, D)
E = (-2.52, 2)
F = (-2, 2)
G = (-1.44, 2)
H = (-0.86, 1.98)
I = (-0.3, 1.98)
J = (0.14, 2)
g = Line(E, a_2)
h = Line(F, a_2)
i = Line(G, a_2)
j = Line(H, a_2)
k = Line(I, d)
l = Line(J, d)
K = (-3.38, 2)
L = Point(a_2)
m = Line(K, a_2)
M = Point(m)
n = Segment(M, A_2)
N = Intersect(c_2, m)
p = Segment(N, B_2)
O = Intersect(b_1, g)
P = Point(c_2)
q = Segment(O, P)
Q = Point(e)
R = Intersect(b_1, h)
r = Segment(Q, R)
S = Intersect(b_1, i)
T = Point(c_2)
s = Segment(S, T)
U = Point(c_2)
V = Intersect(b_1, j)
t = Segment(U, V)
W = Intersect(b_1, k)
Z = Point(c_2)
a1 = Segment(W, Z)
A1 = Point(c_2)
B1 = Intersect(b_1, l)
b1 = Segment(A1, B1)
C1 = (-3.5, 3)
D1 = Point(c_2)
c1 = Segment(C1, D1)
d1 = Segment(D1, B_2)
e1 = Segment(C1, A_2)
E1 = (4.12, 3.58)
F1 = (2.58, 2.02)
f1 = Segment(E1, F1)
G1 = (3.68, 2.7600000000000002)
h1 = OrthogonalLine(E1, f1)
H1 = Point(Circle[F1, 3.0])
I1 = Point(h1)
k1 = AngularBisector(F1, E1, I1)
i1 = OrthogonalLine(E1, h1)
J1 = Point(Circle[E1, 2.5])
j1 = Segment(E1, J1)
K1 = Point(Circle[E1, 2.5])
l1 = OrthogonalLine(J1, i1)
m1 = OrthogonalLine(K1, h1)
L1 = Point(c_2)
M1 = Point(c_2)
g1 = Segment(L1, M1)
N1 = (11.82, 3.3200000000000003)
O1 = (9.44, 3.3400000000000003)
P1 = Point(c_2)
abstandO1N1 = Distance(O1, N1)
TextO1N1: "\overline{" + (Name[O1]) + (Name[N1]) + "} \, = \, " + abstandO1N1
Q1 = Point(Circle[O1, 0.6])
R1 = Point(Circle[Q1, 0.6])
S1 = Point(Circle[R1, 0.6])
V1 = Point(c_2)
R2 = Point(c_2)
S2 = Point(c_2)
T2 = Point(c_2)
U2 = Point(k1)
a3 = Segment(U2, K1)
b3 = Segment(K1, E1)
V2 = Intersect(i1, l1)
c3 = Segment(E1, V2)
d3 = Segment(V2, U2)
f3 = Segment(V2, K1)
W2 = Point(k1)
g3 = AngularBisector(E1, W2, K1)
h3 = AngularBisector(V2, W2, E1)
Z2 = Point(h1)
A3 = Point(f1)
B3 = Point(l1)
C3 = Point(m1)
D3 = Point(a3)
F3 = Point(f1)
A = 0 (slider from 0 to 8, step 1)
a4 = AngularBisector(A3, W2, E1)
b4 = AngularBisector(E1, W2, Z2)
c4 = AngularBisector(Z2, W2, K1)
d4 = AngularBisector(K1, W2, C3)
Q3 = Intersect(b3, b4)
R3 = Intersect(a3, d4)
S3 = Intersect(a3, a4)
T3 = Intersect(d3, b4)
U3 = Intersect(d3, c4)
V3 = Intersect(c3, d4)
W3 = Intersect(c3, a4)
T11: A + ""
Z3 = Intersect(c1, e1)
A4 = Point(a_2)
B4 = Point(a_2)
C4 = Intersect(c1, d1)
poly1, z3, a4_1, b4_1, c4_1 = Polygon(Z3, A4, B4, C4)
poly2, a_1, o_1, p_1, b_2 = Polygon(A_2, O, P, B_2)
poly3, o_2, r_1, q_1, p_2 = Polygon(O, R, Q, P)
poly4, r_2, s_1, t_1, q_2 = Polygon(R, S, T, Q)
poly5, s_2, v, u, t_2 = Polygon(S, V, U, T)
poly6, v_1, w, z, u_1 = Polygon(V, W, Z, U)
D4 = (-0.34, 3.1)
E4 = Point(b_1)
F4 = Intersect(b_1, b1)
G4 = Intersect(e, b1)
H4 = Point(e)
poly7, e4_1, f4_1, g4_1, h4_1 = Polygon(E4, F4, G4, H4)
poly8, f4_2, c_1, d_1, g4_2 = Polygon(F4, C, D, G4)
Zusammenschieben = 5 (slider from 0 to 5, step 0.1)
T1 = (0.62, 3.44)
U1 = Point(Circle[T1, Zusammenschieben])
c = Segment(T1, U1)
u1 = Vector(T1, U1)
Z3' = Translate(Z3, u1)
A4' = Translate(A4, u1)
B4' = Translate(B4, u1)
C4' = Translate(C4, u1)
poly1', z3', a4', b4', c4' = Polygon(Z3', A4', B4', C4')
A' = Translate(A_2, u1)
O' = Translate(O, u1)
P' = Translate(P, u1)
B' = Translate(B_2, u1)
poly2', a', o', p', b' = Polygon(A', O', P', B')
O'_1 = Translate(O, u1)
R' = Translate(R, u1)
Q' = Translate(Q, u1)
P'_1 = Translate(P, u1)
poly3', o'_1, r', q', p'_1 = Polygon(O'_1, R', Q', P'_1)
R'_1 = Translate(R, u1)
S' = Translate(S, u1)
T' = Translate(T, u1)
Q'_1 = Translate(Q, u1)
poly4', r'_1, s', t', q'_1 = Polygon(R'_1, S', T', Q'_1)
S'_1 = Translate(S, u1)
V' = Translate(V, u1)
U' = Translate(U, u1)
T'_1 = Translate(T, u1)
poly5', s'_1, v', u', t'_1 = Polygon(S'_1, V', U', T'_1)
V'_1 = Translate(V, u1)
W' = Translate(W, u1)
Z' = Translate(Z, u1)
U'_1 = Translate(U, u1)
poly6', v'_1, w', z', u'_1 = Polygon(V'_1, W', Z', U'_1)
E4' = Translate(E4, u1)
F4' = Translate(F4, u1)
G4' = Translate(G4, u1)
H4' = Translate(H4, u1)
poly7', e4', f4', g4', h4' = Polygon(E4', F4', G4', H4')
F4'_1 = Translate(F4, u1)
C' = Translate(C, u1)
D' = Translate(D, u1)
G4'_1 = Translate(G4, u1)
poly8', f4'_1, c', d', g4'_1 = Polygon(F4'_1, C', D', G4'_1)
B = 0 (slider from 0 to 8, step 1)
B_1 = Intersect(c4', b4')
C_1 = Point(p')
e_1 = Segment(B_1, C_1)
D_1 = Point(s')
E_1 = Point(v')
F_1 = Point(u')
G_1 = Point(t')
Vieleck1, g_1, d_2, e_2, f_1 = Polygon(G_1, D_1, E_1, F_1)
Text2: B + ""