blob: 23c969bccd24e7a070bc2e3f20c79ae888c307a2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
//Chapter-7, Example 7.7, Page 290
//=============================================================================
clc
clear
//INPUT DATA
Ta=0;//Temperature of air stream in degree C
Tp=90;//Temperature of heated plate in degree C
v=75;//Speed of air in m/s
L=0.45;//Length of the palte in m
W=0.6;//Width of the plate in m
Re=(5*10^5);//Reynolds number at the transition from laminar to turbulant
//CALCULATIONS
Tf=(Ta+Tp)/2;//Film temperature in degree C
k=0.028;//Thermal conductivity of air at 10 degree C
Pr=0.698;//prant number of air at 10 degree C
v1=(17.45*10^-6);//Kinematic viscosity of air at 10 degree C
x=(Re*v1)/v;//Critical length in m
Rel=(v*L)/v1;//Reynolds number
Cfl=((0.074/Rel^(1/5))-(1740/Rel))/10^-3;//Average value of friction coefficient *10^-3
Nu=((0.037*Rel^(4/5))-870)*Pr^(1/3);//Nussults number
h=(Nu*k)/L;//Heat transfer coefficient in W/m^2.K
Q=(2*h*L*W*(Tp-Ta));//Rate of energy dissipation in W
//OUTPUT
mprintf('Average value of friction coefficient is %3.2f*10^-3 \nHeat transfer coefficient is %3.0f W/m^2.K \nRate of energy dissipation is %i W',Cfl,h,Q)
//=================================END OF PROGRAM==============================
|
