A = (1, 1)
a_3 = OrthogonalLine(A, yAxis)
B = Point(a_3)
b_2 = Segment(A, B)
c = Circle(B, A)
d = Circle(A, B)
e = OrthogonalLine(B, b_2)
f = OrthogonalLine(A, b_2)
C = Intersect(c, e, 2)
D = Intersect(d, f, 2)
Vieleck1, a_1, b_1, c_1, d_1 = Polygon(A, B, C, D)
F = Point(b_2)
g = Circle(A, F)
h = Circle(F, A)
E = Intersect(g, d_1, 1)
i = OrthogonalLine(E, d_1)
j = OrthogonalLine(F, b_2)
I = Intersect(h, i, 1)
H = Intersect(j, c_1)
G = Intersect(i, b_1)
k = Segment(H, F)
l = Segment(E, G)
m = Segment(A, E)
n = Segment(G, C)
Vieleck2, a, g_1, i_1, h_1 = Polygon(A, F, I, E)
Vieleck3, i_2, k_1, c_2, j_1 = Polygon(I, G, C, H)
b = Segment(F, B)
PunktVieleck1 = PointIn(Vieleck1)
TextVieleck1: "Fläche von  " + (Name[A]) + "" + (Name[B]) + "" + (Name[C]) + "" + (Name[D]) + " = " + Vieleck1 + "
= (AF+FB)² = (a+b)²
= (AF)² + FB·BG + EI·IH + (IG)² = a² + b·a + a·b + b²
= a² + 2ab + b²

⇒ (a+b)² = a²+2ab+b²"