`simpalg'
---------

simpalg(RAT)
     :: ͭ˴ޤޤŪñ.

RETURN
     ͭ
RAT
     ͭ

   * `sp' Ƥ.
   * , ¿༰, ͭ˴ޤޤŪ, ޤޤ `root' ¿
     ༰ˤñ.
   * ξ, ʬ줬ͭ, ̤ `root' ¿༰Ȥʤ.
   * ¿༰ξ, Ʒñ.
   * ͭξ, ʬʬҤ¿༰Ȥƴñ.

     [7] simpalg((1+A0)/(1-A0));
     simpalg undefined
     return to toplevel
     [7] load("sp")$
     [46] simpalg((1+A0)/(1-A0));
     (-2*#0-3)
     [47] simpalg((2-A0)/(2+A0)*x^2-1/(3+A0));
     (-2*#0+3)*x^2+(1/7*#0-3/7)
     [48] simpalg((x+1/(A0-1))/(x-1/(A0+1))); 
     (x+(#0+1))/(x+(-#0+1))

