Mercurial > hg > octave-lyh

diff scripts/signal/detrend.m @ 7279:72b5e1701da2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-12-10 21:01:48 by jwe]
author jwe
date Mon, 10 Dec 2007 21:04:33 +0000
parents a1dbe9d80eee
children dd539a976451
line wrap: on
line diff
--- a/scripts/signal/detrend.m
+++ b/scripts/signal/detrend.m
@@ -59,3 +59,24 @@
   endif
 
 endfunction
+
+%!test
+%! N=32;
+%! x = (0:1:N-1)/N + 2;
+%! y = detrend(x);
+%! assert(all (all (abs (y) < 20*eps)));
+
+%!test
+%! N=32;
+%! t = (0:1:N-1)/N;
+%! x = t .* t + 2;
+%! y = detrend(x,2);
+%! assert(all (all (abs (y) < 30*eps)));
+
+%!test
+%! N=32;
+%! t = (0:1:N-1)/N;
+%! x = [t;4*t-3]';
+%! y = detrend(x);
+%! assert(all (all (abs (y) < 20*eps)));
+