Mercurial > forge

changeset 11542:5fa97735f2ff octave-forge

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
chebwin: make attenuation argument optional
author mtmiller
date Wed, 13 Mar 2013 04:19:57 +0000
parents 3abd0308e2d4
children 57dfca79c58a
files main/signal/inst/chebwin.m
diffstat 1 files changed, 7 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/main/signal/inst/chebwin.m	Tue Mar 12 20:38:34 2013 +0000
+++ b/main/signal/inst/chebwin.m	Wed Mar 13 04:19:57 2013 +0000
@@ -17,7 +17,7 @@
 ##
 ## Returns the filter coefficients of the L-point Dolph-Chebyshev window
 ## with at dB of attenuation in the stop-band of the corresponding
-## Fourier transform.
+## Fourier transform.  The default attenuation value is 100 dB.
 ##
 ## For the definition of the Chebyshev window, see
 ##
@@ -50,9 +50,13 @@
 
 function w = chebwin (L, at)
 
-  if (nargin != 2)
+  if (nargin < 1 || nargin > 2)
     print_usage;
-  elseif !(isscalar (L) && (L == round(L)) && (L > 0))
+  elseif (nargin == 1)
+    at = 100;
+  endif
+
+  if !(isscalar (L) && (L == round(L)) && (L > 0))
     error ("chebwin: L has to be a positive integer");
   elseif !(isscalar (at) && (at == real (at)))
     error ("chebwin: at has to be a real scalar");