Mercurial > octave-nkf

comparison src/mappers.cc @ 8084:46aa04055325

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use eps(single) as tolerance for single precesion test.
author Ben Abbott <bpabbott@mac.com>
date Wed, 03 Sep 2008 11:40:55 -0400
parents c476c2214a90
children 6f2d95255911
comparison
equal deleted inserted replaced
8083:16ab78b816bc 8084:46aa04055325
1182 /* 1182 /*
1183 1183
1184 %!assert(log ([1, e, e^2]), [0, 1, 2], sqrt (eps)); 1184 %!assert(log ([1, e, e^2]), [0, 1, 2], sqrt (eps));
1185 %!assert(log ([-0.5, -1.5, -2.5]), log([0.5, 1.5, 2.5]) + pi*1i, sqrt (eps)); 1185 %!assert(log ([-0.5, -1.5, -2.5]), log([0.5, 1.5, 2.5]) + pi*1i, sqrt (eps));
1186 1186
1187 %!assert(log (single([1, e, e^2])), single([0, 1, 2]), 4*sqrt (eps)); 1187 %!assert(log (single([1, e, e^2])), single([0, 1, 2]), sqrt (eps('single')));
1188 %!assert(log (single([-0.5, -1.5, -2.5])), single(log([0.5, 1.5, 2.5]) + pi*1i), 4*eps('single')); 1188 %!assert(log (single([-0.5, -1.5, -2.5])), single(log([0.5, 1.5, 2.5]) + pi*1i), 4*eps('single'));
1189 1189
1190 %!error log (); 1190 %!error log ();
1191 %!error log (1, 2); 1191 %!error log (1, 2);
1192 1192