% polezero.m - example of a pole/zero map
% RMM, 24 Oct 05

aminit;					% initialize MATALB

subplot(221);
H = zpk([-1, -5], [-2+2i, -2-2i, -3], 1);
ampolezero(H, [-7.5 3.5 -3 3]);

% Add axis labels
hold on; plot([-6 -4 -2 0 2], [0 0 0 0 0], 'k+', 'LineWidth', 0.4);
amtext([-6 -4 -2 0 2] - 0.3, [0 0 0 0 0] - 0.5, {'-6', '-4', '-2', '', ' 2'});

hold on; plot([0 0], [-2 2], 'k+', 'LineWidth', 0.4);
amtext([0 0] + 0.5, [-2 2], {'-2', '2'});

amprint('polezero.eps');
