ref: 5f60997fe351d62b1eab9face1fbd9d51655aff3
dir: /Octave/generate_filter.m/
function f = generate_filter (cycles, fudge_factor, increment, atten)
if nargin != 4,
error ("Need four args.") ;
endif
# Calclate N and make sure it is even.
N = fix (4 * cycles * fudge_factor * increment) ;
if rem (N, 2) != 0,
N = N - 1 ;
endif
# Generate the Sinc function.
m = -((N-1)/2):((N-1)/2) ;
f = sinc (m / fudge_factor / increment) ;
# Genertate the window function and apply it.
w = kaiser (N, (atten + 0.5) / 10) ;
w = w' ;
f = f .* w ;
f = f / sum (f) ;
endfunction
# Do not edit or modify anything in this comment block.
# The arch-tag line is a file identity tag for the GNU Arch
# revision control system.
#
# arch-tag: 7e57a3cb-3f5c-4346-bfcd-4da1e758e2a7