`sp'
----

sp(POLY)
     :: ǾʬΤ.

RETURN
     ꥹ
POLY
     ¿༰

   * `sp' Ƥ. ޤ `gr' ɬפǤ.
   * ͭ 1 ѿ¿༰ POLY κǾʬ, ӤξǤ
     POLY  1 Ҥؤʬ.
   * ̤, POLY ΰҤΥꥹȤ, ǾʬΤ, ༡ˤɽ
     ʤꥹȤǤ.
   * ǾʬΤ, `[root,algptorat(defpoly(root))]' ΥꥹȤȤɽ
     Ƥ. ʤ, ǾʬΤ, ͭΤ,  
     `root'źäΤȤ. źä,  `root' 
     ˹Ԥ.

     [101] L=sp(x^9-54);
     [[x+(-#2),-54*x+(#1^6*#2^4),54*x+(#1^6*#2^4+54*#2),54*x+(-#1^8*#2^2),
     -54*x+(#1^5*#2^5),54*x+(#1^5*#2^5+#1^8*#2^2),-54*x+(-#1^7*#2^3-54*#1),
     54*x+(-#1^7*#2^3),x+(-#1)],[[(#2),t#2^6+t#1^3*t#2^3+t#1^6],[(#1),t#1^9-54]]]
     [102] for(I=0,M=1;I<9;I++)M*=L[0][I];
     [111] M=simpalg(M);
     -1338925209984*x^9+72301961339136
     [112] ptozp(M);
     -x^9+54


     `af', `defpoly', `algptorat'

