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) |
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) |