emacs-diffs
[Top][All Lists]

## [Emacs-diffs] Changes to emacs/lisp/calc/calc-rules.el

 From: Jay Belanger Subject: [Emacs-diffs] Changes to emacs/lisp/calc/calc-rules.el Date: Tue, 15 Feb 2005 14:26:07 -0500

```Index: emacs/lisp/calc/calc-rules.el
diff -c emacs/lisp/calc/calc-rules.el:1.8 emacs/lisp/calc/calc-rules.el:1.9
*** emacs/lisp/calc/calc-rules.el:1.8   Tue Nov 30 17:22:12 2004
--- emacs/lisp/calc/calc-rules.el       Tue Feb 15 19:26:07 2005
***************
*** 153,162 ****
--- 153,166 ----
tan(select(n a))              :=  (tan((n-1) select(a)) + tan(a)) /
(1 - tan((n-1) a) tan(a))
:: integer(n) :: n > 2,
+ cot(select(a + b))            :=  (cot(select(a)) cot(b) - 1) /
+                                   (cot(a) + cot(b)),
sinh(select(a + b))           :=  sinh(select(a)) cosh(b) + cosh(a) sinh(b),
cosh(select(a + b))           :=  cosh(select(a)) cosh(b) + sinh(a) sinh(b),
tanh(select(a + b))           :=  (tanh(select(a)) + tanh(b)) /
(1 + tanh(a) tanh(b)),
+ coth(select(a + b))           :=  (coth(select(a)) coth(b) + 1) /
+                                   (coth(a) + coth(b)),
x && select(a || b)           :=  (x && select(a)) || (x && b),
select(a || b) && x           :=  (select(a) && x) || (b && x),
! select(a && b)              :=  (!a) || (!b),
***************
*** 269,280 ****
--- 273,290 ----
sin(select(x))                        :=  -sin(select(-x)),
cos(select(x))                        :=  cos(select(-x)),
tan(select(x))                        :=  -tan(select(-x)),
+ sec(select(x))                        :=  sec(select(-x)),
+ csc(select(x))                        :=  -csc(select(-x)),
+ cot(select(x))                        :=  -cot(select(-x)),
arcsin(select(x))             :=  -arcsin(select(-x)),
arccos(select(x))             :=  4 arctan(1) - arccos(select(-x)),
arctan(select(x))             :=  -arctan(select(-x)),
sinh(select(x))                       :=  -sinh(select(-x)),
cosh(select(x))                       :=  cosh(select(-x)),
tanh(select(x))                       :=  -tanh(select(-x)),
+ sech(select(x))                       :=  sech(select(-x)),
+ csch(select(x))                       :=  -csch(select(-x)),
+ coth(select(x))                       :=  -coth(select(-x)),
arcsinh(select(x))            :=  -arcsinh(select(-x)),
arctanh(select(x))            :=  -arctanh(select(-x)),
select(x) = a                 :=  select(-x) = -a,

```