figure(1);clf
zeta=[0.05;0.1;0.15;0.25;0.5;1.00;1.25]; r=[0:0.01:3];
for i=1:length(zeta),
ReG=(1-r.^2)./((1-r.^2).^2+(2*zeta(i)*r).^2);
ImG=-(2*zeta(i).*r)./((1-r.^2).^2+(2*zeta(i)*r).^2);
figure(1); plot(r,ReG); plot(r,ImG); hold on
end
figure(1)
title('Magnitude of the Frequency Response')
xlabel('\omega/\omega_n'); ylabel('|G(i\omega)|'); grid