Plot[{Log[x],-(1/0.0000001)*(x^(-0.0000001) - 1), (1/0.0000001)*(x^0.0000001 - 1)}, {x,0,10}]

Uh oh! Wolfram|Alpha doesn't run without JavaScript.

Please enable JavaScript. If you don't know how, you can find instructionshere.Once you've done that, refresh this page to start using Wolfram|Alpha.