Base:

Acercar

Alejar

Tangentes

Puntos

ln

lista1: {"2", "e", "4", "8", "10"}
op = SelectedIndex(lista1)
b = If(op ≟ 1, 2, op ≟ 2, 2.718281828459045, op ≟ 3, 4, op ≟ 4, 8, 10)
f(x) = b^(x)
A = Point(f)
g(x) = log(b, x)
B = Mirror(A, a)
c = Segment(A, B)
t1 = Tangent(A, f)
t2 = Mirror(t1, a)
d = false
e = false
bb = Element(lista1, op)
bb1: ("log_" * bb)
bb3 = If(op ≟ 2, bb2, op ≟ 5, "log", bb1)
texto1: "\fgcolor{006699}{f(x)=" + (LaTeX[bb]) + "^x }\\ \fgcolor{cc0000}{g(x)=" + (LaTeX[bb3]) + "(x)}"
AA: A
BB: B