% Demo of pole at s = -2
% R. Kozick

k = linspace(-4, 2, 101);
K = ones(101,1) * k;
s = j*K + K';
h = 1 ./ (s+2);

figure(1)
mesh(k, k, abs(h))
ylabel('Real(s)')
xlabel('Imag(s)')
zlabel('1/|s+2|')

h2 = s ./ (s+2);
figure(2)
mesh(k, k, abs(h2))
ylabel('Real(s)')
xlabel('Imag(s)')
zlabel('s/|s+2|')
