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

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

RETURN
     $BB?9`<0(B

POLY
     $BB?9`<0(B

ALGLIST
     $B%j%9%H(B

   * `sp' $B$GDj5A$5$l$F$$$k(B.

   * $BBh(B 2 $B0z?t$O(B `root' $B$N%j%9%H$G$"$k(B. `rattoalgp()' $B$O(B, $B$3$N(B `root'
     $B$KBP1~$9$kITDj85$r(B, $B$=$l$>$l(B `root' $B$KCV$-49$($k(B.

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

$B;2>H(B
     *Note `alg': alg, *Note `algv': algv

