1 files changed, 22 insertions, 0 deletions
diff --git a/3432/CH5/EX5.5/Ex5_5.sce b/3432/CH5/EX5.5/Ex5_5.sce
new file mode 100644
index 000000000..2773f40d9
--- /dev/null
+++ b/3432/CH5/EX5.5/Ex5_5.sce
@@ -0,0 +1,22 @@
+//Example 5.5
+//Root locus for satellite control with Lead compensator.
+
+xdel(winsid())//close all graphics Windows
+clear;
+clc;
+
+//------------------------------------------------------------------
+//System transfer function and its root locus 
+
+s=poly(0,'s');
+sysL=(s+1)/(s^2*(s+4));
+evans(sysL)
+
+//Title, labels and grid to the figure
+exec .\fig_settings.sci; // custom script for setting figure properties
+title(['Root locus for', '$L(s)=(s+1)/s^2(s+4)$'],'fontsize',3)
+zoom_rect([-6 -3 2 3])
+h=legend('');
+h.visible = "off"
+
+//------------------------------------------------------------------