close Warning: Can't synchronize with repository "(default)" (The repository directory has changed, you should resynchronize the repository with: trac-admin $ENV repository resync '(default)'). Look in the Trac log for more information.

Changeset 12 for trunk


Ignore:
Timestamp:
2012-06-05T12:40:43-07:00 (13 years ago)
Author:
Marek Rychlik
Message:
 
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/grobner.lisp

    r10 r12  
    18951895     :div #'(lambda (x y) (m// x y))
    18961896     :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))))
    18991900
    19001901(defvar *maxima-ring* *expression-ring*
Note: See TracChangeset for help on using the changeset viewer.