1 files changed, 17 insertions, 0 deletions
diff --git a/29/CH7/EX7.17.5/exa7_17_5.sce b/29/CH7/EX7.17.5/exa7_17_5.sce
new file mode 100755
index 000000000..b1a506ead
--- /dev/null
+++ b/29/CH7/EX7.17.5/exa7_17_5.sce
@@ -0,0 +1,17 @@
+//caption:phase_margin
+//example 7.17.5
+//page 241
+clf();
+s=%s;
+s1=-s;
+disp("for K=3")
+g=(2.5*3)/(s*(0.4*s+1)*(0.2*s+1));
+g1=(2.5*3)/(s1*(0.4*s1+1)*(0.2*s1+1));
+GH=syslin('c',g);
+GH1=syslin('c',g1);
+nyquist(GH);
+nyquist(GH1);
+mtlb_axis([-5 1  -500 500]);
+xtitle('Nyquist plot of (2.5*3)/(s*(0.4*s+1)*(0.2*s+1))')
+pm=p_margin(GH)
+disp(pm,"phase margin=")
+\ No newline at end of file