summaryrefslogtreecommitdiff
path: root/965/CH7/EX7.60/60.sci
blob: dd9570aa37bf22ad36e9de394e0e97de9333d87e (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
clc;
clear all;
disp("average heat transfer coefficient")
tb=27;// degree C
d=19/1000;//m diameter of tube
U=0.061;//m/s
L=1.5;//m length of tube
ts=38;//degree C
mus=5.233*10^(-4);// Pa s
mub=5.892*10^(-4);// Pa s
kb=0.1591;// W/m.K
rhob=876.6;// kg/m^3
cpb=1757;// j/kg.K
Prb=6.5;
Reb=rhob*U*d/mub;
Nu=1.86*(Reb*Prb/(L/d))^0.33*(mub/mus)^0.14;
h=k*Nu/d;
xv=0.05*Reb*d;// velocity depth
xt=xv*Prb;// temperature depth
disp("m",xv,"velocity depth =")
disp("m",xt,"temperature depth =")