1 files changed, 19 insertions, 0 deletions
diff --git a/3407/CH8/EX8.4/Ex8_4.sce b/3407/CH8/EX8.4/Ex8_4.sce
new file mode 100644
index 000000000..3c9d29c9b
--- /dev/null
+++ b/3407/CH8/EX8.4/Ex8_4.sce
@@ -0,0 +1,19 @@
+clear;
+clc;
+funcprot(0);
+
+//given data
+cm3_U2 = 0.25;
+nu = 0.4;
+r3s_r2 = 0.7;
+w3av_w2 = 2.0;
+
+//Calculations
+r3av_r3s = 0.5*(1+nu);
+r3av_r2 = r3av_r3s*r3s_r2;
+beta3_av = (180/%pi)*atan(r3av_r2/cm3_U2);
+beta3s = (180/%pi)*atan(r3s_r2/cm3_U2);
+w3s_w2 = 2*cos(beta3_av*%pi/180)/cos(beta3s*%pi/180);
+
+//Results
+printf('The relative velocity ratio = %.3f.',w3s_w2);