echo on
clc

%zadani regulatoru
TI = 5;
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 pres koreny
[cit,jmen]=tfdata(sys,'v');
r = roots (jmen)

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

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

