1 files changed, 39 insertions, 0 deletions
diff --git a/Working_Examples/293/CH24/EX24.2/eg24_2.sce b/Working_Examples/293/CH24/EX24.2/eg24_2.sce
new file mode 100755
index 0000000..fa8965c
--- /dev/null
+++ b/Working_Examples/293/CH24/EX24.2/eg24_2.sce
@@ -0,0 +1,39 @@
+//a
+//parameter values 
+Kp = 0.5; //V/rad 
+Ka = 100; //V/V
+Km = 2*10^-4 ; //lb-ft/V
+F = 1.5*10^-4; //lb-ft/rad/s
+J = 10^-5 //slug-ft^2
+
+K = Kp*Ka*Km ; //loop propotional gain
+dr = F/(2*sqrt(K*J)); //damping ratio
+wn = sqrt(K/J);
+ts = 5/(dr*wn);
+wd = wn*sqrt(1 - dr^2); //frequency at which damped oscillations occur 
+disp("a")
+disp(wd, "damped oscillations occur at a frequency = ")
+disp(dr,"damping ratio = ")
+
+//b
+Tl = 10^-3; //load disturbance (lb-ft)
+e = Tl/K; //position lag error 
+disp("b")
+disp(e,"position lag error (in rad) = ")
+
+//c
+KaNew = (e/0.025)*Ka; //new loop gain
+disp("c")
+disp(KaNew,"new loop gain for which the position lag error is equal to  0.025rad = ")
+
+//d
+drNew = F/(2*sqrt(Kp*KaNew*Km*J)); //new damping ratio
+disp("d")
+disp(drNew,"new damping ratio = ")
+
+//e
+//for a maximum overshoot of 25% , (F + Qo)/2*sqrt(K*J) = 0.4
+Qo = (0.4*2*sqrt(Kp*KaNew*Km*J)) - F ; 
+Ko = Qo/(KaNew*K) ; //output gain factor 
+disp("e")
+disp(Ko,"output gain factor = ")
+\ No newline at end of file