k = 0.2 (slider from -5 to 5)
f(x) = ℯ^((k * x)) - x - 1
T = Extremum(f, -8, 10)
h(x) = (-x) - 1
g = OrthogonalLine(T, h)
A = Intersect(f, g, (8.04719, -4.047189124711796))
B = Intersect(h, g, 1)
i = Segment(T, B)