D = Intersect(xAxis, yAxis)
f(x) = 1 / sqrt(x)
A = Point(f)
a = Tangent(A, f)
M = Intersect(xAxis, a)
distanceDM = Distance(D, M)
N = Intersect(yAxis, a)
poly1, c, d, b = Polygon(D, N, M)
aire: "Aire " + (Name[D]) + (Name[N]) + (Name[M]) + " = " + poly1
g = Function(f, 0, 100)
O = (5.571940298507463, 3.8668656716417913)
e = Circle(O, 1)
U = Point(e)
V = Rotate(U, 90°, O)
h = Ray(O, U)
i = Ray(O, V)
xm: "\overline{" + (Name[D]) + (Name[M]) + "} \, = \, " + distanceDM
k = Circle(O, distanceDM)
B = Intersect(k, h)
p = Circle(O, poly1)
j = Line(B, i)
C = Intersect(p, i)
l = Line(C, h)
E = Intersect(j, l)
m = Segment(C, E)
n = Segment(E, B)
F = Point(g)