/[emacs]/emacs/lisp/calc/calc-math.el
ViewVC logotype

Diff of /emacs/lisp/calc/calc-math.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.12 by jpb, Tue Feb 15 19:45:01 2005 UTC revision 1.13 by jpb, Sat Feb 19 15:59:53 2005 UTC
# Line 236  Line 236 
236         (calc-unary-op "coth" 'calcFunc-coth arg)         (calc-unary-op "coth" 'calcFunc-coth arg)
237       (calc-unary-op "cot" 'calcFunc-cot arg))))       (calc-unary-op "cot" 'calcFunc-cot arg))))
238    
239  (defun calc-arctan (arg)  (defun calc-coth (arg)
240    (interactive "P")    (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)  
241    (calc-hyperbolic-func)    (calc-hyperbolic-func)
242    (calc-tan arg))    (calc-cot arg))
243    
244  (defun calc-arctan2 ()  (defun calc-arctan2 ()
245    (interactive)    (interactive)
# Line 991  Line 980 
980           (or (math-with-extra-prec 2           (or (math-with-extra-prec 2
981                 (let* ((xx (math-to-radians (math-float x)))                 (let* ((xx (math-to-radians (math-float x)))
982                        (na (math-floor (math-div (nth 2 xx) (math-pi))))                        (na (math-floor (math-div (nth 2 xx) (math-pi))))
983                        (nb (math-floor (math-div (nth 3 xx) (math-pi))))                        (nb (math-floor (math-div (nth 3 xx) (math-pi)))))
984                   (and (equal na nb)                   (and (equal na nb)
985                        (math-sort-intv (nth 1 x)                        (math-sort-intv (nth 1 x)
986                                        (math-cot-raw (nth 2 xx))                                        (math-cot-raw (nth 2 xx))
987                                        (math-cot-raw (nth 3 xx)))))))                                        (math-cot-raw (nth 3 xx))))))
988               '(intv 3 (neg (var inf var-inf)) (var inf var-inf))))               '(intv 3 (neg (var inf var-inf)) (var inf var-inf))))
989          ((equal x '(var nan var-nan))          ((equal x '(var nan var-nan))
990           x)           x)

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26