Mercurial > hg > octave-nkf
diff scripts/signal/fftfilt.m @ 1337:52a3f38cbfeb
[project @ 1995-08-25 02:00:18 by jwe]
author | jwe |
---|---|
date | Fri, 25 Aug 1995 02:16:01 +0000 |
parents | 611d403c7f3d |
children | 5d29638dd524 |
line wrap: on
line diff
--- a/scripts/signal/fftfilt.m +++ b/scripts/signal/fftfilt.m @@ -41,7 +41,7 @@ [r_x, c_x] = size (x); [r_b, c_b] = size (b); - if (! (min ([r_x c_x]) == 1 || min ([r_b c_b]) == 1)) + if (! (min ([r_x, c_x]) == 1 || min ([r_b, c_b]) == 1)) error ("fftfilt: both x and b should be vectors"); endif l_x = r_x * c_x; @@ -65,7 +65,7 @@ if !(is_scalar (N)) error ("fftfilt: N has to be a scalar"); endif - N = 2^(ceil (log (max ([N l_b])) / log(2))); + N = 2^(ceil (log (max ([N, l_b])) / log(2))); L = N - l_b + 1; B = fft (b, N); R = ceil (l_x / L);