clear; clc; close all;
%INTERVALO INICIAL
a=pi/3; b=2;
%PRECISÃO
E1=1e-5;
E2=1e-5;

cont=0;

f=@(x) x-2.*sin(x);

d=(f(b)-f(a))/(b-a);
x=b-f(b)/d;

while abs(b-a)>E1 && abs(f(x))>E2
       if f(a)*f(x)<0
            b=x;
       else %f(b)*f(x)<0
            a=x;
       end
       d=(f(b)-f(a))/(b-a);
       x=b-f(b)/d;
       cont=cont+1;
end

%RAIZ APROXIMADA
raizposf=x
fraiz=f(raizposf)
contagemPOSF=cont
