clear,clc
x=0:0.2:20;
f=@(x) 10*x.^(1/10)-x-cos(x)-exp(-x);
y=f(x);
plot(x,y)
grid
hold on

fp=@(x) x.^(-9/10)-1+sin(x)+exp(-x);
for x0=[1e-8 12]
    x=x0;
    while abs(f(x))>1e-6
        x=x-f(x)/fp(x);
    end
    disp(x)
    plot(x,f(x),'*')
end