blob: 40cae37a6672cce8c0837ca20b553341e17391c3 (
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
|
//Chapter-7, Example 7.8, Page 296
//=============================================================================
clc
clear
//INPUT DATA
D=0.3;//Diameter of cylinder in m
L=1.7;//Height of cylinder in m
Ts=30;//Surface temperature in degree C
v=10;//Speed of wind in m/s
Ta=10;//Temperature of air in degree C
//CALCULATIONS
Tf=(Ta+Ts)/2;//Film temperature in degree C
k=0.0259;//Thermal conductivity of air at 20 degree C
Pr=0.707;//prant number of air at 20 degree C
v1=(15*10^-6);//Kinematic viscosity of air at 20 degree C
Re=(v*D)/v1;//Reynolds number
Nu=0.027*Re^0.805*Pr^(1/3)//Nusselts number
h=(Nu*k)/D;//Heat transfer coefficent in W/m^2.K
Q=(h*3.14*D*L*(Ts-Ta));//Rate of heat loss in W
//OUTPUT
mprintf('Rate of heat loss is %3.1f W',Q)
//=================================END OF PROGRAM==============================
|