A = (0, -2)
a = 12.8
B = Point(Circle[A, a])
b = Segment(A, B)
c = OrthogonalLine(A, b)
d = OrthogonalLine(B, b)
e = 3.6
f = 6.8
g = Circle(A, f)
h = Circle(B, e)
C = Intersect(g, c, 2)
D = Intersect(h, d, 2)
i = Segment(C, A)
j = Segment(D, B)
E = Point(b)
k = Segment(C, E)
l = Segment(E, D)
distanceAE = Distance(A, E)
TexteAE: Name[A] + (Name[E]) + " \, = \, " + distanceAE
distanceCE = Distance(C, E)
TexteCE: Name[C] + (Name[E]) + " \, = \, " + distanceCE
distanceED = Distance(E, D)
TexteED: Name[E] + (Name[D]) + " \, = \, " + distanceED