function freqz2(zeros,poles)
% Quick script to plot frequency response from -pi to pi without too many
% headaches

% Not as general as zplane3

% Thrown together 9/30/97, rms

newplot
a = poly(poles);
b = poly(zeros);
[H,W] = freqz(b,a);
n = 1:length(W);
m = length(W):-1:1;
mn = [-1*m n];
Whole = [(-1*W(m)); W];
plot(Whole/pi,abs(H(abs(mn))))
xlabel('omega','fontsize',14)
ylabel('abs(H)','fontsize',14)
