%Evans Plot
% Second-Order, Type 1 (Lag-lead filter)
% Modify pole, zero, K from Eq. (4.2)

clg;
Wz = 1000;
Wp = 100;
K = 10000;
%f = logspace(2,4);
num = [K/Wz K];
den = [1/Wp 1 0];
rlocus(num,den)
