k = 1 (slider from 0 to 5, step 0.1)
ω = 1 (slider from 0 to 5, step 0.1)
t = 0 (slider from 0 to 100, step 0.1)
f(x) = sin(k * x + ω * t)
P = Intersect(f, a, (1.0, 0.8414709848078965))
A = Intersect(a, xAxis)
b = Segment(P, A)