a = 4 (slider from 0 to 10, step 0.1)
b = 3 (slider from 0 to 10, step 0.1)
A_1 = (1.8279113079941012, 3.810283954559275)
A_2 = (11.255061201108672, 3.771805791730236)
c = Line(A_1, A_2)
A = (8.661624494688017, 6.118803089433196)
d = Line(A, c)
e = Circle(A, a)
B = Intersect(e, d, 2.0)
f = OrthogonalLine(B, d)
g = Circle(B, b)
C = Intersect(g, f, 2.0)
i = OrthogonalLine(C, f)
j = OrthogonalLine(A, d)
D = Intersect(i, j)
k = Segment(A, B)
m = Segment(B, C)
n = Segment(C, D)
o = Segment(D, A)
X_1 = Point(k)
p = OrthogonalLine(X_1, k)
Y_1 = Intersect(p, n)
r = Segment(X_1, Y_1)
S = Area(A, X_1, Y_1, D)
polígono1, a_1, E, F, d_1 = Polygon(A, X_1, Y_1, D)
Textopolígono1: "Área " + (Name[A]) + (Name[X_1]) + (Name[Y_1]) + (Name[D]) + " = " + polígono1
distânciaAX = Distance(A, X_1)
TextoAX: "\overline{" + (Name[A]) + (Name[X_1]) + "} \, = \, " + distânciaAX
l = Length(Vector[Vector[A, X_1]])
P_1: (l, S)
lg1 = Locus(P_1, X_1)
h = 0.5 (slider from 0 to 1, step 0.1)
q = Circle(X_1, h)
X_2 = Intersect(q, k, 2.0)
s = OrthogonalLine(X_2, k)
Y_2 = Intersect(s, n)
t = Segment(X_2, Y_2)
T = Area(X_1, X_2, Y_2, Y_1)
l_1: (l, 0.0)
l_2: (l + h, 0.0)
S_1: (0.0, S)
S_2: (0.0, S + T)
b_1 = Segment(l_1, P_1)
c_1 = Segment(P_1, S_1)
P_2: (l + h, S + T)
e_1 = Segment(l_2, P_2)
f_1 = Segment(P_2, S_2)
polígono2, x_1, x_2, y_2, y_1 = Polygon(X_1, X_2, Y_2, Y_1)
Textopolígono2: "Área " + (Name[X_1]) + (Name[X_2]) + (Name[Y_2]) + (Name[Y_1]) + " = " + polígono2