h:read("Gib die Funktion g(x):= ein");

newton(f,x):=([y,df,dfx],df:diff(f('x),'x),
       do (y:ev(df),x:x-f(x)/y,
           if abs(f(x))<5*10**-6 then return(x)))$

x1:newton(g,1000),numer;

x1:floor(x1*100+0.5)/100.0;

x2:newton(g,-1000),numer;

x2:floor(x2*100+0.5)/100.0;