clc,clear all;
format long
x0=pi/2
felet=10000;
while(abs(felet))>1e-8*x0
    f=exp(x0)-10*cos(x0);
    fp=exp(x0)+10*sin(x0);
    felet=f/fp;
    x0=x0-felet
end