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

rattoalgp(POLY,ALGLIST)
     :: $@B?9`<0$K4^$^$l$k(J `root' $@$KBP1~$9$kITDj85$r(J `root' $@$KCV$-49$($k(J.

RETURN
     $@B?9`<0(J
POLY
     $@B?9`<0(J
ALGLIST
     $@%j%9%H(J

   * `sp' $@$GDj5A$5$l$F$$$k(J.
   * $@Bh(J 2 $@0z?t$O(J `root' $@$N%j%9%H$G$"$k(J. `rattoalgp()' $@$O(J, $@$3$N(J `root'
     $@$KBP1~$9$kITDj85$r(J, $@$=$l$>$l(J `root' $@$KCV$-49$($k(J.

     [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)

$@;2>H(J
     `alg', `algv'

