Maybe this is a little bit off topic because it does not handle Maple or Mathematic, but nevertheles it may be useful.
The CAS maxima supplies the function allroots to find numerically roots of polynomials, and the manual says:
For complex polynomials an algorithm by Jenkins and Traub is used (Algorithm 419, Comm. ACM, vol. 15, (1972), p. 97). For real polynomials the algorithm used is due to Jenkins (Algorithm 493, ACM TOMS, vol. 1, (1975), p.178).
A description of the Jenkins-Traub-Algorithm can also be foun in Wikipedia.
A method for finding roots of polynomials is published in "Vorlesungen ueber Numerisches Rechnen" by C.Runge and H.Koenig, Berlin 1924 and is called Graeffe's Method, an algorithm that does not need approximations of the roots to start. On pp.168-173 they describe a way to handle complex roots.
Annotation:
The description in the book is very clear. The description in Wikipedia may not be sufficient to easily implement the method.
Root[3 + #1 + #1^5 &, 1]
... $\endgroup$