diff --git a/src/code/irrat-dd.lisp b/src/code/irrat-dd.lisp index 2eabb5867bd3bd0907413a05d01cb6a776b4c9c8..024ec93006486b3e20428819bf5330e39e2d6eb1 100644 --- a/src/code/irrat-dd.lisp +++ b/src/code/irrat-dd.lisp @@ -1854,7 +1854,7 @@ Z may be any number, but the result is always a complex." (defun dd-complex-asin (z) - _N"Compute asin z = asinh(i*z)/i + _N"Compute asin z = -i*log(i*z + sqrt(1-z^2)) Z may be any number, but the result is always a complex." (declare (number z)) @@ -1894,7 +1894,7 @@ Z may be any number, but the result is always a complex." (- (realpart result))))) (defun dd-complex-atan (z) - _N"Compute atan z = atanh (i*z) / i + _N"Compute atan z = (log(1+i*z) - log(1-i*z))/(2*i) Z may be any number, but the result is always a complex." (declare (number z))