f(x) = 1 / x
xtendvers = 1 (slider from 0 to 1, step -0.01)
M: (xtendvers, f(xtendvers))
P: (xtendvers, 0)
N: (0, f(xtendvers))
mn = Segment(M, N)
mp = Segment(M, P)
A1: "x(" + (Name[M] + ")")
B1: "y(" + (Name[M] + ")")