function [a1,b1]=inthalv(f,a,b,tol)
a1=a;b1=b;fb=feval(f,b);fa=feval(f,a);
if fa*fb>0
    error('f(a) och f(b) måste ha olika tecken')
end
while b1-a1>tol
    disp([a1 b1])
    x=(a1+b1)/2;
    if feval(f,x)*fb>0
        b1=x;
    else
        a1=x;
    end
end
