1 files changed, 15 insertions, 0 deletions
diff --git a/257/CH10/EX10.7/example_10_7.sce b/257/CH10/EX10.7/example_10_7.sce
new file mode 100644
index 000000000..5f03883dc
--- /dev/null
+++ b/257/CH10/EX10.7/example_10_7.sce
@@ -0,0 +1,15 @@
+s=%s
+
+//G=k/(s*(s*tau+1)) and T=G/(1+G)
+omegaN=12
+
+zeta=roots(poly([0.22225 0 -1 0 1],'s',"coeff"))
+disp("but for zeta>0.7 , Mr does not exist, so neglect higher value")
+zeta=0.578
+disp(zeta)
+
+tau=1/(2*sqrt(144)*zeta) 
+disp(tau,"tau = ")
+k=144*tau;disp(k,"k = ")
+
+disp(omegaN*sqrt(1-2*zeta^2 + sqrt(2-4*zeta^2+4*zeta^4))," B.W. = ")
+\ No newline at end of file