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

rattoalgp(POLY,ALGLIST)
     :: Ɋ܂܂ `root' ɑΉs茳 `root' ɒu.

RETURN
     
POLY
     
ALGLIST
     Xg

   * `sp' Œ`Ă.
   *  2  `root' ̃Xgł. `rattoalgp()' ,  `root'
     ɑΉs茳, ꂼ `root' ɒu.

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

Q
     `alg', `algv'

