Newton Raphson

1.

f[x_]=4*Cos[x]-Exp[x]

Plot[f[x],{x,-5,4}]

0 eta 2 tartea
errorea 10^-4

For[x0=1.;i=1;tol=10^(-4);err=tol+1,i<50&&err>tol,i++,x1=x0-(f[x0]/f'[x0]);err=Abs[(x1-x0)/x1];Print[i," garren iterazioan hurbilketa = ",x1," eta errorea = ",err];x0=x1]

2.

f[x_]=Exp[-x]-x

Plot[f[x],{x,-5,4}]

For[x0=0.;i=1;tol=2.5*10^(-4);err=tol+1,i<50&&err>tol,i++,x1=x0-(f[x0]/f'[x0]);err=Abs[(x1-x0)/x1];Print[i," garren iterazioan hurbilketa = ",x1," eta errorea ",err];x0=x1]