A = Intersect(xAxis, yAxis)
B = Point(xAxis)
C = Point(yAxis)
a = Segment(B, C)
distanciaCB = Distance(C, B)
Midpoint(C, B)
TextoCB: "\overline{" + (Name[C]) + (Name[B]) + "} \, = \, " + distanciaCB
c = Circle(B, C)
D, E = Intersect(c, xAxis)
distanciaBE = Distance(B, E)
Midpoint(B, E)
TextoBE: "\overline{" + (Name[B]) + (Name[E]) + "} \, = \, " + distanciaBE