%Plots p/o nyquist for loop with lag-lead filter
% given K and pole and zero frequencies
% last statement could list output

clf;
Wz = 1000;
Wp = 10;
K = 10000;
f = logspace(2,4);
num = [K/Wz K];
den = [1/Wp 1 0];
[re,im,w] = nyquist(num,den,f);
nyquist(num,den,f)
%[w' re im] % Remove first symbol to get printout
