kill(all)$

van=facebook.com/LearningCalculus$

f(x):=x^2+1/x^2-3;
s:solve(f(x),x);

g(x):=''(expand((x^x^2-1/(x^(1/x^2)))*((x^(1/x^2))+1/x^x^2))^2);

fullratsimp(g(rhs(first (s)))); float(bfloat(%));

ss:first(solve(g(x),x))$
sss:solve(ss,x)$
[ss, sss];