echo on
clc

%nastaveni regulatoru
TI = 2
R = tf([1],[TI 0])

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

%zadani soustavy a mc
S = tf([5],[1 1]);
mc =tf([1],[2 1]);

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

%propojeni
RS = series(R,S);
sys = feedback (RS,mc)

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

%stabilita pomoci korenu
[cit,jmen]=tfdata(sys,'v');
r1 = roots (jmen)

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

%stablita nyquist
Go=series(RS,mc);
ltiview('nyquist',Go)
