Mercurial > octave-nkf
comparison liboctave/lo-mappers.cc @ 6414:250eebbd7ccc
[project @ 2007-03-15 16:04:52 by jwe]
| author | jwe |
|---|---|
| date | Thu, 15 Mar 2007 16:04:52 +0000 |
| parents | 80d3933fb8b6 |
| children | 64a7b0bec331 |
comparison
equal
deleted
inserted
replaced
| 6413:cf8e671beada | 6414:250eebbd7ccc |
|---|---|
| 207 Complex | 207 Complex |
| 208 acos (const Complex& x) | 208 acos (const Complex& x) |
| 209 { | 209 { |
| 210 static Complex i (0, 1); | 210 static Complex i (0, 1); |
| 211 | 211 |
| 212 return (real (x) * imag (x) < 0.0) ? i * acosh (x) : -i * acosh (x); | 212 return -i * (log (x + i * (sqrt (1.0 - x*x)))); |
| 213 } | 213 } |
| 214 | 214 |
| 215 Complex | 215 Complex |
| 216 acosh (const Complex& x) | 216 acosh (const Complex& x) |
| 217 { | 217 { |