function sol=bisezione(a,b,tol)
% Implemento il metodo di bisezione

if funBisez(a)*funBisez(b) > 0
    error('L'' intervallo non contiene la radice');    
elseif abs(funBisez(a)*funBisez(b) ) < tol
    error(' uno degli estremi e'' gia'' sulla radice ')
else
    
a0=a;
b0=b;
k=0;

disp('Numero iterazioni a priori : ')
ceil((log(abs(b0-a0))-log(tol))/log(2))

while abs(b-a) > tol*abs(b),
    m=(a+b)/2;
    if funBisez(m)*funBisez(a)<0,
        b=m;
    else
        a=m;
    end
    k=k+1;
end

disp('La radice cercata e` : ')
sol=(a+b)/2
disp('Numero iterazioni effettuate : ')
k
end

