Mercurial > hg > octave-nkf

changeset 12807:7b90b81a5793

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
codesprint: Wrote 8 tests for sinewave.m
author Andriy Shinkarchuck <adriano32.gnu@gmail.com>
date Sat, 16 Jul 2011 13:35:26 -0500
parents a85ddaf8f402
children 1a3cdafcb2a5
files scripts/signal/sinewave.m
diffstat 1 files changed, 10 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/scripts/signal/sinewave.m
+++ b/scripts/signal/sinewave.m
@@ -43,3 +43,13 @@
   endif
 
 endfunction
+
+%!assert (sinewave (1), 0);
+%!assert (sinewave (1, 4, 1), 1);
+%!assert (sinewave (1, 12, 1), 1/2, 1e-6);
+%!assert (sinewave (1, 12, 2), sqrt (3)/2, 1e-6);
+%!assert (sinewave (1, 20, 1), (sqrt (5)-1)/4, 1e-6);
+%!assert (sinewave (1), sinewave (1, 1,0));
+%!assert (sinewave (3, 4), sinewave(3, 4, 0));
+
+%!error sinewave ();