Show inverse point

Show tangents

Show intersection of tangents

f(x) = exp(x)
g(x) = log(x)
a = 0.2 (slider from -5 to 5, step 0.1)
ept: (a, f(a))
O = (0, 0)
P = (-1, -1)
b = Line(P, O)
c = OrthogonalLine(ept, b)
lnpt = Intersect(g, c, (1.2214027581597953, 0.19999999999969334))
eTan = Tangent(ept, f(x))
lnTan = Tangent(lnpt, g(x))
d = false
e = false
TanIntersect = Intersect(lnTan, eTan)
h = false