Changeset 900
- Timestamp:
- 2015-06-09T13:40:01-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/order.lisp
r899 r900 158 158 (values primary nil))))) 159 159 160 (defun elimination-order-1 ( pq &optional (start 0) (end (monom-dimension p)))161 "Equivalent to the function returned by the call to (ELIMINATION-ORDER 1)."160 (defun elimination-order-1 (secondary-elimination-order q &optional (start 0) (end (monom-dimension p))) 161 "Equivalent to the function returned by the call to (ELIMINATION-ORDER NIL SECONDARY-ELIMINATION-ORDER 1)." 162 162 (cond 163 163 ((> (monom-elt p start) (monom-elt q start)) (values t nil)) 164 164 ((< (monom-elt p start) (monom-elt q start)) (values nil nil)) 165 (t (funcall *secondary-elimination-order*p q (1+ start) end))))165 (t (funcall secondary-elimination-order p q (1+ start) end))))
Note:
See TracChangeset
for help on using the changeset viewer.