x

y

x

m = 72 (slider from 0 to 100, step 1)
f_1(x) = (m * 1 / x)
f(x) = If[0 ≤ x ≤ 1000, f_1(x)]
a = 0.08 (slider from 0 to 0.1, step 0.001)
P: (a, f(a))
g = OrthogonalLine(P, xAxis)
h = OrthogonalLine(P, yAxis)
A = Intersect(h, yAxis)
B = Intersect(g, xAxis)
i = Segment(A, P)
j = Segment(P, B)