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 4016 for branches


Ignore:
Timestamp:
2016-05-31T13:02:19-07:00 (8 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/f4grobner/polynomial.lisp

    r4015 r4016  
    604604algebra system could be called 'expand' or so."
    605605  (labels ((p-eval (p) (poly-eval p vars order))
    606            (p-eval-scalar (p) (poly-eval p '() order))
    607606           (p-eval-list (plist) (mapcar #'p-eval plist)))
    608607    (cond
     
    632631            (t
    633632             (let ((num (p-eval (cadr expr)))
    634                    (denom-inverse (apply #'divide (mapcar #'p-eval-scalar (cddr expr)))))
     633                   (denom-inverse (apply #'divide (mapcar #'p-eval (cddr expr)))))
    635634               (multiply denom-inverse num)))))
    636635         (expt
Note: See TracChangeset for help on using the changeset viewer.