blob: fca3df12dcb3a8808c1c309e50b2f5f0fdc0c399 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
//Chapter-11, Example 11.5, Page 485
//=============================================================================
clc
clear
//INPUT DATA
p=6;//Pressure of water in atm
D=0.02;//Diameter of the tube in m
Ts=10;//Wall temperature in degree C
L=1;//Length of the tube in m
//CALCULATIONS
p1=(p*1.0132*10^5)/10^6;//Pressure in MN/m^2
h=(2.54*Ts^3*exp(p1/1.551));//Heat transfer coefficient in W/m^2.K
Q=(h*3.14*D*L*Ts);//Heat transfer rate in W/m
//OUTPUT
mprintf('Heat transfer rate is %3.1f W/m',Q)
//=================================END OF PROGRAM==============================
|
