T413

f(x) = If[x > 3, (x + 2) / (x - 3)]
g(x) = If[x > 1, ((3 * x) + 2) / (x - 1)]
h: y = x
A = Point(f)
i = OrthogonalLine(A, h)
B = Intersect(g, i, (1.9461133139469386, 8.284779239752266))