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 1045


Ignore:
Timestamp:
2015-06-10T08:44:09-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/polynomial.lisp

    r1044 r1045  
    324324    (setf (elt basis i) (make-variable ring n i))))
    325325
     326#|
    326327(defun poly-eval-1 (expr vars &optional (ring *ring-of-integers*) (order #'lex>)
    327328                    &aux
    … …  
    375376            )))))))
    376377
     378
    377379             
    378380(defun poly-eval (expr vars &optional (order #'lex>) (ring *ring-of-integers*))
    … …  
    393395    (poly-eval-1 expr vars ring order))
    394396   (t (cons '[ (mapcar #'(lambda (p) (poly-eval-1 p vars ring order)) (rest expr))))))
     397
     398|#
Note: See TracChangeset for help on using the changeset viewer.