function vastaus=haarukointifunktio(a0,b0)
a=a0;
b=b0;
tarkkuus=0.001
while abs(b-a)>tarkkuus
    c = (a+b)/2;
    if(funktio(c)) < 0
        a=c;
    elseif(funktio(c) > 0)
        b=c;
    else
        a=c;
        b=c;
    end
end
vastaus=[a,b] 
end
