summaryrefslogtreecommitdiff
path: root/1022/CH14/EX14.7/14_7.sce
blob: 9c7b98756638357b7495e9e4ee937d75ce64b5c6 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
clc
//initialisation of variables
P= 1 //atm
T= 11 //C
Csf= 0.006
r= 1/3
s= 1
cl= 4.218 //J/gm K
hfg= 2257 //J/gm
Pr= 1.75
ul= 283.1*10^-3 //gm/m s
s= 57.78*10^-3 //N/m
pl= 958*10^3 //gm/m^3
pv= 598 //gm/m^3
gc= 10^3 //gm m/N s^2
g= 9.8 //m/s^2
//CALCULATIONS
p= pl-pv
q= ((((cl*dt)/(hfg*Csf*Pr^s))^(1/r))*(ul*hfg))/(gc/(g*p))^(1/2)
h= q/T
//RESULTS
printf ('Heat transfer coefficient for nucleate boiling= %.2e W/m^2 C',h)