blob: f6820a03b3f76b46bff7aa271e060df79314d714 (
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-3, Example 3.11, Page 66
//=============================================================================
clc
clear
//INPUT DATA
T1=2000;//Temperature of hot gas in degree C
Ta=45;//Room air temperature in degree C
Qr1=23.260;//Heat flow by radiation from gases to inside surface of the wall in kW/m^2
h=11.63;//Convective heat transfer coefficient in W/m^2.
C=58;//Thermal conductance of the wall in W/m^2.K
Q=9.3;//Heat flow by radiation from external surface to the surrounding in kW.m^2
T2=1000;//Interior wall temperature in degree C
//CALCULATIONS
qr1=Qr1;//Haet by radiation in kW/m^2
qc1=h*((T1-T2)/1000);//Heat by conduction in kW/m^2
q=qc1+qr1;//Total heat entering the wall in kW/m^2
R=(1/C);//Thermal resistance in m^2.K/W
T3=T2-(q*R*1000);//External wall temperature in degree C
Ql=q-Q;//Heat loss due to convection kW/m^2
h4=(Ql*1000)/(T3-Ta);//Convective conductance in W/m^2.K
mprintf('The surface temperature is %i degree C \nThe convective conductance is %3.1f W/m^2.K',T3,h4)
//=================================END OF PROGRAM==============================
|
