Mercurial > hg > octave-nkf

comparison liboctave/lo-mappers.cc @ 3777:b4f260ddd748

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2001-02-06 15:57:23 by jwe]
author jwe
date Tue, 06 Feb 2001 15:57:23 +0000
parents 7ed917c1ca60
children da64ef591f18
comparison
equal deleted inserted replaced
3776:7ed917c1ca60 3777:b4f260ddd748
236 atanh (const Complex& x) 236 atanh (const Complex& x)
237 { 237 {
238 return log ((1.0 + x) / (1.0 - x)) / 2.0; 238 return log ((1.0 + x) / (1.0 - x)) / 2.0;
239 } 239 }
240 240
241 #if !defined (CXX_ISO_COMPLIANT_LIBRARY)
242
243 Complex
244 log10 (const Complex& x)
245 {
246 return M_LOG10E * log (x);
247 }
248
249 Complex
250 tan (const Complex& x)
251 {
252 return sin (x) / cos (x);
253 }
254
255 Complex
256 tanh (const Complex& x)
257 {
258 return sinh (x) / cosh (x);
259 }
260
261 #endif
262
241 Complex 263 Complex
242 ceil (const Complex& x) 264 ceil (const Complex& x)
243 { 265 {
244 return Complex (ceil (real (x)), ceil (imag (x))); 266 return Complex (ceil (real (x)), ceil (imag (x)));
245 } 267 }
265 Complex 287 Complex
266 signum (const Complex& x) 288 signum (const Complex& x)
267 { 289 {
268 return x / abs (x); 290 return x / abs (x);
269 } 291 }
270
271 #if !defined (CXX_ISO_COMPLIANT_LIBRARY)
272
273 Complex
274 tanh (const Complex& x)
275 {
276 return sinh (x) / cosh (x);
277 }
278
279 #endif
280 292
281 // complex -> bool mappers. 293 // complex -> bool mappers.
282 294
283 bool 295 bool
284 xisnan (const Complex& x) 296 xisnan (const Complex& x)