Research Article

Multipoint Iterative Methods for Finding All the Simple Zeros in an Interval

Algorithm 2

seeds = Cases[Normal[p], Point[z_]:> z[[ ]], Infinity];
setInitial = Sort[seeds]
NumberOfGuesses = Length[setInitial]