kill(all)$

van=facebook.com/LearningCalculus$

Log(a,x):=log(x)/log(a);

f(x):=''(fullratsimp(expand(sqrt(Log(x,sqrt(2*x)))*Log(4,x)+1)));

newton(t):=float(subst(t,x,x-f(x)/diff(f(x),x)))$

newton(newton(newton(newton(0.0965699858741694))));