(0,1)

a = 3 (slider from 0 to 7, step 0.05)
f(x) = a^(x)
texto2: "f(x)=a^x=" + (LaTeX[a]) + "\,^x"
P = Point(f)
b = Line(P, yAxis)
c = Line(P, xAxis)
A = Intersect(c, yAxis)
B = Intersect(b, xAxis)
d = Segment(A, P)
e = Segment(P, B)
Z: (1, a)
W = (0, 1)
texto1_1: "(1," + (LaTeX[a]) + ")"