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.5/Ex7_5.sce | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100644 3889/CH7/EX7.5/Ex7_5.sce

(limited to '3889/CH7/EX7.5/Ex7_5.sce')

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')
-- 
cgit