Length[initialPoints]
Plot[f[x],{x,a,b},Epilog->{PointSize[Medium], Red, Point[zeros]},
PlotRange->All, PerformanceGoal->"Quality", PlotStyle->{Thick, Brown}]
Algorithm 2