summaryrefslogtreecommitdiff
path: root/686/CH4/EX4.3/Ex4_3.sci
blob: 4029835820006b4f3622c519e845b8187e031abd (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
clc();
clear

// To find the time required for the billet to remain in the oven  

A = 2;                                // Length of steel billet in ft
B = 2;                                // Breadth of billet in ft
C = 4;                                // Height of billet in ft
To = 70;                              // Initial temperature of billet n F
Tf = 750;                             // Maximum temp. of billet in F
T = 700;                              // Temperature for which time has to be found out
k = 25;                               // Thermal conductivity in Btu/hr-ft^2-F
a = 0.57;                             // Thermal diffusivity in ft^2/hr
h = 100;                              // Heat transfer coeff. in Btu/hr-ft

BiA = h*A/k;                          // Biot number
BiB = h*B/k;                          
BiC = h*C/k;
t = 1.53;                            // Assumed temperature in F
s1 = a*t/A^2;                         // Parameters
s2 = a*t/B^2;
s3 = a*t/C^2;

// Seeing the values of Bi and s and comparing from the table 

// T/Toa=0.302 and T/Tob=0.805 and (T/Toa)^2*T/Toc=0.0735

printf("The time required for the centre temperature to reach 700 F under the conditions specified in the problem is t=%.2f hr",t);