Graphe (discret) de $f$

A: (-5, -1)
B = (-1, -1)
C = (-1, -5)
D = (-5, -5)
q1, a, b, c, d = Polygon(A, B, C, D)
e = CircleArc(C, B, D)
k = 3.3 (slider from 0 to 4, step 0.1)
M: (k - 5, -1)
f = Segment(C, M)
M' = Intersect(e, f)
E = Intersect(a, f)
distanceMM' = Distance(M, M')
Midpoint(M, M')
TexteMM': Name[M] + (Name[M']) + " = " + distanceMM'
LongueurMM': (k, distanceMM')