blob: d9126dce9805eae511aac409fa088ff88623ca68 (
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
|
//Chapter-12, Example 12.2, Page 504
//=============================================================================
clc
clear
//INPUT DATA
Do=0.0254;//Outer Diameter of heat exchanger tube in m
Di=0.02286;//Inner Diameter of heat exchanger tube in m
k=102;//Thermal conductivity of the tube in W/m.K
hi=5500;//Heat transfer coefficients at the inner side of tube in W/m^2.K
ho=3800;//Heat transfer coefficients at the outer side of tube in W/m^2.K
Rfi=0.0002;//Fouling factor in m^2.W.K
Rfo=0.0002;//Fouling factor in m^2.W.K
//CALCULATIONS
ro=(Do/2);//Outer radius of heat exchanger tube in m
ri=(Di/2);//Inner radius of heat exchanger tube in m
U=(1/((1/ho)+Rfo+((ro/k)*log(ro/ri))+((ro*Rfi)/ri)+(ro/(ri*hi))));//Overall heat transfer coefficient in W/m^2.K
//OUTPUT
mprintf('Overall heat transfer coefficient is %i W/m^2.K',U)
//=================================END OF PROGRAM==============================
|
