Visual Calculus - Exponentials and Logarithms

Problem:
Draw the graphs of the functions

Visualization:
Using Maple:

> plot({(4/7)^x, log[4/7](x), x}, x=-3..3, y=-3..3);