Mercurial > hg > octave-nkf
diff src/data.cc @ 9319:0d9178575dd7
fix log2 with 2 outargs, loosen tests to meet IEEE
author | Jaroslav Hajek <highegg@gmail.com> |
---|---|
date | Tue, 09 Jun 2009 07:12:08 +0200 |
parents | fb8b8589dd46 |
children | 67fc970dad7d 26fb50dc7401 |
line wrap: on
line diff
--- a/src/data.cc +++ b/src/data.cc @@ -1082,12 +1082,12 @@ %!test %! [f, e] = log2 ([0,-1; 2,-4; Inf,-Inf]); %! assert (f, [0,-0.5; 0.5,-0.5; Inf,-Inf]); -%! assert (e, [0,1;2,3;0,0]) +%! assert (e(1:2,:), [0,1;2,3]) %!test %! [f, e] = log2 (complex (zeros (3, 2), [0,-1; 2,-4; Inf,-Inf])); %! assert (f, complex (zeros (3, 2), [0,-0.5; 0.5,-0.5; Inf,-Inf])); -%! assert (e, [0,1; 2,3; 0,0]); +%! assert (e(1:2,:), [0,1; 2,3]); */ DEFUN (fmod, args, ,