summaryrefslogtreecommitdiff
path: root/1100/CH19/EX19.5/19_5.sce
blob: e05a68c3a7e6b9c19e418b38da86bcf8c12c352e (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
V= 100 //fps
Di= 0.902 //in
d= 0.0375 //lb/cu ft
u= 0.000020 //lbm/sec
cp= 0.25 //Btu/lb F
k= 0.027 //Btu/sq ft hr
//CALCULATIONS
NRe= (Di*V*d)/(u*12)
Npr= 0.66
h= k*0.023*NRe^0.8*Npr^0.4*12/Di
//RESULTS
printf ('Film coefficient = %.1f Btu/sq ft hr F',h)