Mercurial > octave-nkf

comparison src/mappers.cc @ 8067:c476c2214a90

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Adjust tolerance to single precision test.
author Ben Abbott <bpabbott@mac.com>
date Tue, 26 Aug 2008 23:28:32 -0400
parents d54f113aa983
children 46aa04055325
comparison
equal deleted inserted replaced
8066:366821c0c01c 8067:c476c2214a90
215 215
216 %!assert(arg (single(1)), single(0)); 216 %!assert(arg (single(1)), single(0));
217 %!assert(arg (single(i)), single(pi/2)); 217 %!assert(arg (single(i)), single(pi/2));
218 %!assert(arg (single(-1)), single(pi)); 218 %!assert(arg (single(-1)), single(pi));
219 %!assert(arg (single(-i)), single(-pi/2)); 219 %!assert(arg (single(-i)), single(-pi/2));
220 %!assert(arg (single([1, i; -1, -i])), single([0, pi/2; pi, -pi/2])); 220 %!assert(arg (single([1, i; -1, -i])), single([0, pi/2; pi, -pi/2]), 2e1*eps('single'));
221 221
222 %!error arg (); 222 %!error arg ();
223 %!error arg (1, 2); 223 %!error arg (1, 2);
224 224
225 */ 225 */
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]), 4*sqrt (eps));
1188 %!assert(log (single([-0.5, -1.5, -2.5])), single(log([0.5, 1.5, 2.5]) + pi*1i), sqrt (eps)); 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
1193 */ 1193 */