Mercurial > hg > octave-nkf

diff liboctave/lo-mappers.cc @ 6414:250eebbd7ccc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-03-15 16:04:52 by jwe]
author jwe
date Thu, 15 Mar 2007 16:04:52 +0000
parents 80d3933fb8b6
children 64a7b0bec331
line wrap: on
line diff
--- a/liboctave/lo-mappers.cc
+++ b/liboctave/lo-mappers.cc
@@ -209,7 +209,7 @@
 {
   static Complex i (0, 1);
 
-  return (real (x) * imag (x) < 0.0) ? i * acosh (x) : -i * acosh (x);
+  return -i * (log (x + i * (sqrt (1.0 - x*x))));
 }
 
 Complex