kill(all)$

fpprec:100$

load(ntrig)$ load(atrig1)$

van=facebook.com/LearningCalculus$

f(x):=fullratsimp(8*x*(1-2*x^2)*(8*x^4-8*x^2+1)-1)$ f(x);

s:radcan((solve(f(x),x)))$

for i:1 thru 7 do print ("Answer ", (s[i]));

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

newton(newton(newton(newton(newton(newton(-0.9396926207859086))))));
newton(newton(newton(newton(newton(newton(-0.6234898018587335))))));
newton(newton(newton(newton(newton(newton(-0.5))))));
newton(newton(newton(newton(newton(newton(0.1736481776669303))))));
newton(newton(newton(newton(newton(newton(0.2225209339563144))))));
newton(newton(newton(newton(newton(newton(0.7660444431189786))))));
newton(newton(newton(newton(newton(newton(0.9009688679024191))))));