Calcula y representa gráficamente las raices de un polinomio. Tomado del capítulo 5, pag 90, Mathematica al 99%.

\(DibujaRaices[polinomio_, var_] := 
	\ \ \ 
      Module[{puntos = {}, lista = {}, raiz = 0}, 
			\ \ \ 
        lista = var /. NSolve[polinomio == 0, var]; 
		\ \ \ \ \ 
        While[lista ≠ {}, raiz = N[First[lista]]; 

          			\ \ \ \ \ \ \ \ \ \ lista = Delete[lista, 1]; 

          			\ \ \ \ \ \ \ \ \ \ AppendTo[puntos, {Re[raiz], Im[raiz]}]]; 
        
		\ \ \ \ \ \ \ \ \ \ \ \ Print[puntos]; 

        ListPlot[puntos, PlotStyle -> PointSize[0.02]]]
\)DibujaRaices[(x^7) - x, x]

DibujaRaices[(x^17) - 15  (x^5) - 2, x]

DibujaRaices[(x^3) - x, x]