Browse Source

Added a simple trigonometric classification

Samuel W. Flint 9 years ago
parent
commit
47a6388e75
1 changed files with 4 additions and 0 deletions
  1. 4 0
      manipulation.org

+ 4 - 0
manipulation.org

@@ -406,6 +406,10 @@ This is used to classify "powers", that is to say, equations of the form $x^n$,
 #+Caption: Classify Trigonometrics
 #+Name: classify-trigonometrics
 #+BEGIN_SRC lisp
+  (define-classification trigonometric
+    (when (classified-as-p expression 'non-atomic)
+      (member (first expression) '(sin cos tan csc sec cot))))
+
   (define-classification sin
     (when (classified-as-p expression 'non-atomic)
       (eq 'sin (first expression))))