`algptorat'
-----------

algptorat(POLY)
     :: ¿༰˴ޤޤ `root' , б긵֤.

RETURN
     ¿༰
POLY
     ¿༰

   * `sp' Ƥ.
   * ¿༰˴ޤޤ `root' `#N'  `t#N' ֤.

     [49] algptorat((-2*alg(0)+3)*x^2+(1/7*alg(0)-3/7));
     (-2*t#0+3)*x^2+1/7*t#0-3/7


     `defpoly', `algv'

