AIRCOOL
AIRCOOL
of
================================= Date
Project: By
Case : C'k'd
App'd
Program description:
====================
Comments: The program sizes an aircooler for given flowrate, temperature, tube
diameter and geometry and fin geometry.
The program consists of eleven pages, see list below:
Page 1: Specification of tube- and airside conditions.
Page 2: Spec. tubeside geometry, calc.tube side heat transfer.
Page 3: Spec. airside geometry, calc. airside heat transfer.
Page 4: Overall heat transfer calc's and summary.
Page 5: Tubeside pressure drop calculation.
Page 6: Tube layout calculations.
Page 7: Air side pressure drop calculation and fan sizing.
Page 8: Weight estimate and layout summary.
Page 9: Solution of fin heatbalance.
Page 10: Calculation of Bessel functions at inner fin radius.
Page 11: Calculation of Bessel functions at outer fin radius.
Tube properties:
2.7
7.9 Fin properties:
8.5
Input: Fin height Hf =
Fin thickness Ft =
Fin spacing/fin height s/Hf=
Fouling factor Rdo =
Results: Fin diameter Df = Do+2*hf =
Fin radius re = Df/2/12 =
Half thickness yb = Ft/2/12 =
Fin spacing s = s/Hf/12 =
in Number of fins per length
in Nf/L = 1/(2+2*yb) =
mm Fin area Af/L=
2*pi*Nf/L*(re^2-rb^2+2*yb*re) =
hr*ft2*F/Btu Bare tube area
in A0/L = 2*pi*rb*(1-Nf/L*2*yb) =
ft Proj. Perimeter
ft Pp/L = 2*(1+2*Nf/L*(re-rb)) =
ft2 Eff. diameter
ft2/ft Deff = 2*(Af/L+A0/L)/(pi*Pp/L)=
Btu/hr/ft/F Heat conductivity kf =
Efficiency of fins:
Tubeside:
0.4145 ft2/ft
Overall heat transfer:
15.3333 ft/ft
Results: Outer film
0.2344 ft Steel pipe
119 Btu/hr/ft/F ht = kt/(ri*ln(rb/ri) =
Inner film
Overall coefficient
UDi = 1/(1/hfi'+1/ht+1/hi') =
Mean temp.diff.
LMTD = (Tin-tout)-(Tout-tin))/
95066 LN((Tin-tout)/(Tout-tin))
Crossflow correction coefficients
0.70 S = (tout-tin)/(Tin-tin) =
R = (Tin-Tout)/(tout-tin) =
311.75 Input: Corr. factor fig.16.17b
Results: True mean temp. diff.
19.95 Btu/hr/ft2/F TMTD = FT*LMTD =
18.82 Btu/hr/ft2/F
Area calculation:
Results: Flowarea
Number of pipes
Volumetric flowrate
hfi'= 301.76 Btu/hr/ft2/F Average density
Velocity
1197.61 Btu/hr/ft2/F vel = vtot/3600/Nt/fa =
hi' = 206.26 Btu/hr/ft2/F C-factor calculation
C = vel*sqrt(d) =
111.15 Btu/hr/ft2/F
= 85.22 deg.F
0.09
4.35
FT = 0.99
84.37
763 ft2
= 2649 ft
= 110 ft
105955
Sheet no. of Aircooler (AIRCOOL): Page 6 of 11
========= Date ================================
By Project:
C'k'd Case :
App'd
Tube layout:
============
8.20 ft/sec
Calculate length of exchanger:
59.7
Results: Projected area of tubes
2*rb+Nf/L*2*(re-rb)*Ft/12 =
Spanned area of fins
As/L = 2*re =
Gap area
Ag/L = gap/12 =
Air flow area
Afl/L = Ag/L+As/L-Ap/L =
Air area req'd to give ua
Total tube length req'd to give ua
Ll = A/(Afl/L) =
Length of exchanger
Le = Ll/N1 =
Width of exchanger
We = N1*(2re+gap/12) =
Number of tube layers
Ntl = Ltot/Ll =
Selected number of layers
Actual tube length
Lact = (N1+(N1-1))/2*Nts*Le =
Excess tube length
Lex = Lact-Ltot =
Lex% = Lex/Lact*100 =
Sheet no. of Aircooler (AIRCOOL): Page 7 of 11
=============== Date ==========================
By Project:
C'k'd Case :
App'd
Airside pressure drop:
======================
= 29.59 ft
ap/12) = 9.80 ft
= 3.73 layers
of layers Nts = 4 layers
1))/2*Nts*Le = 2781 ft
= 132 ft
*100 = 4.8 %
Sheet no. of Aircooler (AIRCOOL): Page 8 of 11
=============== Date ==========================
By Project:
C'k'd Case :
App'd
Weight estimate:
==== ================
beta = alpha*I1(x1)/K1(x1)
= 0.9417
Calculation of efficiency:
(dy/dx),(x=x0) = alpha*I1(x0) - be
omega = -2*r0/(r1^2-r0^2)/y0/sq
= 0.8033
9 of 11 Sheet no. of Aircooler (AIRCOOL): Page 10 of 11
================= Date =========================
By Project:
C'k'd Case :
App'd
= 0.95 in j 1/j
j!
f = 1.95 in 0 1
1 1 1.0000
2) = 75.9202 2 2 0.5000
3 6 0.3333
4 24 0.2500
5 120 0.2000
6 720 0.1667
7 5040 0.1429
8 40320 0.1250
beta*k0(t) 9 362880 0.1111
10 3628800 0.1000
t) + beta*K0'(t) 11 ### 0.0909
beta*K1(t) 12 ### 0.0833
13 ### 0.0769
14 ### 0.0714
15 ### 0.0667
16 ### 0.0625
17 ### 0.0588
18 ### 0.0556
19 ### 0.0526
20 ### 0.0500
21 ### 0.0476
/(I0(x0)*K1(x1)+K0(x0)*I1(x1)) 22 ### 0.0455
23 ### 0.0435
24 ### 0.0417
25 ### 0.0400
1)/K1(x1) 26 ### 0.0385
27 ### 0.0370
28 ### 0.0357
29 ### 0.0345
iency: 30 ### 0.0333
31 ###
alpha*I1(x0) - beta*K1(x0) ny
(t/2)^ny
-0.8903
^2-r0^2)/y0/sqrt(K)*(dy/dx)
Page 10 of 11 Sheet no. of Aircooler (AIRCOOL): Page 11 of 11
================= Date ============================
By Project:
C'k'd Case :
App'd
(x^2/4)^j j
sum(1/j) I0(x,i) I1(x,i) K0(x,i) K1(x,i)
0.0000 1.0000 1.0000 0.3449 0.5470 1.4491 0
1.0000 0.1190 0.1190 0.0205 0.1190 -0.3449 1
1.5000 0.0142 0.0035 0.0004 0.0053 -0.0308 2
1.8333 0.0017 0.0000 0.0000 0.0001 -0.0007 3
2.0833 0.0002 0.0000 0.0000 0.0000 0.0000 4
2.2833 0.0000 0.0000 0.0000 0.0000 0.0000 5
2.4500 0.0000 0.0000 0.0000 0.0000 0.0000 6
2.5929 0.0000 0.0000 0.0000 0.0000 0.0000 7
2.7179 0.0000 0.0000 0.0000 0.0000 0.0000 8
2.8290 0.0000 0.0000 0.0000 0.0000 0.0000 9
2.9290 0.0000 0.0000 0.0000 0.0000 0.0000 10
3.0199 0.0000 0.0000 0.0000 0.0000 0.0000 11
3.1032 0.0000 0.0000 0.0000 0.0000 0.0000 12
3.1801 0.0000 0.0000 0.0000 0.0000 0.0000 13
3.2516 0.0000 0.0000 0.0000 0.0000 0.0000 14
3.3182 0.0000 0.0000 0.0000 0.0000 0.0000 15
3.3807 0.0000 0.0000 0.0000 0.0000 0.0000 16
3.4396 0.0000 0.0000 0.0000 0.0000 0.0000 17
3.4951 0.0000 0.0000 0.0000 0.0000 0.0000 18
3.5477 0.0000 0.0000 0.0000 0.0000 0.0000 19
3.5977 0.0000 0.0000 0.0000 0.0000 0.0000 20
3.6454 0.0000 0.0000 0.0000 0.0000 0.0000 21
3.6908 0.0000 0.0000 0.0000 0.0000 0.0000 22
3.7343 0.0000 0.0000 0.0000 0.0000 0.0000 23
3.7760 0.0000 0.0000 0.0000 0.0000 0.0000 24
3.8160 0.0000 0.0000 0.0000 0.0000 0.0000 25
3.8544 0.0000 0.0000 0.0000 0.0000 0.0000 26
3.8915 0.0000 0.0000 0.0000 0.0000 0.0000 27
3.9272 0.0000 0.0000 0.0000 0.0000 0.0000 28
3.9617 0.0000 0.0000 0.0000 0.0000 0.0000 29
3.9950 0.0000 0.0000 0.0000 0.0000 0.0000 30
31
0 1 0 1 ny
1 ### 1 ### (t/2)^ny
ge 11 of 11 Sheet no. of
==================Date
By
C'k'd
App'd
matical Functions
erce, 10th Printing, 1972.
Constant K = 75.9202
Independent variable
x1 = r1/12*sqrt(K) = 1.4159
1/j (x^2/4)^j
j! sum(1/j) I0(x,i) I1(x,i) K0(x,i)
1 0.0000 1.0000 1.0000 0.7079 -0.3634
1 1.0000 1.0000 0.5012 0.5012 0.1774 0.5012
2 0.5000 1.5000 0.2512 0.0628 0.0148 0.0942
6 0.3333 1.8333 0.1259 0.0035 0.0006 0.0064
24 0.2500 2.0833 0.0631 0.0001 0.0000 0.0002
120 0.2000 2.2833 0.0316 0.0000 0.0000 0.0000
720 0.1667 2.4500 0.0158 0.0000 0.0000 0.0000
5040 0.1429 2.5929 0.0079 0.0000 0.0000 0.0000
40320 0.1250 2.7179 0.0040 0.0000 0.0000 0.0000
362880 0.1111 2.8290 0.0020 0.0000 0.0000 0.0000
3628800 0.1000 2.9290 0.0010 0.0000 0.0000 0.0000
### 0.0909 3.0199 0.0005 0.0000 0.0000 0.0000
### 0.0833 3.1032 0.0003 0.0000 0.0000 0.0000
### 0.0769 3.1801 0.0001 0.0000 0.0000 0.0000
### 0.0714 3.2516 0.0001 0.0000 0.0000 0.0000
### 0.0667 3.3182 0.0000 0.0000 0.0000 0.0000
### 0.0625 3.3807 0.0000 0.0000 0.0000 0.0000
### 0.0588 3.4396 0.0000 0.0000 0.0000 0.0000
### 0.0556 3.4951 0.0000 0.0000 0.0000 0.0000
### 0.0526 3.5477 0.0000 0.0000 0.0000 0.0000
### 0.0500 3.5977 0.0000 0.0000 0.0000 0.0000
### 0.0476 3.6454 0.0000 0.0000 0.0000 0.0000
### 0.0455 3.6908 0.0000 0.0000 0.0000 0.0000
### 0.0435 3.7343 0.0000 0.0000 0.0000 0.0000
### 0.0417 3.7760 0.0000 0.0000 0.0000 0.0000
### 0.0400 3.8160 0.0000 0.0000 0.0000 0.0000
### 0.0385 3.8544 0.0000 0.0000 0.0000 0.0000
### 0.0370 3.8915 0.0000 0.0000 0.0000 0.0000
### 0.0357 3.9272 0.0000 0.0000 0.0000 0.0000
### 0.0345 3.9617 0.0000 0.0000 0.0000 0.0000
### 0.0333 3.9950 0.0000 0.0000 0.0000 0.0000
###
0 1 0
(t/2)^ny 1 ### 1
0.3134
K1(x,i)
1.3160
-0.7079
-0.2661
-0.0272
-0.0013
0.0000
0.0000
0.0000
0.0000
0.0000
0.0000
0.0000
0.0000
0.0000
0.0000
0.0000
0.0000
0.0000
0.0000
0.0000
0.0000
0.0000
0.0000
0.0000
0.0000
0.0000
0.0000
0.0000
0.0000
0.0000
0.0000
1
###