# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1108828793 0
# Node ID 697e2ba683cca4017d804aa99389fd2d4a161f87
# Parent  6bbab69424bca0aaf7244bbd3d8fd1ed63f3876e
(calc-arctan, calc-tanh, calc-arctanh): Removed extra definitions.
(calc-coth): New function.
(calcFunc-cot): Fix `let'.

diff -r 6bbab69424bc -r 697e2ba683cc lisp/calc/calc-math.el
--- a/lisp/calc/calc-math.el	Sat Feb 19 13:27:09 2005 +0000
+++ b/lisp/calc/calc-math.el	Sat Feb 19 15:59:53 2005 +0000
@@ -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)