/[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.1.1.1 by wfs, Mon Dec 6 22:44:07 1999 UTC revision 1.2 by camm, Wed Oct 16 03:46:11 2002 UTC
# Line 154  Line 154 
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.~

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

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