a

b

a

a²

ab

A = (-0.28, 5.8)
da = 6
B = Point(Segment[A + (0.88, 0.0), A + (da, 0.0)])
a = Segment(A, B)
db = 5
C = Point(Segment[A + (3.5, 0.0), A + (da + db, 0.0)])
b = Segment(B, C)
polígono1, b_1, a_1, e, f, F, G = Polygon(B, A, 4.0)
polígono2, c_1, a_2, g, h, H, I = Polygon(C, A, 4.0)
m = Line(B, G)
n1 = Line(F, G)
p = Line(C, I)
q = Line(H, I)
N = Intersect(p, n1)
O = Intersect(m, q)
polígono5: {Polygon[B, C, N, G]}
t = Segment(F, H)
g_1 = Segment(A, F)
t_1 = Segment(B, G)
b_2 = Segment(F, G)
s_1 = Segment(C, I)
c_2 = Segment(H, I)
e_2 = Segment(G, N)
B_1 = Midpoint(B, F)
C_1 = Midpoint(C, G)
F_1 = Midpoint(G, H)
G_1 = Midpoint(N, O)
c = Segment(C, N)
d = Segment(B, C)
i = Segment(F, H)
test: x(B) > x(C)
k = Segment(N, I)
l = Segment(O, I)
polígono4: {Polygon[A, H, I, C]}
polígono8: {Polygon[H, I, N, F]}
j = Segment(H, I)
texto5 = If(test, "(a-b)b", "(a+b)b")