O = (7, 0)
A = (3, 0)
c = Circle(O, A)
A_1 = (-2.056843594073718, 3.7484552806371307)
C_1 = (10.30315640592628, 4.128455280637132)
e = Segment(O, A)
distanzaOB = Distance(O, A)
TestoOB: "\overline{" + (Name[O]) + "" + (Name[A]) + "} \, = \, " + (LaTeX[distanzaOB]) + ""
S = (2, 4)
R = (19, 4)
a = 5 (slider from 0 to 5, step 0.1)
H: (7, a)
b = Line(O, H)
d = OrthogonalLine(H, b)
B, C = Intersect(c, d)
f = Segment(O, H)
distanzaOH = Distance(O, H)
Midpoint(O, H)
TestoOH: "\overline{" + (Name[O]) + "" + (Name[H]) + "} \, = \, " + (LaTeX[distanzaOH]) + ""