firextend.m

来自「linear time－frequency toolbox」· M 代码 · 共 30 行

function g=firextend(g,L);
%FIREXTEND   Extend FIR window to IIR
%   Usage:  g=firextend(g,L);
%
%   FIREXTEND(g,L) will extend the FIR window g to a length L window by
%   inserting zeros. Note that this is a slightly different behaviour
%   than MIDDLEPAD.
%
%   SEE ALSO:  MIDDLEPAD

error(nargchk(2,2,nargin));

W=length(g);


if W>L
  error('L must be larger than length of window.');
end;

if rem(W,2)==0
  % HPE middlepad works the same way as the FIR extension (e.g. just
  % inserting zeros) for even-length signals.
  g=middlepad(g,L,.5);
else
  % WPE middlepad works the same way as the FIR extension (e.g. just
  % inserting zeros) for odd-length signals.
  g=middlepad(g,L);
end;