summaryrefslogtreecommitdiff
path: root/257/CH10/EX10.6/example_10_6.sce
diff options
context:
space:
mode:
Diffstat (limited to '257/CH10/EX10.6/example_10_6.sce')
-rw-r--r--257/CH10/EX10.6/example_10_6.sce14
1 files changed, 14 insertions, 0 deletions
diff --git a/257/CH10/EX10.6/example_10_6.sce b/257/CH10/EX10.6/example_10_6.sce
new file mode 100644
index 000000000..2e164637f
--- /dev/null
+++ b/257/CH10/EX10.6/example_10_6.sce
@@ -0,0 +1,14 @@
+Mr=1.1
+omegaR=11.2
+
+zeta=abs(roots(poly([0.2066 0 -1 0 1],'s',"coeff")))
+disp(zeta)
+disp("but for zeta>0.7 , Mr does not exist, so neglect higher value")
+zeta=0.54
+disp(zeta)
+
+omegaN=omegaR/(sqrt(1-2*(zeta)^2))
+disp(omegaN,"omegaN = ")
+
+TF=omegaN^2/(poly([0 2*zeta*omegaN 1],'s',"coeff"))
+disp(TF," TF = ") \ No newline at end of file