summaryrefslogtreecommitdiff
path: root/1100/CH19/EX19.6/19_6.sce
blob: e66edeac35289b41eaa83e43b43a3750bcee1550 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
clc
//initialisation of variables
Tw= 200 //F
Ta= 600 //F
cpb= 0.25 // Btu/lb F
tf= 0.68
uf= 0.000017 //lbm/sec ft
D= 0.902 //in
V= 100 //fps
d= 0.0375 //lb/cu ft
//CALCULATIONS
Nre= (D/12)*V*d/uf
Npr= 0.68
h= cpb*V*3600*d*0.023/(Nre^0.2*Npr^(2/3))
//RESULTS
printf ('Film coefficient = %.1f Btu/sq ft hr F',h)