blob: fc89acaf2c3f500ae5b16325db9ecc9fff56ab0f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
//Chapter-7, Example 7.14, Page 305
//=============================================================================
clc
clear
//INPUT DATA
m=0.314;//Mass flow rate of air in m^3/s
n1=7;//Number of tubes in the direction of flow
n2=8;//Number of tubes perpendicular to the direction of flow
L=1.25;//Length of each tube in m
D=0.019;//Outer diameter in m
ST=0.0286;//Transverse pitch in m
SD=0.038;//Longitudinal pitch in m
Ta=200;//Temperature of air in degree C
Ts=96;//Surface temperature in degree C
//CALCULATIONS
Tf=(Ta+Ts)/2;//Film temperature in degree C
k=0.039;//Thermal conductivity of air at 15 degree C
Pr=0.688;//prantl number of air at 15 degree C
v1=(3*10^-5);//Kinematic viscosity of air at 15 degree C
vmax=(m/((ST*n2*L)-(D*n2*L)));//Maximum velocity in m/s
Re=(vmax*D)/v1;//Reynolds number
Nu=(0.299*Re^0.602*Pr^(1/3));//Nusselts number
X=0.96;//From Table 7.5 on page no.302
Nux=(X*Nu);//Average nusselts number
h=(Nux*k)/D;//Convective heat transfer coefficient in W/m^2.K
//OUTPUT
mprintf('Convective heat transfer coefficient is %3.2f W/m^2.K',h)
//=================================END OF PROGRAM==============================
|
