afstand

R = 2 (slider from 1 to 5, step 0.5)
t = 0 (slider from 0 to 20, step 0.1)
d: (x - (R * t))^(2) + (y - R)^(2) = R^(2)
f(x) = (R * (t - sin(t)))
P: ((R * (t - sin(t))), (R * (1 - cos(t))))
h: y = 0
M: ((R * t), R)
i = Ray(M, P)
A = Point(i)
afstandMA = Distance(M, A)
TekstMA: Name[M] + (Name[A]) + " = " + afstandMA
Invulvak1 = Textfield(TekstMA)
g = Segment(P, M)
j = Segment(M, A)