A = (-1.92, 4.74)
a_2 = OrthogonalLine(A, yAxis)
B = Point(a_2)
b_2 = Segment(A, B)
c = Circle(A, B)
d = Circle(B, A)
e = OrthogonalLine(A, b_2)
f = OrthogonalLine(B, b_2)
C, D = Intersect(c, e)
E, F = Intersect(d, f)
Vieleck1, a_1, b_1, e_1, c_1 = Polygon(A, B, E, C)
G = Point(b_2)
g = Circle(G, A)
h = Circle(A, G)
H = Intersect(h, c_1)
i = OrthogonalLine(H, c_1)
j = OrthogonalLine(G, b_2)
I = Intersect(g, i, 1.0)
J = Intersect(e_1, j)
K = Intersect(i, b_1)
a = Segment(H, A)
b = Segment(K, E)
k = Segment(G, J)
l = Segment(H, K)
Vieleck2, a_3, g_1, i_1, h_1 = Polygon(A, G, I, H)
Vieleck3, j_1, i_2, k_1, e_2 = Polygon(J, I, K, E)
abstandAH = Distance(A, H)
TextAH: "\overline{" + (Name[A]) + (Name[H]) + "} \, = \, " + abstandAH
abstandHC = Distance(H, C)
TextHC: "\overline{" + (Name[H]) + (Name[C]) + "} \, = \, " + abstandHC
abstandCJ = Distance(C, J)
TextCJ: "\overline{" + (Name[C]) + (Name[J]) + "} \, = \, " + abstandCJ
abstandJE = Distance(J, E)
TextJE: "\overline{" + (Name[J]) + (Name[E]) + "} \, = \, " + abstandJE
abstandEK = Distance(E, K)
TextEK: "\overline{" + (Name[E]) + (Name[K]) + "} \, = \, " + abstandEK
abstandKB = Distance(K, B)
TextKB: "\overline{" + (Name[K]) + (Name[B]) + "} \, = \, " + abstandKB
abstandAG = Distance(A, G)
TextAG: "\overline{" + (Name[A]) + (Name[G]) + "} \, = \, " + abstandAG
abstandGB = Distance(G, B)
TextGB: "\overline{" + (Name[G]) + (Name[B]) + "} \, = \, " + abstandGB
Text1: "a² = " + (a^(2.0))
Text2: "b² = " + (b^(2.0))
Text3: "2*a*b = " + (2.0 * a * b)
Text5: "(a+b)² = " + ((a + b)^(2.0))
Text4: "a²+b²+2*a*b = " + (a^(2.0) + b^(2.0) + 2.0 * a * b)