kill(all)$

fpprec:100$
fpprintprec:4$

ratprint:false$

van=facebook.com/LearningCalculus$

f(x,y):=log(x)+2*log(y)-2+log(8)$
g(x,y):=x^2-4*x*y-24$

xx:rhs(first(solve(f(x,y),x)));

g(rhs(first(solve(f(x,y),x))),y);

s:float(fullratsimp(radcan(solve(g(xx,y),y))))$

Y:create_list((s[i]),i,1,2);

X:create_list(float((solve(g(x,rhs(s[i])),x))),i,1,2);

[x:rhs(X[2][2]), y:rhs(Y[2])];