débit = 9.100000000000001 (slider from 5 to 15, step 0.1)
c: y = débit x
A = Point(xAxis)
d = OrthogonalLine(A, xAxis)
B = Intersect(c, d)
C = Intersect(d, a)
distanceCB = Distance(C, B)
TexteCB: "\overline{" + (Name[C]) + (Name[B]) + "} \, = \, " + distanceCB
e = Segment(C, B)