A = (4.327669471651372, 4.765497947982603)
A_2 = (11.347587958510205, 3.8082363361382168)
A_1 = (1.8279113079941012, 3.810283954559275)
c = Line(A_1, A_2)
d = Line(A, c)
b = 3 (slider from 0 to 10, step 0.1)
a = 4 (slider from 0 to 10, step 0.1)
e = Circle(A, a)
B = Intersect(e, d, 2.0)
k = Segment(A, B)
X = Point(k)
p = OrthogonalLine(X, k)
g = Circle(B, b)
f = OrthogonalLine(B, d)
C = Intersect(g, f, 2.0)
h = Segment(A, C)
Z = Intersect(p, h)
m = Segment(B, C)
O = (0, 0)
U = (0, 1)
s = Line(O, U)
S = Area(A, X, Z)
P: (0.0, S)
distânciaAX = Distance(A, X)
l = Segment(X, Z)
polígono1, z, a_1, D = Polygon(A, X, Z)
i = Distance(A, X)
TextoAX: "\overline{" + (Name[A]) + (Name[X]) + "} \, = \, " + i
Textopolígono1: "Área " + (Name[A]) + (Name[X]) + (Name[Z]) + " = " + polígono1