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


Ignore:
Timestamp:
2015-06-09T13:30:04-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/f4grobner/order.lisp

    r506 r897  
    4848  "Return T if P>Q with respect to lexicographic order, otherwise NIL.
    4949The second returned value is T if P=Q, otherwise it is NIL."
    50   (declare (type monom p q) (type fixnum start end))
    5150  (do ((i start (1+ i)))
    5251      ((>= i end) (values nil t))
     
    6261  "Return T if P>Q with respect to graded lexicographic order, otherwise NIL.
    6362The second returned value is T if P=Q, otherwise it is NIL."
    64   (declare (type monom p q) (type fixnum start end))
    6563  (let ((d1 (monom-total-degree p start end))
    6664        (d2 (monom-total-degree q start end)))
     
    7977not have a minimal element. This order is useful in constructing other
    8078orders."
    81   (declare (type monom p q) (type fixnum start end))
    8279  (do ((i (1- end) (1- i)))
    8380      ((< i start) (values nil t))
     
    9491  "Return T if P>Q with respect to graded reverse lexicographic order,
    9592NIL otherwise. The second returned value is T if P=Q, otherwise it is NIL."
    96   (declare (type monom p q) (type fixnum start end))
    9793  (let ((d1 (monom-total-degree p start end))
    9894        (d2 (monom-total-degree q start end)))
     
    106102  "Return T if P>Q with respect to inverse lexicographic order, NIL otherwise
    107103The second returned value is T if P=Q, otherwise it is NIL."
    108   (declare (type monom p q) (type fixnum start end))
    109104  (do ((i (1- end) (1- i)))
    110105      ((< i start) (values nil t))
     
    159154and *SECONDARY-ELIMINATION-ORDER* control the behavior on the first K
    160155and the remaining variables, respectively."
    161   (declare (type fixnum k))
    162156  #'(lambda (p q &optional (start 0) (end (monom-dimension  p)))
    163       (declare (type monom p q) (type fixnum start end))
    164157      (multiple-value-bind (primary equal)
    165158           (funcall *primary-elimination-order* p q start k)
     
    170163(defun elimination-order-1 (p q &optional (start 0) (end (monom-dimension  p)))
    171164  "Equivalent to the function returned by the call to (ELIMINATION-ORDER 1)."
    172   (declare (type monom p q) (type fixnum start end))
    173165  (cond
    174166   ((> (monom-elt p start) (monom-elt q start)) (values t nil))
Note: See TracChangeset for help on using the changeset viewer.