- Timestamp:
- 2015-06-15T18:38:21-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/order.lisp
r1929 r1930 56 56 "Return T if P>Q with respect to graded lexicographic order, otherwise NIL. 57 57 The second returned value is T if P=Q, otherwise it is NIL." 58 (declare (type monom p q) (type fixnum start end)) 58 59 (let ((d1 (monom-total-degree p start end)) 59 60 (d2 (monom-total-degree q start end))) … … 85 86 "Return T if P>Q with respect to graded reverse lexicographic order, 86 87 NIL otherwise. The second returned value is T if P=Q, otherwise it is NIL." 88 (declare (type monom p q) (type fixnum start end)) 87 89 (let ((d1 (monom-total-degree p start end)) 88 90 (d2 (monom-total-degree q start end))) … … 96 98 "Return T if P>Q with respect to inverse lexicographic order, NIL otherwise 97 99 The second returned value is T if P=Q, otherwise it is NIL." 100 (declare (type monom p q) (type fixnum start end)) 98 101 (do ((i (1- end) (1- i))) 99 102 ((< i start) (values nil t))
Note:
See TracChangeset
for help on using the changeset viewer.