/[gcl]/gcl/lsp/numlib.lsp
ViewVC logotype

Diff of /gcl/lsp/numlib.lsp

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

revision 1.2 by camm, Wed Oct 16 03:46:11 2002 UTC revision 1.3 by camm, Thu Oct 17 00:51:52 2002 UTC
# Line 155  Line 155 
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.~

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

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