154 |
(defun tanh (x) (/ (sinh x) (cosh x))) |
(defun tanh (x) (/ (sinh x) (cosh x))) |
155 |
|
|
156 |
(defun asinh (x) (log (+ x (sqrt (+ 1.0d0 (* x x)))))) |
(defun asinh (x) (log (+ x (sqrt (+ 1.0d0 (* x x)))))) |
157 |
|
;(defun acosh (x) |
158 |
|
; (log (+ x |
159 |
|
; (* (1+ x) |
160 |
|
; (sqrt (/ (1- x) (1+ x))))))) |
161 |
(defun acosh (x) |
(defun acosh (x) |
162 |
(log (+ x |
(log (+ x |
163 |
(* (1+ x) |
(sqrt (* (1- x) (1+ x)))))) |
|
(sqrt (/ (1- x) (1+ x))))))) |
|
164 |
(defun atanh (x) |
(defun atanh (x) |
165 |
(when (or (= x 1.0d0) (= x -1.0d0)) |
(when (or (= x 1.0d0) (= x -1.0d0)) |
166 |
(error "The argument, ~s, is a logarithmic singularity.~ |
(error "The argument, ~s, is a logarithmic singularity.~ |