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) |
;(defun acosh (x) |
158 |
|
; (log (+ x |
159 |
|
; (* (1+ x) |
160 |
|
; (sqrt (/ (1- x) (1+ x))))))) |
161 |
|
;(defun acosh (x) |
162 |
; (log (+ x |
; (log (+ x |
163 |
; (* (1+ x) |
; (sqrt (* (1- x) (1+ x)))))) |
|
; (sqrt (/ (1- x) (1+ x))))))) |
|
164 |
(defun acosh (x) |
(defun acosh (x) |
165 |
(log (+ x |
(* 2 (log (+ (sqrt (/ (1+ x) 2)) (sqrt (/ (1- x) 2)))))) |
|
(sqrt (* (1- x) (1+ x)))))) |
|
166 |
(defun atanh (x) |
(defun atanh (x) |
167 |
(when (or (= x 1.0d0) (= x -1.0d0)) |
(when (or (= x 1.0d0) (= x -1.0d0)) |
168 |
(error "The argument, ~s, is a logarithmic singularity.~ |
(error "The argument, ~s, is a logarithmic singularity.~ |