Не выходит получить правильный ответ методом Ньютона (касательных)

clear 
clc
xa = -5;
xb = -4;
y = @(x) cos(x).*(log(x)-(cos(x)).^2)-1/3;
dy = @(x) cos(x).*(2*cos(x).*sin(x) + 1./x) - sin(x).*(log(x) - cos(x).^2);
ddy = @(x) - cos(x)*(log(x) - cos(x)^2) - 2*sin(x)*(2*cos(x)*sin(x) + 1/x) - cos(x)*(2*sin(x)^2 - 2*cos(x)^2 + 1/x^2);
res = 1;
%метод Ньютона
d = @(x) y(x).*ddy(x);
if d(xa) > 0
    x0 = xa;
elseif d(xb) > 0
    x0 = xb;
else
    res = 0;
end
 
for i=1:15
    i
    x0 = x0 - y(x0)/dy(x0)
end
res
x0