kill(all)$

van=facebook.com/LearningCalculus$

f(x):=x^6-(x/4)^(log(50*x)/log(5));

newton(t):=bfloat(subst(t,x,x-f(x)/diff(f(x),x)));

newton(.5);

newton(2500);