summaryrefslogtreecommitdiff
path: root/1499/CH5/EX5.46/s46.sce
blob: ae065f460cbb5f42e1c77d27a70e0836de36023a (plain)
1
2
3
4
5
6
7
8
9
s=%s;
H=syslin('c',40/((s+4)*(s^2+2*s+1)))
nyquist(H)
show_margins(H,'nyquist')
printf("Since P=1 and the pt. -1+j0 is encircled once by the locus")
printf("Hence N=1 therefore, Z=0(no of zeros in RHP)")
printf("System is stable")
gm=g_margin(H)  // gain margin
pm=p_margin(H)  // phase margin