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

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

RETURN
     $@B?9`<0(J
POLY
     $@B?9`<0(J

   * `sp' $@$GDj5A$5$l$F$$$k(J.
   * $@B?9`<0$K4^$^$l$k(J `root' `#N' $@$rA4$F(J `t#N' $@$KCV$-49$($k(J.

     [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

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

