A = Intersect(xAxis, yAxis)
B_1 = Point(xAxis)
a = Segment(A, B_1)
B = Point(a)
c = Circle(B, B_1)
b = OrthogonalLine(B, a)
C = Intersect(c, b, 2)
d = OrthogonalLine(C, b)
D = Intersect(yAxis, d)
p, a_1, c_1, d_1, e = Polygon(A, B, C, D)
P: (x(B), p)
f = OrthogonalLine(P, b)
distanciaAB = Distance(A, B)
distanciaBC = Distance(B, C)
perímetrop = Perimeter(p)
texto1: "Perímetro de  " + (Name[A]) + "" + (Name[B]) + "" + (Name[C]) + "" + (Name[D]) + " = " + perímetrop + ""
Textop: "Área de  " + (Name[A]) + "" + (Name[B]) + "" + (Name[C]) + "" + (Name[D]) + " = " + p + ""
TextoBC: "\overline{" + (Name[B]) + "" + (Name[C]) + "} \, = \, " + (LaTeX[distanciaBC]) + ""
TextoAB: "\overline{" + (Name[A]) + "" + (Name[B]) + "} \, = \, " + (LaTeX[distanciaAB]) + ""
A1: "\overline{" + (Name[A]) + "" + (Name[B]) + "} \, = \, " + " ... " + ""
B1: "Área de  " + (Name[A]) + "" + (Name[B]) + "" + (Name[C]) + "" + (Name[D]) + " = " + " ... " + ""
B2 = 3.3429630938801997
A2 = 0.5155340668521946
A3 = 0.5155340668521946
B3 = 3.3429630938801997