number = 40 (slider from 1 to 111, step 1)
f: y = 10^(x)
A: (0, number)
g = OrthogonalLine(A, yAxis)
B = Intersect(f, g, (1.6020599912471076, 39.999999992553))
a: y(B)
b: x(B)
text1: "" + (LaTeX[number]) + "≈10^{" + (LaTeX[b]) + "}"
text2: "" + (LaTeX[f]) + ""
h = OrthogonalLine(B, xAxis)