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

[Jay Belanger]

Index: emacs/lisp/calc/calc-math.el
diff -c emacs/lisp/calc/calc-math.el:1.12 emacs/lisp/calc/calc-math.el:1.13
*** emacs/lisp/calc/calc-math.el:1.12   Tue Feb 15 19:45:01 2005
--- emacs/lisp/calc/calc-math.el        Sat Feb 19 15:59:53 2005
***************
*** 236,256 ****
         (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)
-   (interactive "P")
-   (calc-hyperbolic-func)
-   (calc-tan arg))
- 
- (defun calc-arctanh (arg)
-   (interactive "P")
-   (calc-invert-func)
    (calc-hyperbolic-func)
!   (calc-tan arg))
  
  (defun calc-arctan2 ()
    (interactive)
--- 236,245 ----
         (calc-unary-op "coth" 'calcFunc-coth arg)
       (calc-unary-op "cot" 'calcFunc-cot arg))))
  
! (defun calc-coth (arg)
    (interactive "P")
    (calc-hyperbolic-func)
!   (calc-cot arg))
  
  (defun calc-arctan2 ()
    (interactive)
***************
*** 991,1001 ****
         (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))))
                 (and (equal na nb)
                      (math-sort-intv (nth 1 x)
                                      (math-cot-raw (nth 2 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)
--- 980,990 ----
         (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)))))
                 (and (equal na nb)
                      (math-sort-intv (nth 1 x)
                                      (math-cot-raw (nth 2 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)