1 files changed, 14 insertions, 0 deletions
diff --git a/257/CH10/EX10.5/example_10_5.sce b/257/CH10/EX10.5/example_10_5.sce
new file mode 100644
index 000000000..e2f1bae77
--- /dev/null
+++ b/257/CH10/EX10.5/example_10_5.sce
@@ -0,0 +1,14 @@
+s=poly(0,'s'); 
+omegaR=7
+
+zeta=abs(roots(poly([0.043766 0 -1 0 1],'s',"coeff")))
+disp(zeta)
+disp("but for zeta>0.7 , Mr does not exist, so neglect higher value")
+zeta=0.2141
+disp(zeta)
+
+omegaN=omegaR/(sqrt(1-2*(zeta)^2))
+disp(omegaN,"omegaN = ")
+
+disp(omegaN*sqrt(1-2*zeta^2 + sqrt(2-4*zeta^2+4*zeta^4))," B.W. = ")
+