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