Mercurial > hg > octave-nkf
diff scripts/general/logspace.m @ 15795:9a10fa38ef01
logspace.m: fix tests
author | Philip Nienhuis <prnienhuis@users.sf.net> |
---|---|
date | Sat, 15 Dec 2012 22:55:57 +0100 |
parents | 6cc30975e262 |
children | d63878346099 |
line wrap: on
line diff
--- a/scripts/general/logspace.m +++ b/scripts/general/logspace.m @@ -85,10 +85,10 @@ %! x2 = logspace (1, 2, 10.1); %! x3 = logspace (1, -2, 10); %! x4 = logspace (1, pi, 10); -%! assert (size (x1) == [1, 50] && x1(1) == 10 && x1(50) == 100); -%! assert (size (x2) == [1, 10] && x2(1) == 10 && x2(10) == 100); -%! assert (size (x3) == [1, 10] && x3(1) == 10 && x3(10) == 0.01); -%! assert (size (x4) == [1, 10] && x4(1) == 10 && abs (x4(10) - pi) < sqrt (eps)); +%! assert (size (x1) == [1, 50] && abs (x1(1) - 10) < eps && abs (x1(50) - 100) < eps); +%! assert (size (x2) == [1, 10] && abs (x2(1) - 10) < eps && abs (x2(10) - 100) < eps); +%! assert (size (x3) == [1, 10] && abs (x3(1) - 10) < eps && abs (x3(10) - 0.01) < eps); +%! assert (size (x4) == [1, 10] && abs (x4(1) - 10) < eps && abs (x4(10) - pi) < sqrt (eps)); %% Test input validation %!error logspace ()