A = (2, 3)
B = Point(yAxis)
f(x) = (y(A) - y(B)) / x(A) * x + y(B)
Text1: "f(x) = " + (Simplify[f(x)])
k = Slope(Line[B, A])
d = Segment((0.0, 0.0), B)