blob: 56cbb136f9803b33fc2d8aa4bffe0bbb750ed1bb (
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
37
38
39
|
// 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 - 1 Example # 1.2 ")
//Thermal conductivity of window glass in W/m-K
k = 0.81;
//Height of the glass in m
h = 1;
//Width of the glass in m
w = 0.5;
//Thickness of the glass in m
t = 0.005;
//Outside temperature in C
T2 = 24;
//Inside temperature in C
T1 = 24.5;
//Assume that steady state exists and that the temperature is uniform over the inner and outer surfaces
//Cross sectional area in m2
A = h*w;
disp("Thermal resistance to conduction in K/W is")
//Thermal resistance to conduction in K/W
R = t/(k*A)
//The rate of heat loss from the interior to the exterior surface is
//obtained by dividing temperature difference from the thermal resistence
disp("Heat loss in W from the window glass is")
//Heat loss in W
q = (T1-T2)/R
|
