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);