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


Ignore:
Timestamp:
2016-06-04T12:02:59-07:00 (8 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/division.lisp

    r4206 r4207  
    182182(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."))
     184  (when (universal-zerop f)
     185    #+grobner-check(when (null fl) (warn "normal-form: Dividend is zero."))
     186    ;; NOTE: When the polynomial F is zero, we cannot constuct the
     187    ;; unit in the coefficient field.
     188    (return-from normal-form (values f nil 0)))
    184189  (do ((r (make-zero-for f))
    185190       (c (make-unit-for (leading-coefficient f)))
Note: See TracChangeset for help on using the changeset viewer.