1 files changed, 15 insertions, 0 deletions
diff --git a/2510/CH9/EX9.9/Ex9_9.sce b/2510/CH9/EX9.9/Ex9_9.sce
new file mode 100755
index 000000000..b8de3f493
--- /dev/null
+++ b/2510/CH9/EX9.9/Ex9_9.sce
@@ -0,0 +1,15 @@
+//Variable declaration:
+m = 0.075                           //Mass rate of air flow (kg/s)
+D = 0.225                           //Diameter of tube (m)
+mu = 208*10**-7                     //Dynamic viscosity of fluid (N)
+Pr = 0.71                           //Prandtl number
+k = 0.030                           //Thermal conductivity of air (W/m.K)
+
+//Calculation:
+Re = 4*m/(%pi*D*mu)                  //Reynolds number
+//From equation 9.26:
+Nu = 0.023*(Re**0.8)*(Pr**0.3)      //Nusselt number
+h = (k/D)*Nu                        //Heat transfer coefficient of air (W/m^2.K)
+
+//Result:
+printf("The Heat transfer coefficient of air is : %.2f  W/m^2.K.",h)