blob: 85e657cd25bbd84d0c68a397e919d8ab84bd7d67 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
// Display mode
mode(0);
// Display warning for floating point exception
ieee(1);
clear;
clc;
disp("Introduction to heat transfer by S.K.Som, Chapter 1, Example 1")
//The temprature of two faces of the slabs are T1=40°C & T2=20°C
//The thickness of the slab(L) is 80mm or .08m
//The thermal conductivity(k)of the material is .20 W/(m*K)
T1=40;
T2=20;
L=.08;
k=.20;
//The steady state heat transfer rate per unit area through the thick slab is given by q=k(T1-T2)/L
disp ("The steady state heat transfer rate per unit area through the thick slab is given by q=k(T1-T2)/L in W/m^2 ")
q=k*(T1-T2)/L
|
