a = 5.7 (slider from -10 to 10, step 0.01)
A: (a, 0)
B: (2, 4)
Δ = OrthogonalLine(A, xAxis)
f = Segment(B, A)
d = LineBisector(f)
M = Intersect(Δ, d)