Mercurial > octave-nkf
diff scripts/signal/triangle_lw.m @ 7125:f084ba47812b
[project @ 2007-11-08 02:29:23 by jwe]
author | jwe |
---|---|
date | Thu, 08 Nov 2007 02:29:24 +0000 |
parents | a1dbe9d80eee |
children | 1bf0ce0930be |
line wrap: on
line diff
--- a/scripts/signal/triangle_lw.m Thu Nov 08 01:09:44 2007 +0000 +++ b/scripts/signal/triangle_lw.m Thu Nov 08 02:29:24 2007 +0000 @@ -28,6 +28,10 @@ function retval = triangle_lw (n, b) + if (nargin != 2) + print_usage (); + endif + retval = 1 - (0 : n-1)' * b; retval = max ([retval'; (zeros (1, n))])';