1 files changed, 17 insertions, 0 deletions
diff --git a/914/CH6/EX6.5/ex6_5.sce b/914/CH6/EX6.5/ex6_5.sce
new file mode 100755
index 000000000..cec19421e
--- /dev/null
+++ b/914/CH6/EX6.5/ex6_5.sce
@@ -0,0 +1,17 @@
+clc;
+warning('off');
+printf("\n\n example6.5 - pg232");
+// given
+UzmaxbyU=24.83;
+roUbyv=2312;
+Re=100000;
+// using the formula Et/v=95.5*((r/ro)/slope)-1
+// from fig 6.6 at Re=100000
+rbyro=[0 0.040 0.100 0.200 0.300 0.4 0.5 0.6 0.7 0.8 0.9 0.960 1];
+slope=[0 0.105 0.112 0.126 0.144 0.168 0.201 0.252 0.336 0.503 1.007 2.517 94.59];
+for i=2:13
+    Etbyv(i)=95.5*((rbyro(i))/slope(i))-1;
+end
+clf;
+xtitle("eddy viscosity ratio versus dimensionless radius","r/ro","Et/v");
+plot(rbyro,Etbyv);