|
@@ -99,8 +99,8 @@ Apply the Power Rule"
|
|
|
(let ((equation (nth 0 eq))
|
|
|
(power (nth 1 eq)))
|
|
|
(if (listp equation)
|
|
|
- `(* ,power (expt ,(derive equation) ,(1- power)))
|
|
|
- `(* ,power (expt ,equation ,(1- power))))))
|
|
|
+ `(* ,power (expt ,equation (1- ,power)) ,(derive equation))
|
|
|
+ `(* ,power (expt ,equation (1- ,power))))))
|
|
|
|
|
|
(defun csc (x)
|
|
|
"csc -- (csc x)
|