Mercurial > emacs

comparison 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
comparison
equal deleted inserted replaced
90104:a01e7a9f1659 90105:7e3f621f1dd4
151 (1 - tan(a) tan(b)), 151 (1 - tan(a) tan(b)),
152 tan(select(2 a)) := 2 tan(select(a)) / (1 - tan(a)^2), 152 tan(select(2 a)) := 2 tan(select(a)) / (1 - tan(a)^2),
153 tan(select(n a)) := (tan((n-1) select(a)) + tan(a)) / 153 tan(select(n a)) := (tan((n-1) select(a)) + tan(a)) /
154 (1 - tan((n-1) a) tan(a)) 154 (1 - tan((n-1) a) tan(a))
155 :: integer(n) :: n > 2, 155 :: integer(n) :: n > 2,
156 cot(select(a + b)) := (cot(select(a)) cot(b) - 1) /
157 (cot(a) + cot(b)),
156 sinh(select(a + b)) := sinh(select(a)) cosh(b) + cosh(a) sinh(b), 158 sinh(select(a + b)) := sinh(select(a)) cosh(b) + cosh(a) sinh(b),
157 cosh(select(a + b)) := cosh(select(a)) cosh(b) + sinh(a) sinh(b), 159 cosh(select(a + b)) := cosh(select(a)) cosh(b) + sinh(a) sinh(b),
158 tanh(select(a + b)) := (tanh(select(a)) + tanh(b)) / 160 tanh(select(a + b)) := (tanh(select(a)) + tanh(b)) /
159 (1 + tanh(a) tanh(b)), 161 (1 + tanh(a) tanh(b)),
162 coth(select(a + b)) := (coth(select(a)) coth(b) + 1) /
163 (coth(a) + coth(b)),
160 x && select(a || b) := (x && select(a)) || (x && b), 164 x && select(a || b) := (x && select(a)) || (x && b),
161 select(a || b) && x := (select(a) && x) || (b && x), 165 select(a || b) && x := (select(a) && x) || (b && x),
162 ! select(a && b) := (!a) || (!b), 166 ! select(a && b) := (!a) || (!b),
163 ! select(a || b) := (!a) && (!b) ]")) 167 ! select(a || b) := (!a) && (!b) ]"))
164 168
267 fceil(select(x)) := -ffloor(select(-x)), 271 fceil(select(x)) := -ffloor(select(-x)),
268 exp(select(x)) := 1 / exp(select(-x)), 272 exp(select(x)) := 1 / exp(select(-x)),
269 sin(select(x)) := -sin(select(-x)), 273 sin(select(x)) := -sin(select(-x)),
270 cos(select(x)) := cos(select(-x)), 274 cos(select(x)) := cos(select(-x)),
271 tan(select(x)) := -tan(select(-x)), 275 tan(select(x)) := -tan(select(-x)),
276 sec(select(x)) := sec(select(-x)),
277 csc(select(x)) := -csc(select(-x)),
278 cot(select(x)) := -cot(select(-x)),
272 arcsin(select(x)) := -arcsin(select(-x)), 279 arcsin(select(x)) := -arcsin(select(-x)),
273 arccos(select(x)) := 4 arctan(1) - arccos(select(-x)), 280 arccos(select(x)) := 4 arctan(1) - arccos(select(-x)),
274 arctan(select(x)) := -arctan(select(-x)), 281 arctan(select(x)) := -arctan(select(-x)),
275 sinh(select(x)) := -sinh(select(-x)), 282 sinh(select(x)) := -sinh(select(-x)),
276 cosh(select(x)) := cosh(select(-x)), 283 cosh(select(x)) := cosh(select(-x)),
277 tanh(select(x)) := -tanh(select(-x)), 284 tanh(select(x)) := -tanh(select(-x)),
285 sech(select(x)) := sech(select(-x)),
286 csch(select(x)) := -csch(select(-x)),
287 coth(select(x)) := -coth(select(-x)),
278 arcsinh(select(x)) := -arcsinh(select(-x)), 288 arcsinh(select(x)) := -arcsinh(select(-x)),
279 arctanh(select(x)) := -arctanh(select(-x)), 289 arctanh(select(x)) := -arctanh(select(-x)),
280 select(x) = a := select(-x) = -a, 290 select(x) = a := select(-x) = -a,
281 select(x) != a := select(-x) != -a, 291 select(x) != a := select(-x) != -a,
282 select(x) < a := select(-x) > -a, 292 select(x) < a := select(-x) > -a,