From 7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 Mon Sep 17 00:00:00 2001
From: prashantsinalkar
Date: Tue, 10 Oct 2017 12:27:19 +0530
Subject: initial commit / add all books

---
 3432/CH7/EX7.22/Ex7_22.sce    |  46 ++++++++++++++++++++++++++++++++++++++++++
 3432/CH7/EX7.22/Ex7_22_f0.pdf | Bin 0 -> 28415 bytes
 2 files changed, 46 insertions(+)
 create mode 100644 3432/CH7/EX7.22/Ex7_22.sce
 create mode 100644 3432/CH7/EX7.22/Ex7_22_f0.pdf

(limited to '3432/CH7/EX7.22')

diff --git a/3432/CH7/EX7.22/Ex7_22.sce b/3432/CH7/EX7.22/Ex7_22.sce
new file mode 100644
index 000000000..4e277f626
--- /dev/null
+++ b/3432/CH7/EX7.22/Ex7_22.sce
@@ -0,0 +1,46 @@
+//Example 7.22
+// SRL design for satellite attitude control
+
+xdel(winsid())//close all graphics Windows
+clear;
+clc;
+//------------------------------------------------------------------
+//Transfer function for satellite attitude control system
+s=poly(0,'s');
+nums=1;
+dens=s^2;
+num_s=1;
+den_s=(-s)^2;
+G0s=syslin('c',nums/dens); //G0(s)
+G0_s=syslin('c',num_s/den_s); //G0(-s)
+//evans(G0s*G0_s)
+evans(1/s^4)
+zoom_rect([-3 -3 3 3])
+f=gca();
+f.x_location = "origin"
+f.y_location = "origin"
+xset("color",2);
+h=legend('');
+h.visible = "off"
+
+//Title, labels and grid to the figure
+exec .\fig_settings.sci; //custom script for setting figure properties
+title('Symmetric root locus for the satellite','fontsize',3);
+//------------------------------------------------------------------
+//Root locus design
+//choose rho=4.07 that places pole at -1+-j
+rho=4.07;
+chr_eqn=(1+rho*G0s*G0_s)
+p=[-1+%i, -1-%i];
+sig=real(p);
+omega=imag(p);
+plot(sig,omega,'ro')
+xstring(-2.2,0.5,["pole locations at";"$\rho=4.07$"])
+//------------------------------------------------------------------
+//pole-placement design;
+sys=tf2ss(G0s);
+exec('./acker_dk.sci', -1);
+K=acker_dk(sys.A,sys.B,p);
+syscl=syslin('c',(sys.A-sys.B*K),sys.B, sys.C, sys.D)
+disp(spec(syscl.A),"Closed loop eigen values");
+//------------------------------------------------------------------
diff --git a/3432/CH7/EX7.22/Ex7_22_f0.pdf b/3432/CH7/EX7.22/Ex7_22_f0.pdf
new file mode 100644
index 000000000..ebc7654c5
Binary files /dev/null and b/3432/CH7/EX7.22/Ex7_22_f0.pdf differ
-- 
cgit