x

x

f(x) = ℯ^(x)
g_1 = Invert(f)
B = (-3, -3)
C = (3, 3)
h = Line(B, C)
x_1 = 1 (slider from 0 to 5)
A: (x_1, f(x_1))
i = OrthogonalLine(A, h)
A' = Intersect(g_1, i, (2.718281828459045, 1))
j = Segment(A, A')
α = Angle(j, h)
k = OrthogonalLine(A, xAxis)
D = Intersect(k, xAxis)
l = Segment(A, D)
m = OrthogonalLine(A, yAxis)
E = Intersect(m, yAxis)
p = Segment(A, E)
q = OrthogonalLine(A', xAxis)
F = Intersect(q, xAxis)
r = Segment(A', F)
s = OrthogonalLine(A', yAxis)
G = Intersect(yAxis, s)
t = Segment(A', G)
g(x) = If[0 ≤ x ≤ 1000, g_1(x)]