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 4209


Ignore:
Timestamp:
2016-06-04T12:05:50-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/division.lisp

    r4208 r4209  
    180180;; method would be to test NORMAL-FORM using POLY-PSEUDO-DIVIDE.
    181181;;
    182 (defun normal-form (f fl &optional (top-reduction-only nil))
     182(defun normal-form (f fl &optional (top-reduction-only $poly_top_reduction_only))
    183183  #+grobner-check(when (null fl) (warn "normal-form: empty divisor list."))
    184184  (when (universal-zerop f)
Note: See TracChangeset for help on using the changeset viewer.