summaryrefslogtreecommitdiff
path: root/686/CH8/EX8.1/Ex8_1.sci
blob: 9a83e10fc402c266e5481b09858af34586facb94 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
clc();
clear;

// To find the amount of heat transferred to the air 

Tw = 200;                         // Wall temperature in F
delp = 14.2;                      // Pressure pressure in lb/in^2
d = 0.8/12;                       // Diameter in ft
R = delp*%pi*d^2/4;               // resistance of tube
Tb = 137;                         // bulk temperature of wall in F

q = R*32.2*0.24*3600*(Tw-Tb)/100;      // Heat loss in Btu/hr
printf("The heat loss from the tube well to the air when the plate is heated to a temperature of 200 F is %d Btu/hr",q);