procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(calc-arctan, calc-tanh, calc-arctanh): Removed extra definitions.

Browse source 
(calc-coth): New function.
(calcFunc-cot): Fix `let'.
This commit is contained in:
Jay Belanger 2005-02-19 15:59:53 +00:00
parent 0e0d568381
commit eb1ef4557d
1 changed files with 4 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
lisp/calc/calc-math.el
View file

@ -236,21 +236,10 @@
(calc-unary-op "coth" 'calcFunc-coth arg)
(calc-unary-op "cot" 'calcFunc-cot arg))))
(defun calc-arctan (arg)
(interactive "P")
(calc-invert-func)
(calc-tan arg))
(defun calc-tanh (arg)
(defun calc-coth (arg)
(interactive "P")
(calc-hyperbolic-func)
(calc-tan arg))
(defun calc-arctanh (arg)
(interactive "P")
(calc-invert-func)
(calc-hyperbolic-func)
(calc-tan arg))
(calc-cot arg))
(defun calc-arctan2 ()
(interactive)
@ -991,11 +980,11 @@
(or (math-with-extra-prec 2
(let* ((xx (math-to-radians (math-float x)))
(na (math-floor (math-div (nth 2 xx) (math-pi))))
(nb (math-floor (math-div (nth 3 xx) (math-pi))))
(nb (math-floor (math-div (nth 3 xx) (math-pi)))))
(and (equal na nb)
(math-sort-intv (nth 1 x)
(math-cot-raw (nth 2 xx))
(math-cot-raw (nth 3 xx)))))))
(math-cot-raw (nth 3 xx))))))
'(intv 3 (neg (var inf var-inf)) (var inf var-inf))))
((equal x '(var nan var-nan))
x)