6 files changed, 109 insertions, 0 deletions
diff --git a/698/CH8/EX8.1/1_first_critical_speed.txt b/698/CH8/EX8.1/1_first_critical_speed.txt
new file mode 100644
index 000000000..765632200
--- /dev/null
+++ b/698/CH8/EX8.1/1_first_critical_speed.txt
@@ -0,0 +1,3 @@
+Sigma_w_delta=(m1*delta1)+(m2*delta2) = 0.01012
+Sigma_w_delta2 = 0.000000226 m^2
+wc= 662.5 rad/s
+\ No newline at end of file
diff --git a/698/CH8/EX8.1/P1_first_critical_speed.sce b/698/CH8/EX8.1/P1_first_critical_speed.sce
new file mode 100644
index 000000000..06b4e11e5
--- /dev/null
+++ b/698/CH8/EX8.1/P1_first_critical_speed.sce
@@ -0,0 +1,29 @@
+clc
+//Example 8.1
+// First critical speed
+
+//------------------------------------------------------------------------------
+//Given Data:
+
+m1=220
+delta1=0.03e-3
+m2=440
+delta2=0.008e-3
+
+res1= mopen(TMPDIR+'1_first_critical_speed.txt','wt')
+
+Sigma_w_delta=(m1*delta1)+(m2*delta2)
+mfprintf(res1,'Sigma_w_delta=(m1*delta1)+(m2*delta2) = %0.5f\n',Sigma_w_delta)
+
+Sigma_w_delta2=(m1* delta1^2)+(m2* delta2^2)
+mfprintf(res1,'Sigma_w_delta2 = %0.9f m^2\n',Sigma_w_delta2)
+
+wc=sqrt((9.81*Sigma_w_delta)/(Sigma_w_delta2))
+
+mfprintf(res1,'wc= %0.1f rad/s',wc)
+
+mclose(res1);
+editor(TMPDIR+'1_first_critical_speed.txt')
+
+//------------------------------------------------------------------------------
+//--------------------------------End of program--------------------------------
+\ No newline at end of file
diff --git a/698/CH8/EX8.5/5_dunkerley_method.txt b/698/CH8/EX8.5/5_dunkerley_method.txt
new file mode 100644
index 000000000..a7329ab2b
--- /dev/null
+++ b/698/CH8/EX8.5/5_dunkerley_method.txt
@@ -0,0 +1,4 @@
+w1 = 355.40933 rad/s
+w2 = 531.20460 rad/s
+wc= 295.4 rad/s
+Nc= 2820.8 rad/s
+\ No newline at end of file
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
diff --git a/698/CH8/EX8.6/6_rayleigh_method.txt b/698/CH8/EX8.6/6_rayleigh_method.txt
new file mode 100644
index 000000000..da02b6e1f
--- /dev/null
+++ b/698/CH8/EX8.6/6_rayleigh_method.txt
@@ -0,0 +1,4 @@
+delta1 = 0.00002 rad/s
+delta2 = 0.00004 rad/s
+wc= 584.1 rad/s
+Nc= 5577.4 rad/s
+\ No newline at end of file
diff --git a/698/CH8/EX8.6/P6_rayleigh_method.sce b/698/CH8/EX8.6/P6_rayleigh_method.sce
new file mode 100644
index 000000000..930242940
--- /dev/null
+++ b/698/CH8/EX8.6/P6_rayleigh_method.sce
@@ -0,0 +1,38 @@
+clc
+//Example 8.6
+// Rayleigh method
+
+//------------------------------------------------------------------------------
+//Given Data:
+
+W1=675
+a11=1.482e-8
+W2=300
+a22=5.799e-8
+a21=3.211e-8
+a12=a21
+
+res6= mopen(TMPDIR+'6_rayleigh_method.txt','wt')
+
+delta1=(W1*a11)+(W2*a12)
+mfprintf(res6,'delta1 = %0.5f rad/s\n',delta1)
+
+delta2=(W2*a22)+(W1*a21)
+mfprintf(res6,'delta2 = %0.5f rad/s\n',delta2)
+
+Sigma_w_delta=(W1*delta1)+(W2*delta2)
+
+Sigma_w_delta2=(W1* delta1^2)+(W2* delta2^2)
+
+wc=sqrt((9.81*Sigma_w_delta)/(Sigma_w_delta2))
+
+mfprintf(res6,'wc= %0.1f rad/s\n',wc)
+
+Nc=(wc*60)/(2*%pi)
+mfprintf(res6,'Nc= %0.1f rad/s',Nc)
+
+mclose(res6);
+editor(TMPDIR+'6_rayleigh_method.txt')
+
+//------------------------------------------------------------------------------
+//--------------------------------End of program--------------------------------
+\ No newline at end of file