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

---
 587/CH14/EX14.10/example14_10.sce | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100755 587/CH14/EX14.10/example14_10.sce

(limited to '587/CH14/EX14.10/example14_10.sce')

diff --git a/587/CH14/EX14.10/example14_10.sce b/587/CH14/EX14.10/example14_10.sce
new file mode 100755
index 000000000..d19eaba60
--- /dev/null
+++ b/587/CH14/EX14.10/example14_10.sce
@@ -0,0 +1,24 @@
+clear;
+clc;
+
+//Example14.10[Mass Convection inside a Circular Pipe]
+//Given:-
+D=0.015;//Inner Diameter[m]
+T=300;//Temp of air[K]
+P=1;//Pressure of air[atm]
+v=1.2;//Average velocity of air[m/s]
+nu=1.58*10^(-5);//Viscosity[m^2/s]
+//Solution:-
+//Water is Species Aand air is species B
+D_AB=(1.87*10^(-10))*(T^2.072)/P;//[m^2/s]
+disp("m^2/s",D_AB,"The mass diffusivity of water vapor in air at 300K is")
+Re=v*D/nu;
+disp(round(Re),"The Reynolds number for internal flow is")
+if(Re<2300) then
+    disp("laminar Flow")
+    Sh=3.66;//Sherwood number equals to Nusselt number
+    h_mass=Sh*D_AB/D;//[m/s]
+    disp("m/s",h_mass,"The mass transfer coefficient is")
+else
+    disp("Flow is not laminar")
+end
-- 
cgit