Mercurial > hg > octave-nkf
diff liboctave/lo-mappers.cc @ 3777:b4f260ddd748
[project @ 2001-02-06 15:57:23 by jwe]
author | jwe |
---|---|
date | Tue, 06 Feb 2001 15:57:23 +0000 |
parents | 7ed917c1ca60 |
children | da64ef591f18 |
line wrap: on
line diff
--- a/liboctave/lo-mappers.cc +++ b/liboctave/lo-mappers.cc @@ -238,6 +238,28 @@ return log ((1.0 + x) / (1.0 - x)) / 2.0; } +#if !defined (CXX_ISO_COMPLIANT_LIBRARY) + +Complex +log10 (const Complex& x) +{ + return M_LOG10E * log (x); +} + +Complex +tan (const Complex& x) +{ + return sin (x) / cos (x); +} + +Complex +tanh (const Complex& x) +{ + return sinh (x) / cosh (x); +} + +#endif + Complex ceil (const Complex& x) { @@ -268,16 +290,6 @@ return x / abs (x); } -#if !defined (CXX_ISO_COMPLIANT_LIBRARY) - -Complex -tanh (const Complex& x) -{ - return sinh (x) / cosh (x); -} - -#endif - // complex -> bool mappers. bool