Mercurial > octave-nkf
changeset 12807:7b90b81a5793
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 Sat Jul 16 13:21:59 2011 -0500 +++ b/scripts/signal/sinewave.m Sat Jul 16 13:35:26 2011 -0500 @@ -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 ();