Mercurial > octave-nkf

comparison liboctave/lo-mappers.cc @ 6596:64a7b0bec331

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-04-27 16:36:46 by jwe]
author jwe
date Fri, 27 Apr 2007 16:36:46 +0000
parents 250eebbd7ccc
children 93c65f2a5668
comparison
equal deleted inserted replaced
6595:55586d763de1 6596:64a7b0bec331
271 } 271 }
272 272
273 Complex 273 Complex
274 signum (const Complex& x) 274 signum (const Complex& x)
275 { 275 {
276 return x / abs (x); 276 double tmp = abs (x);
277
278 return tmp == 0 ? 0.0 : x / tmp;
277 } 279 }
278 280
279 // complex -> bool mappers. 281 // complex -> bool mappers.
280 282
281 bool 283 bool