Added new codeHEADmaster

3 files changed, 31 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