Mercurial > hg > octave-lyh

comparison scripts/testfun/assert.m @ 17260:dac81d4b8ce1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
assert.m: Fix typo stopping comparison of imaginary non-infinite values. * scripts/testfun/assert.m: Fix typo stopping comparison of imaginary non-infinite values.
author Rik <rik@octave.org>
date Wed, 14 Aug 2013 12:05:51 -0700
parents 684ccccbc15d
children e3870f594d8b
comparison
equal deleted inserted replaced
17259:684ccccbc15d 17260:dac81d4b8ce1
268 exclude = ! isfinite (A_null_real) & ! isfinite (B_null_real); 268 exclude = ! isfinite (A_null_real) & ! isfinite (B_null_real);
269 A_null_real(exclude) = 0; 269 A_null_real(exclude) = 0;
270 B_null_real(exclude) = 0; 270 B_null_real(exclude) = 0;
271 A_null_imag = imag (A); 271 A_null_imag = imag (A);
272 B_null_imag = imag (B); 272 B_null_imag = imag (B);
273 exclude = ! isfinite (A_null_real) & ! isfinite (B_null_real); 273 exclude = ! isfinite (A_null_imag) & ! isfinite (B_null_imag);
274 A_null_imag(exclude) = 0; 274 A_null_imag(exclude) = 0;
275 B_null_imag(exclude) = 0; 275 B_null_imag(exclude) = 0;
276 A_null = complex (A_null_real, A_null_imag); 276 A_null = complex (A_null_real, A_null_imag);
277 B_null = complex (B_null_real, B_null_imag); 277 B_null = complex (B_null_real, B_null_imag);
278 if (isscalar (tol)) 278 if (isscalar (tol))