Changeset 3653
- Timestamp:
- 2015-09-05T21:19:16-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/polynomial.lisp
r3652 r3653 393 393 :termlist (apply #'nconc (mapcar #'poly-termlist plist)))))) 394 394 395 (defgeneric universal-ezgcd (x y) 396 (:documentation "Solves the diophantine system: X=C*X1, Y=C*X2, 397 C=GCD(X,Y). It returns C, X1 and Y1. The result may be obtained by 398 the Euclidean algorithm.") 399 (:method ((x integer) (y integer) 400 &aux (c (gcd x y))) 401 (values c (/ x c) (/ y c))) 402 ) 403 404 405 395 406 (defgeneric spoly (object1 object2) 396 407 (:documentation "Yields the S-polynomial of OBJECT1 and OBJECT2.")
Note:
See TracChangeset
for help on using the changeset viewer.