kill(all)$ load(atrig1)$ load(ntrig)$ fpprec:50$ ratprint:false$

Van=facebook.com/LearningCalculus;

f(x):=sqrt(4+10*%i)^x + sqrt(4-10*%i)^x-(2*sqrt(2))^x;

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

a:bfloat(realpart(newton(-1.5042705576145403206399326228119542719781864204117b0)))$

f(-1.5042705576145403206399326228119542719781864204117b0)$

bfloat(realpart(f(-1.5042705576145403206399326228119542719781864204117b0)));

bfloat(imagpart(f(-1.5042705576145403206399326228119542719781864204117b0)));