`rattoalgp'
-----------

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

RETURN
     ¿༰
POLY
     ¿༰
ALGLIST
     ꥹ

   * `sp' Ƥ.
   *  2  `root' ΥꥹȤǤ. `rattoalgp()' ,  `root'
     б긵, 줾 `root' ֤.

     [51] rattoalgp((-2*algv(0)+3)*x^2+(1/7*algv(0)-3/7),[alg(0)]);
     (-2*#0+3)*x^2+(1/7*#0-3/7)


     `alg', `algv'

