b = 15 (slider from 1 to 50, step 1)
A = Point(xAxis)
B: (b, 0)
O = Intersect(xAxis, yAxis)
c = Semicircle(A, B)
T = Intersect(c, yAxis, 1)
distanceOT = Distance(O, T)
TexteOT: Name[O] + (Name[T]) + " \, = \, " + distanceOT
distanceOB = Distance(O, B)
TexteOB: Name[O] + (Name[B]) + " \, = \, " + distanceOB