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

---
 1373/CH8/EX8.8/Chapter8_Example8.sce | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)
 create mode 100755 1373/CH8/EX8.8/Chapter8_Example8.sce

(limited to '1373/CH8/EX8.8')

diff --git a/1373/CH8/EX8.8/Chapter8_Example8.sce b/1373/CH8/EX8.8/Chapter8_Example8.sce
new file mode 100755
index 000000000..f7b261475
--- /dev/null
+++ b/1373/CH8/EX8.8/Chapter8_Example8.sce
@@ -0,0 +1,27 @@
+//Chapter-8, Example 8.8, Page 349
+//=============================================================================
+clc
+clear
+
+//INPUT DATA
+D=0.2;//Outer diameter of the pipe in m
+Ts=100;//Surface temperature in degree C
+Ta=20;//Temperature of air in degree C
+L=3;//Length of pipe in m
+
+//CALCULATIONS
+Tf=(Ts+Ta)/2;//Film temperature in degree C
+k=0.02896;//Thermal conductivity in W/m.K
+v1=(18.97*10^-6);//Kinematic viscosity in m^2/s
+b=(1/333);//Coefficient of thermal expansion in 1/K
+Pr=0.696;//Prantl number
+Gr=((9.81*b*L^3*(Ts-Ta))/(v1^2));//Grashof number
+Ra=(Gr*Pr);//Rayleigh number
+Nu=(0.1*Ra^(1/3));//Nussults number
+h=(Nu*k)/L;//Heat transfer coefficient in W/m^2.K
+Q=(h*3.14*D*(Ts-Ta));//Rate of heat loss per meter length of pipe in W/m
+
+//OUTPUT
+mprintf('Rate of heat loss per meter length of pipe is %3.2f W/m',Q)
+
+//=================================END OF PROGRAM==============================
-- 
cgit