function m=nullstellerek(f,a,b,tol)

m=(a+b)/2;
if b-a < 2*tol | f(m)==0
   return
elseif f(m) > 0
    b=m;
    m=nullstellerek(f,a,b,tol);
else 
    a=m;
    m=nullstellerek(f,a,b,tol);
end



end