12 files changed, 123 insertions, 0 deletions
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
--- /dev/null
+++ b/3889/CH7/EX7.3/Ex7_3output1.PNG
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
--- /dev/null
+++ b/3889/CH7/EX7.3/Ex7_3output2.PNG
diff --git a/3889/CH7/EX7.4/Ex7_4.sce b/3889/CH7/EX7.4/Ex7_4.sce
new file mode 100644
index 000000000..260d60321
--- /dev/null
+++ b/3889/CH7/EX7.4/Ex7_4.sce
@@ -0,0 +1,32 @@
+//Example 7.4
+//page 436
+//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+3)*(s^2+2*s+2));
+
+//Root locus plot using evans root locus
+f=figure()
+evans(P)
+title("Root locus of 1/((s)*(s+3)*(s^2+2*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.4/Ex7_4output1.PNG b/3889/CH7/EX7.4/Ex7_4output1.PNG
new file mode 100644
index 000000000..d43c893e0
--- /dev/null
+++ b/3889/CH7/EX7.4/Ex7_4output1.PNG
diff --git a/3889/CH7/EX7.4/Ex7_4output2.PNG b/3889/CH7/EX7.4/Ex7_4output2.PNG
new file mode 100644
index 000000000..f5231597f
--- /dev/null
+++ b/3889/CH7/EX7.4/Ex7_4output2.PNG
diff --git a/3889/CH7/EX7.5/Ex7_5.sce b/3889/CH7/EX7.5/Ex7_5.sce
new file mode 100644
index 000000000..5404ba5a4
--- /dev/null
+++ b/3889/CH7/EX7.5/Ex7_5.sce
@@ -0,0 +1,28 @@
+//Example 7.5
+//page 439
+//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=(s+1)/((s^2)*(s+9));
+
+//Root locus plot using evans root locus
+f=figure()
+evans(P)
+title("Root locus of (s+1)/((s^2)*(s+9))",'fontsize',5)
+h=legend('');
+h.visible="OFF"
+zoom_rect([-5 -10 5 10])
+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)
+K=poly(0,'K')
+R= routh_t(P,K);
+disp(R,'Routh Array')
diff --git a/3889/CH7/EX7.5/Ex7_5output1.PNG b/3889/CH7/EX7.5/Ex7_5output1.PNG
new file mode 100644
index 000000000..23ff9a105
--- /dev/null
+++ b/3889/CH7/EX7.5/Ex7_5output1.PNG
diff --git a/3889/CH7/EX7.5/Ex7_5output2.PNG b/3889/CH7/EX7.5/Ex7_5output2.PNG
new file mode 100644
index 000000000..006f060ae
--- /dev/null
+++ b/3889/CH7/EX7.5/Ex7_5output2.PNG
diff --git a/3889/CH7/EX7.6/Ex7_6.sce b/3889/CH7/EX7.6/Ex7_6.sce
new file mode 100644
index 000000000..755d3a126
--- /dev/null
+++ b/3889/CH7/EX7.6/Ex7_6.sce
@@ -0,0 +1,32 @@
+//Example 7.6
+//page 441
+//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+2)*(s^2+2*s+5));
+
+//Root locus plot using evans root locus
+f=figure()
+evans(P)
+title("Root locus of 1/((s)*(s+2)*(s^2+2*s+5))",'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.6/Ex7_6output1.PNG b/3889/CH7/EX7.6/Ex7_6output1.PNG
new file mode 100644
index 000000000..bdd137584
--- /dev/null
+++ b/3889/CH7/EX7.6/Ex7_6output1.PNG
diff --git a/3889/CH7/EX7.6/Ex7_6output2.PNG b/3889/CH7/EX7.6/Ex7_6output2.PNG
new file mode 100644
index 000000000..1b5dce8c2
--- /dev/null
+++ b/3889/CH7/EX7.6/Ex7_6output2.PNG