summaryrefslogtreecommitdiff
path: root/104/CH9/EX9.6/9_6.sce
blob: 2461a595b041246c26a75393cf28e57a3e5b79fb (plain)
1
2
3
4
5
6
7
8
9
10
11
12
//stability of non minimum phase loop transfer_function
s=%s;
sys=syslin('c',10*(s+2)/(s^3+3*s^2+10))
nyquist(sys)
show_margins(sys,'nyquist')
printf("Z=0 hence sys is closed loop stable but as it is a non minimum phase loop_function it should satisfy angle criterion")
Z=0//no of zeroes of 1+G(s)H(s) in RHP
P=2//no of poles in RHP
Pw=0//no of poles on jw axis including origin
theta=(Z-P-0.5*Pw)*180
disp(theta,"theta for stability=")
printf("theta from nyquist_plot = -360 \n hence system is stabe")