Mercurial > emacs

diff lisp/calc/calc-rules.el @ 90105:7e3f621f1dd4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-15 Merge from emacs--cvs-trunk--0 Patches applied: * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-95 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-96 Move Gnus images into etc/images * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-97 - miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-105 Update from CVS * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-14 Merge from emacs--cvs-trunk--0 * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-15 Update from CVS: lisp/imap.el (imap-log): Doc fix. * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-16 Merge from emacs--cvs-trunk--0
author Miles Bader <miles@gnu.org>
date Fri, 18 Feb 2005 00:41:50 +0000
parents f2ebccfa87d4 c3660f1897f5
children f042e7c0fe20
line wrap: on
line diff
--- a/lisp/calc/calc-rules.el	Mon Feb 14 03:40:07 2005 +0000
+++ b/lisp/calc/calc-rules.el	Fri Feb 18 00:41:50 2005 +0000
@@ -153,10 +153,14 @@
 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,12 +273,18 @@
 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,