Prechádzať zdrojové kódy

Added polynomial-term/polynomial-term division manipulator

Samuel W. Flint 9 rokov pred
rodič
commit
16ed172e63
1 zmenil súbory, kde vykonal 8 pridanie a 0 odobranie
  1. 8 0
      manipulation.org

+ 8 - 0
manipulation.org

@@ -1074,6 +1074,14 @@ Foo
 
   (define-division-manipulator (numeric numeric)
     (/ expression-a expression-b))
+
+  (define-division-manipulator (polynomial-term polynomial-term)
+    (let ((new-coefficient (/ (coefficient expression-a)
+                              (coefficient expression-b)))
+          (variable (term-variable expression-b))
+          (power (- (get-power expression-a)
+                    (get-power expression-b))))
+      `(* ,new-coefficient (expt ,variable ,power))))
 #+END_SRC
 
 ** WORKING Trigonometric [0/6]