kill(all)$

fpprintprec:4$
a:0;

van=facebook.com/LearningCalculus$

f(x):=acos(1/(x+a))^2*asin(x)^2;
fp(x):=''(diff(f(x),x));

f(1);

newton(t):=float(subst(t,x,x-fp(x)/diff(fp(x),x)))$
s:newton(newton(0.6109869855871839));
f(s);

for u: 1 thru 10 step 1 do
    printf(true, "        ~f, ~8f~%",
        float(u/10),f(float(u/10)));