Changeset 12
- Timestamp:
- 2012-06-05T12:40:43-07:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/grobner.lisp
r10 r12 1895 1895 :div #'(lambda (x y) (m// x y)) 1896 1896 :lcm #'(lambda (x y) (meval1 `((|$LCM|) ,x ,y))) 1897 :ezgcd #'(lambda (x y) (apply #'values (cdr ($ezgcd x y)))) 1898 :gcd #'(lambda (x y) (second ($ezgcd x y))))) 1897 :ezgcd #'(lambda (x y) (apply #'values (cdr ($ezgcd ($totaldisrep x) ($totaldisrep y))))) 1898 ;; :gcd #'(lambda (x y) (second ($ezgcd x y))))) 1899 :gcd #'(lambda (x y) ($gcd x y)))) 1899 1900 1900 1901 (defvar *maxima-ring* *expression-ring*
Note:
See TracChangeset
for help on using the changeset viewer.