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

---
 686/CH8/EX8.2/Ex8_2.sci | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100755 686/CH8/EX8.2/Ex8_2.sci

(limited to '686/CH8/EX8.2/Ex8_2.sci')

diff --git a/686/CH8/EX8.2/Ex8_2.sci b/686/CH8/EX8.2/Ex8_2.sci
new file mode 100755
index 000000000..ee141bb1c
--- /dev/null
+++ b/686/CH8/EX8.2/Ex8_2.sci
@@ -0,0 +1,23 @@
+clc();
+clear;
+
+// To find the extent of heating of water and heat transfer 
+
+d = 0.24/12;                    // Diameter of tubes in ft
+l = 24/12;                      // Length of tubes in ft
+v = 3;                          // velocity of cooling water in ft/sec
+T = 140;                        // Temperature of cooling water in F
+n = 0.514*10^-5;                // Kinematic viscosity in ft^2/sec
+Pr = 3.02;                      // Prandtls number
+k = 0.376;                      // Thermal conductivity in Btu/hr-ft-F
+Re = d*v/n;                     // Reynolds number 
+A = 1.5;                        // Experimental constant
+// Turbulent flow
+// Greater part of the flow is developed , A=1.5 from the table
+
+St = 0.0384*(v*d/n)^-(1/4)/(1+A*(v*d/n)^-(1/8)*(Pr-1));   // Strantons number
+Nu = Re*Pr*St;                                            // Nusselt number
+h = Nu*k/d;                               // Heat transfer coefficient  
+
+printf("The heat transfer coefficient of heating of waterr is %d Btu/hr-ft^2-F",h);
+
-- 
cgit