`asq', `af'
-----------

asq(POLY)
     :: 㐔̏ 1 ϐ̖
af(POLY,ALGLIST)
     :: 㐔̏ 1 ϐ̈

RETURN
     Xg
POLY
     
ALGLIST
     `root' ̃Xg

   *  `sp' Œ`Ă. ܂ `gr' Kvł.
   * `root' ܂܂Ȃꍇ͐̔Ăяoꍂł邪,
     `root' ܂ޏꍇɂ, `gcda()' N邽߂΂΋ɂ߂Ď
     Ԃ.
   * `af()' , b̂̎w, Ȃ킿 2 , `root' ̃Xg̎w
     肪Kvł.
   *  2 󃊃XgȂ킿 `[]' ̏ꍇ, `fctr()' Ăяo. 
   * `alglist' Ŏw肳 `root' , Œ`ꂽ̂قǑO̕
     Ȃ΂ȂȂ.
   * ʂ, ʏ̖, Ɠl [q, dx] ̃Xg
     ł.
   * dx߂q̑SĂ̐ς, POLY ƒ萔{̈Ⴂ蓾.

     [99] asq(-x^4+6*x^3+(2*alg(0)-9)*x^2+(-6*alg(0))*x-2);
     [[-x^2+3*x+(#0),2]]
     [100] af(-x^2+3*x+alg(0),[alg(0)]);
     [[x+(#0-1),1],[-x+(#0+2),1]]

Q
     `gcda', `sqfr'

