`gcda'
------

gcda(POLY1,POLY2)
     :: ξ 1 ѿ¿༰ GCD

RETURN
     ¿༰
POLY1, POLY2
     ¿༰

   * `sp' Ƥ.
   * 2 Ĥ 1 ѿ¿༰ GCD .
   * ֥ʴѤƤ. ä `gr' ɤ߹Ǥɬפ.

     [52] X=simpalg((x-A0-2)^2*(x+A0-1)^3);
     x^5+(#0-7)*x^4+(-8*#0+15)*x^3+(17*#0-13)*x^2+(-6*#0+14)*x+(2*#0-2)
     [53] Y=simpalg((x-A0-2)^3*(x+A0-1)^2);
     x^5+(-#0-8)*x^4+(4*#0+21)*x^3+(#0-14)*x^2+(-12*#0-10)*x+(-2*#0-4)
     [54] gcda(X,Y);
     grm undefined
     stopped in gcda at line 357 in file "/usr/local/lib/asir/sp"
     357             L = grm(ML,cons(var(P1),VL));
     (debug) quit
     return to toplevel
     [54] load("gr")$
     [98] gcda(X,Y); 
     -x^4+6*x^3+(2*#0-9)*x^2+(-6*#0)*x-2


     `gr', `asq'

