blob: 31fcf9e4715a0cbd0bd4137caed8635b2bd57fef (
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
33
34
35
36
|
// Display mode
mode(0);
// Display warning for floating point exception
ieee(1);
clc;
disp("Principles of Heat Transfer, 7th Ed. Frank Kreith et. al Chapter - 2 Example # 2.7 ")
//Thermal conductivity of alumunium in W/mK
k = 200;
//Outer radius of system in m
ro = 5.5/200;
//Inner radius of system in m
ri = 2.5/200;
//Thickness of fin in m
t = 0.1/100;
//Temperature of pipe in degree C
Ts = 100;
//Temperature of surrounding in degree C
Tinfinity = 25;
//Heat transfer coefficient in W/m2K
h = 65;
//calculating fin efficiency
//From Fig. 2.22 on page 103, the fin efficiency is found to be 91%.
//Area of fin
A = (2*%pi)*((ro+t/2)^2-ri*ri);
disp("The rate of heat loss from a single fin in W is")
//The rate of heat loss from a single fin in W
q = ((0.91*h)*A)*(Ts-Tinfinity)
|
