echo on
clc

i = tf([1],[1 0])           %integraèní èlen bez setrvaènosti /ideální
i1 = tf([1], [1 1 0])       %integraèní èlen se setrvaèností 1. øádu
i2 = tf([1], [1 1 0 0])     %integraèní èlen 2. øádu se setrvaèností 1. øádu

pause % Pro pokraèování zmáèkni libovolnou klávesu

nyquist(i, i1, i2)             %vykresleni Frek. char.
title('Kmitoctova charakteristika')
xlabel('Re')
ylabel('Im')