blob: bbaf4027d610a16f7ff81490bde2673b8b532a9b (
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
|
//Chapter-7, Example 7.13, Page 304
//=============================================================================
clc
clear
//INPUT DATA
n=7;//Number of rows of tube
Ta=15;//Temperature of air in degree C
v=6;//Velocity of air in m/s
ST=0.0205;//Transverse pitch in m
SD=0.0205;//Longitudinal pitch in m
D=0.0164;//Outside diameter of the tube in m
Ts=70;//Surface temperature in degree C
//CALCULATIONS
Tf=(Ta+Ts)/2;//Film temperature in degree C
k=0.0253;//Thermal conductivity of air at 15 degree C
Pr=0.710;//prant number of air at 15 degree C
v1=(14.82*10^-6);//Kinematic viscosity of air at 15 degree C
p=1.217;//Density in kg/m^3
Pr1=0.701;//prant number of air at 70 degree C
vmax=(v*ST)/(ST-D);//Maximum velocity in m/s
Re=(vmax*D)/v1;//Reynolds number
Nu=0.35*Re^0.6*(Pr/Pr1)^0.25;//
h=(Nu*k)/D;//Heat transfer coefficient in W/m^2.K
mprintf(' Heat transfer coefficient is %3.1f W/m^2.K which is 10 percent more than that obtained in the previous example',h)
//=================================END OF PROGRAM==============================
|
