%% charakterystyki czestotliwosciowe
figure(5)
nyquist(obiekt)
ylim([-0.9 0.9])
xlim([-0.9 0.9])
title 'Obiekt'
figure(6)
nyquist(modelkupf)
ylim([-0.9 0.9])
xlim([-0.9 0.9])
title 'Model'
figure(7)
bode(obiekt)
hold on
bode(modelkupf)
legend('Obiekt', 'Model')
%% bieguny i zera
figure(8)
pzplot(obiekt)
title 'Obiekt'
xlim([-40 5])
figure(9)
pzplot(modelkupf)
title 'Model'