Matlab - Ayuda con ejercicios de Matlab

clc

funcion=@(x) x.*cos(2./x)+tan(5./x); %esta es la función que hay que encontrarle la raíz

df=@(x) cos(2/x) - (5*(tan(5/x)^2 + 1))/x^2 + (2*sin(2/x))/x; %esta es la derivada de la función

xn1=5; %x inicial

xn=xn1*3; %se multiplica por 3 para que no sean iguales

k=0;

while abs(xn-xn1)>10^-11 %mientras el valor absoluto de la diferencia sea mayor a 10^-11

    xn=xn1;

    xn1=xn-funcion(xn)/df(xn);

    k=k+1;

    fprintf('%1.0f  %4.10f  %8.10f \n',k,xn,xn1)

end