A = (2.5, 1.14)
B = (3.42, -1.58)
c = Circle(A, B)
f = Tangent(B, c)
C = Point(f)
D = Point(c)
g = Line(C, D)
E = Intersect(c, g, 2)
distanceEC = Distance(E, C)
TextEC: Name[E] + (Name[C]) + " = " + distanceEC
distanceDC = Distance(D, C)
TextDC: Name[D] + (Name[C]) + " = " + distanceDC
distanceCB = Distance(C, B)
TextCB: Name[C] + (Name[B]) + " = " + distanceCB
A1: distanceCB
A2: A1^(2)
B1: distanceDC
C1: distanceEC
B2: (B1 * C1)