a = 16 (slider from 0 to 36, step 0.1)
A = (4.098619212112072, -2.4259571501819215)
B = Point(Circle[A, a])
f = Segment(A, B)
g = OrthogonalLine(A, f)
c = Circle(A, 36 / a)
D = Intersect(c, g, 2)
h = Tangent(D, c)
i = OrthogonalLine(B, f)
C = Intersect(i, h)
q1, a_1, b, c_1, d = Polygon(A, B, C, D)
Périmètre: (2 * (a + 36 / a))
texte1 = LaTeX(Périmètre, true, true)
AB = Distance(A, B)
AD = Distance(A, D)
Aire: (AB * AD)
texte2 = LaTeX(Aire, true, true)