Step Response Pole Effect Demo 2

A demonstration that shows the effect of pole positions on step response by displaying both plots side by side. Notice the decreasing horizontal scale on the step response.

for omega = 0.5:0.5:20
    sys = tf([omega^2],[1,omega,omega^2]);
    p = [1 omega omega^2];
    r = roots(p);
    hold on
   
   subplot(1,2,1),plot(real(r), imag(r), 'o'), title('Pole Locations')
   hold on
   subplot(1,2,2),step(sys)
   pause(0.5)
end