From 7bc77cb1ed33745c720952c92b3b2747c5cbf2df Mon Sep 17 00:00:00 2001
From: prashantsinalkar
Date: Sat, 3 Feb 2018 11:01:52 +0530
Subject: Added new code

---
 3889/CH7/EX7.3/Ex7_3.sce        |  31 +++++++++++++++++++++++++++++++
 3889/CH7/EX7.3/Ex7_3output1.PNG | Bin 0 -> 29909 bytes
 3889/CH7/EX7.3/Ex7_3output2.PNG | Bin 0 -> 11567 bytes
 3 files changed, 31 insertions(+)
 create mode 100644 3889/CH7/EX7.3/Ex7_3.sce
 create mode 100644 3889/CH7/EX7.3/Ex7_3output1.PNG
 create mode 100644 3889/CH7/EX7.3/Ex7_3output2.PNG

(limited to '3889/CH7/EX7.3')

diff --git a/3889/CH7/EX7.3/Ex7_3.sce b/3889/CH7/EX7.3/Ex7_3.sce
new file mode 100644
index 000000000..ddc6c19ed
--- /dev/null
+++ b/3889/CH7/EX7.3/Ex7_3.sce
@@ -0,0 +1,31 @@
+//Example 7.3
+//page 432
+//Control Systems: Principles and Design 
+//M Gopal, Second Edition, Tata McGraw-Hill
+//Chapter:Compensator Design Using Root Locus
+
+xdel(winsid())//close all graphics Windows
+clear;
+clc;
+//transfer function
+s=%s;
+P=1/((s)*(s+1)*(s+2));
+
+//Root locus plot using evans root locus
+f=figure()
+evans(P)
+title("Root locus of 1/(s*(s+1)*(s+2)",'fontsize',5)
+h=legend('');
+h.visible="OFF"
+zoom_rect([-2 -1.5 2 1.5]*kpure(P)/3)
+a=gca();
+a.x_location="origin"
+a.y_location="origin"
+a.parent.background=8; 
+legends(['root locus';'';'asymptotic directions';'open loop poles'],[2,3,1,-2],with_box=%f,opt="ur",2.8)
+sgrid();
+K=poly(0,'K')
+R= routh_t(P,K);
+disp(R,'Routh Array=')
+kval= kpure(P)
+disp(kval,'Limiting Gain Kmax=')
diff --git a/3889/CH7/EX7.3/Ex7_3output1.PNG b/3889/CH7/EX7.3/Ex7_3output1.PNG
new file mode 100644
index 000000000..76eb82bd6
Binary files /dev/null and b/3889/CH7/EX7.3/Ex7_3output1.PNG differ
diff --git a/3889/CH7/EX7.3/Ex7_3output2.PNG b/3889/CH7/EX7.3/Ex7_3output2.PNG
new file mode 100644
index 000000000..04ab00aba
Binary files /dev/null and b/3889/CH7/EX7.3/Ex7_3output2.PNG differ
-- 
cgit