From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 530/CH9/EX9.7.b/example_9_7b.sce | 36 ++++++++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)
 create mode 100755 530/CH9/EX9.7.b/example_9_7b.sce

(limited to '530/CH9/EX9.7.b')

diff --git a/530/CH9/EX9.7.b/example_9_7b.sce b/530/CH9/EX9.7.b/example_9_7b.sce
new file mode 100755
index 000000000..4bbc20885
--- /dev/null
+++ b/530/CH9/EX9.7.b/example_9_7b.sce
@@ -0,0 +1,36 @@
+clear;
+clc;
+
+// A Textbook on HEAT TRANSFER by S P SUKHATME
+// Chapter 9
+// Mass Transfer
+
+
+// Example 9.7(b)
+// Page 366
+printf("Example 9.7(b), Page 366 \n \n");
+
+D = 0.04 ; // [m]
+V = 1.9 ; // [m/s]
+
+// (b) mess transfer correlation equivalent to the Gleilinski equation
+
+// Properties of air at 27 degree C
+v = 15.718*10^-6 ; // [m^2/s]
+rho = 1.177 ; // [kg/m^3]
+Pr = 0.7015 ;
+Cp = 1005 ; // [J/kg K]
+k = 0.02646 ; // [W/m K]
+// From Table 9.2
+Dab = 2.54 * 10^-5 ; // [m^2/s]
+Sc = v/Dab ;
+Re = V*D/v;
+
+// From Blasius equation 4.6.4a
+f = 0.079*Re^(-0.25);
+
+// Substituting in eqn 9.6.7
+Sh_D = [(f/2)*(Re-1000)*Sc]/[1+12.7*((f/2))*((Sc^(2/3))-1)];
+h_m1 = Sh_D*Dab/D;
+
+printf("(b) h_m = %f \n",h_m1);
\ No newline at end of file
-- 
cgit