Ver Fonte

Added term order comparison

Samuel W. Flint há 8 anos atrás
pai
commit
69eed7ad6e
1 ficheiros alterados com 33 adições e 1 exclusões
  1. 33 1
      lisp-cas.org

+ 33 - 1
lisp-cas.org

@@ -801,7 +801,7 @@ To aid in the design and implementation of various sub-systems, from simplificat
                        (cons :trigonometrics trigonometrics)))))
 #+END_SRC
 
-** WORKING Polynomial Related Functions [0/6]
+** WORKING Polynomial Related Functions [0/8]
 :PROPERTIES:
 :CREATED:  <2016-05-01 Sun 12:29>
 :ID:       984d0f52-4c52-4bfa-a150-f3289d25bdf1
@@ -813,7 +813,9 @@ To aid in the design and implementation of various sub-systems, from simplificat
   <<am-get-coefficient>>
   <<am-get-term-variable>>
   <<am-get-power>>
+  <<am-term-order-less-than>>
   <<am-same-order>>
+  <<am-term-order-greater-than>>
   <<am-same-variable>>
   <<am-is-combinable>>
 #+END_SRC
@@ -870,6 +872,20 @@ To aid in the design and implementation of various sub-systems, from simplificat
                          (* 0)))
 #+END_SRC
 
+*** TODO Term Order Less Than
+:PROPERTIES:
+:CREATED:  <2016-06-24 Fri 20:57>
+:ID:       b7fcb056-2494-4142-aad5-7619629b1980
+:END:
+
+#+Caption: Term Order Less Than
+#+Name: am-term-order-less-than
+#+BEGIN_SRC lisp
+  (defun term-order-< (a b)
+    (< (get-power a)
+       (get-power b)))
+#+END_SRC
+
 *** TODO Same Order
 :PROPERTIES:
 :CREATED:  <2016-05-31 Tue 19:08>
@@ -884,6 +900,20 @@ To aid in the design and implementation of various sub-systems, from simplificat
        (get-power term-b)))
 #+END_SRC
 
+*** TODO Term Order Greater Than
+:PROPERTIES:
+:CREATED:  <2016-06-24 Fri 20:57>
+:ID:       27f836aa-8522-4a4c-88b3-6f19a505916f
+:END:
+
+#+Caption: Term Order Greater Than
+#+Name: am-term-order-greater-than
+#+BEGIN_SRC lisp
+  (defun term-order-> (a b)
+    (> (get-power a)
+       (get-power b)))
+#+END_SRC
+
 *** TODO Same Variable
 :PROPERTIES:
 :CREATED:  <2016-05-31 Tue 19:08>
@@ -2248,7 +2278,9 @@ Foo
              #:coefficient
              #:term-variable
              #:get-power
+             #:term-order-<
              #:same-order-p
+             #:term-order->
              #:save-variable-p
              #:single-term-combinable-p))