function [x,n]=bisekcija(f,a,b,e)
%Funkcija [x,n]=bisekcija(f,a,b,e) trazi nultocku x funkcije f, na intervalu [a,b]
%dok nije dostignuta greska manja od e. Koristi se metoda bisekcije.
%Broj n je broj iteracija potrebnih za dostizanje greske manje od e.

f=fcnchk(f);
n=0;
x=(a+b)/2;
while (b-x)>e
   n=n+1;
   if feval(f,x)*feval(f,b)<eps
      a=x;
   else
      b=x;
   end
   x=(a+b)/2;
end
