A = (3, 2)
B = (3, 6)
C = (9, 2)
a = Segment(B, A)
b = Segment(A, C)
c = Segment(B, C)
A' = Midpoint(B, C)
B' = Midpoint(A, C)
d = Ray(A, A')
e = Ray(B', B)
P = Intersect(d, e)
distànciaAA' = Distance(A, A')
TextAA': "\overline{" + (Name[A]) + (Name[A']) + "} \, = \, " + distànciaAA'
distànciaAP = Distance(A, P)
TextAP: "\overline{" + (Name[A]) + (Name[P]) + "} \, = \, " + distànciaAP