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

algptorat(POLY)
     :: $BB?9`<0$K4^$^$l$k(B `root' $B$r(B, $BBP1~$9$kITDj85$KCV$-49$($k(B.

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

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

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

   * $BB?9`<0$K4^$^$l$k(B `root' `#N' $B$rA4$F(B `t#N' $B$K(B $BCV$-49$($k(B.

     [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

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

