1 files changed, 23 insertions, 0 deletions
diff --git a/3432/CH5/EX5.4/Ex5_4.sce b/3432/CH5/EX5.4/Ex5_4.sce
new file mode 100644
index 000000000..2a17aed83
--- /dev/null
+++ b/3432/CH5/EX5.4/Ex5_4.sce
@@ -0,0 +1,23 @@
+//Example 5.4
+//Root locus for satellite attitude control with modified 
+//PD control or 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+12));
+evans(sysL,100)
+
+//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+12)$'],'fontsize',3)
+zoom_rect([-6 -3 2 3])
+h=legend('');
+h.visible = "off"
+
+//------------------------------------------------------------------