A = Intersect(xAxis, yAxis)
B = (16, 0)
a = Ray(A, B)
T = Point(a)
D: (x(T) - 2, 0)
k: x(T)
f(x) = If[0 < x ≤ 4, 5, If[4 < x < Infinity, 5 + ceil(x - 4)]]
c: f(k)
p: (1000 * c)
P: (k, p)
texto3: "k=" + (LaTeX[k]) + ""
A1: "x(" + (Name[P] + ")")
B1: "y(" + (Name[P] + ")")
C: (k, c)