function sigout = filtpz(poles, zeroes, sigin)

% Filters the signal sigin according to a difference equation with
%     the given vectors of poles and zeroes.

% incoeff is the vector of input coefficients.
% fbcoeff is the vector of feedback coefficients.

incoeff = poly(zeroes);
fbcoeff = -poly(poles);
sigout = -filter(incoeff, fbcoeff, sigin);

% End definition of filtpz
