|
@@ -538,6 +538,11 @@ There are two primary forms of exponential -- the natural (~exp~) and the genera
|
|
:initarg :log-of
|
|
:initarg :log-of
|
|
:type <expression>)))
|
|
:type <expression>)))
|
|
|
|
|
|
|
|
+ (defmethod copy-expression ((expression <logarithmic>))
|
|
|
|
+ (make-instance '<logarithmic>
|
|
|
|
+ :base (copy-expression (slot-value expression 'base))
|
|
|
|
+ :log-of (copy-expression (slot-value expression 'log-of))))
|
|
|
|
+
|
|
@export
|
|
@export
|
|
(defclass <nat-logarithmic> (<logarithmic>)
|
|
(defclass <nat-logarithmic> (<logarithmic>)
|
|
((log-of :reader log-of
|
|
((log-of :reader log-of
|
|
@@ -554,6 +559,10 @@ There are two primary forms of exponential -- the natural (~exp~) and the genera
|
|
(base expression-b))
|
|
(base expression-b))
|
|
(eqal (log-of expression-a)
|
|
(eqal (log-of expression-a)
|
|
(log-of expression-b))))
|
|
(log-of expression-b))))
|
|
|
|
+
|
|
|
|
+ (defmethod copy-expression ((expression <nat-logarithmic>))
|
|
|
|
+ (make-instance '<nat-logarithmic>
|
|
|
|
+ :log-of (copy-expression (slot-value expression 'log-of))))
|
|
#+END_SRC
|
|
#+END_SRC
|
|
|
|
|
|
*** WORKING Trigonometric
|
|
*** WORKING Trigonometric
|