kill(all)$

van=facebook.com/LearningCalculus$

/Users/van/Desktop/13062879_556445677861982_3941797787795867986_o.jpg

Log(a,u):=log(u)/log(a)$

is(equal(2*log(2),log(4)));

f(x,y) := ''(Log(12,Log(8,Log(4,x)))/Log(5,(Log(4,(Log(y,Log(2,x)))))) = 0);

/Users/van/Desktop/Screen Shot 2016-05-03 at 4.31.47 PM.png

substitute(ln,log,f(x,y));

f(-8,3);

float(f(x,y));

fullratsimp(%);

float(%);

for x: 8 thru 8.1 step 0.1 do
    for y: 2.9 thru 3.1 step 0.1 do
      print(x, y, realpart(float(f(x,y))));