A = Intersect(xAxis, yAxis)
B = Point(yAxis)
f = Line(A, B)
C = Point(xAxis)
g = Line(A, C)
D = Point(f)
h = Segment(A, D)
E = Point(g)
i = Segment(A, E)
j = Segment(D, E)
distanceAD = Distance(A, D)
Midpoint(A, D)
TextAD: Name[A] + (Name[D]) + " = " + distanceAD
distanceAE = Distance(A, E)
Midpoint(A, E)
TextAE: Name[A] + (Name[E]) + " = " + distanceAE
distanceDE = Distance(D, E)
Midpoint(D, E)
TextDE: Name[D] + (Name[E]) + " = " + distanceDE
AD = Distance(A, D)
a: AD^(2)
b: AD^(2)
c: h^(2)
d: i^(2)
e: j^(2)
text1: "AD^2=" + (LaTeX[c]) + "\\
AE^2=" + (LaTeX[d]) + "\\
DE^2=" + (LaTeX[e]) + ""