blob: 6081a29159f3a8a23e84b7732f8036c80357db08 (
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
30
31
32
|
//Chapter-7, Example 7.2, Page 275
//=============================================================================
clc
clear
//INPUT DATA
Ta=20;//Temperature of air in degree C
Tp=134;//Temperature of heated plate in degree C
v=3;//Velocity of flow in m/s
L=2;//Length of plate in m
W=1.5;//Width of plate in m
x=0.4;//Distance of plane from the plate in m
k=(15.06*10^-6);//Kinematic viscosity in m^2/s
//CALCULATIONS
Tf=(Ta+Tp)/2;//Film temperature in degree C
pw=0.998;//Density of air at 77 degree C
Cp=1009;//Specific heat of air at 77 degree C
kw=(20.76*10^-6);//Kinematic viscosity of air at 77 degree C
k=0.03;//Thermal conductivity of air at 77 degree C
Pr=0.697;//prantl number of air at 77 degree C
Re=(v*x)/kw;//Reynolds number
Nu=(0.332*Re^0.5*Pr^(1/3));//Nusselts number
h=(Nu*k)/x;//Heat transfer coefficient in W/m^2.K
h1=(h*2);//Average value of heat transfer coefficient in W/m^2.K
Q=h1*x*W*(Tp-Ta);//Heat flow in W
Q1=(2*Q);//Heat flow from both sides of the plate in W
//OUTPUT
mprintf('Heat flow from both sides of the plate is %3.0f W',Q1)
//=================================END OF PROGRAM==============================
|
