1 files changed, 18 insertions, 0 deletions
diff --git a/257/CH7/EX7.21/example_7_21.sce b/257/CH7/EX7.21/example_7_21.sce
new file mode 100644
index 000000000..b6b0e5227
--- /dev/null
+++ b/257/CH7/EX7.21/example_7_21.sce
@@ -0,0 +1,18 @@
+Mp=30               //given
+Ts=5
+zeta=0.358
+
+omegaN=4/(zeta*Ts)
+disp(omegaN,"omegaN = ")
+
+omegaD=omegaN*(sqrt(1-zeta^2))
+Tp=%pi/omegaD
+disp(Tp," Tp = ")
+
+TF=omegaN^2/(s^2+2*zeta*omegaN*s+omegaN^2)
+disp(TF, "transfer function = ")
+
+theta=atan(sqrt(1-zeta^2)/zeta)
+disp(theta," theta = ")
+c=(((1-(%e^(-zeta*omegaN*t))/sqrt(1-zeta^2)*sin(omegaD*t+theta))))
+disp(c," c = ")
+\ No newline at end of file