summaryrefslogtreecommitdiff
path: root/965/CH4/EX4.1/1.sci
blob: 962b43411f550db87531c989d07076f5a6078876 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
clc;
clear all;
disp("required time calculation")
As=2*0.5*0.5;// m^2 surface area of plate
V=0.5*0.5*0.00625;// m^3 volume of plate
Lc=V/As;// m characteristic length of plate
h=90; //W/m^2/C
k=370;//W/m.C
rho=9000;// kg/m^3
C=380;//J/kg.C
t=108;// degree C
ta= 36;// degree C
ti=300;// degree C
Bi=h*Lc/k;// biot number
if (Bi< 0.1)
disp("Bi is less than 0.1 hence lumped heat capacity method can be applied")
disp("Temperature distribution is given by : (t-ta)/(ti-ta) = exp((-h*As*tau)/rho*V*C)")
m=(t-ta)/(ti-ta);
x=-h*As/(V*rho*C);
disp("sunstituting the values we get,")
tau = (log(m))/x;
disp("sec",tau,"time required to attend the temperature is ")