% 2nd order filter
% lab1_4.m * mw * 01/06/2007
z = [-j j]; p = [.5 -.25]; % zeros and poles
b = poly(z); a = poly(p); % numerator and denominator
disp('     b0    b1    b2')
disp(b)
disp('     a0       a1        a2')
disp(a)
FIG = figure('Name','lab1_4 : Zero-pole plot','NumberTitle','off');
zplane(b,a)  % zero-pole plot
title('Zero-pole plot')
     b0    b1    b2
     1     0     1

     a0       a1        a2
    1.0000   -0.2500   -0.1250