summaryrefslogtreecommitdiff
path: root/530/CH2/EX2.13.b/example_2_13b.sce
blob: 45e73b79dc0315256c488ac226c23e80edd7220e (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
clear;
clc;

// A Textbook on HEAT TRANSFER by S P SUKHATME
// Chapter 2
// Heat Conduction in Solids

// Example 2.13(b)
// Page 73
printf("Example 2.13(b), Page 73 \n\n")

D = 0.003 ; // [m]
L = 0.03 ; // [m]
h = 10 ; // [W/m^2]
Tf = 20 ; // [C]
T1 = 120 ; // [C]


// (b) Stainless steel fin
k = 15 ; // [W/m K]

// For a circular cross section
m = [4*h/(k*D)]^(1/2);
mL = m*0.03 ;
// T at x = L
T = Tf + (T1-Tf)/cosh(m*L);
printf("mL = %f \n",mL);
printf("Temperature at the tip of fin made of steel is %f degree C \n",T);