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