1 files changed, 31 insertions, 0 deletions
diff --git a/698/CH8/EX8.5/P5_dunkerley_method.sce b/698/CH8/EX8.5/P5_dunkerley_method.sce
new file mode 100644
index 000000000..9b231d6ed
--- /dev/null
+++ b/698/CH8/EX8.5/P5_dunkerley_method.sce
@@ -0,0 +1,31 @@
+clc
+//Example 8.5
+// Dunkerley's Method
+
+//------------------------------------------------------------------------------
+//Given Data:
+
+W1=1250
+a11=6.213e-8
+W2=325
+a22=10.697e-8
+
+res5= mopen(TMPDIR+'5_dunkerley_method.txt','wt')
+
+w1=sqrt(9.81/(W1*a11))
+mfprintf(res5,'w1 = %0.5f rad/s\n',w1)
+
+w2=sqrt(9.81/(W2*a22))
+mfprintf(res5,'w2 = %0.5f rad/s\n',w2)
+
+wc=sqrt((w1^2 * w2^2)/(w1^2 + w2^2))
+mfprintf(res5,'wc= %0.1f rad/s\n',wc)
+
+Nc=(wc*60)/(2*%pi)
+mfprintf(res5,'Nc= %0.1f rad/s',Nc)
+
+mclose(res5);
+editor(TMPDIR+'5_dunkerley_method.txt')
+
+//------------------------------------------------------------------------------
+//--------------------------------End of program--------------------------------
+\ No newline at end of file