Mercurial > hg > octave-lyh
diff scripts/signal/sinewave.m @ 4834:8f669cc5a901
[project @ 2004-03-11 18:49:17 by jwe]
author | jwe |
---|---|
date | Thu, 11 Mar 2004 18:49:17 +0000 |
parents | 38c61cbf086c |
children | 4c8a2e4e0717 |
line wrap: on
line diff
--- a/scripts/signal/sinewave.m +++ b/scripts/signal/sinewave.m @@ -22,7 +22,8 @@ ## Return an @var{m}-element vector with @var{i}-th element given by ## @code{sin (2 * pi * (@var{i}+@var{d}-1) / @var{n})}. ## -## The default value for @var{d} is 0. +## The default value for @var{d} is 0 and the default value for @var{n} +## is @var{m}. ## @end deftypefn ## Author: AW <Andreas.Weingessel@ci.tuwien.ac.at> @@ -30,12 +31,16 @@ function x = sinewave (m, n, d) - if (nargin == 2) - d = 0; - elseif (nargin != 3) + if (nargin > 0 && nargin < 4) + if (nargin < 3) + d = 0; + endif + if (nargin < 2) + n = m; + endif + x = sin (((1 : m) + d - 1) * 2 * pi / n); + else usage ("sinewave (m, n, d)"); endif - x = sin (((1 : m) + d - 1) * 2 * pi / n); - endfunction