blob: e59ff90480ad135f67e1c2531bb95f4b9a61d4e8 (
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
40
41
42
43
44
|
//Transport Processes and Seperation Process Principles
//Chapter 5
//Example 5.2-1
//Principles of Unsteady State Heat Transfer
//given data
//english units
r=1/12;//radius
x1=r/3;//ratio of volume to area
h=2;//convective coefficient
k=25;//thermal conductivity
Bi=(h*x1)/k;//biot number
Cp=0.11;//specific heat
rho=490;//density
if(Bi<0.1)
M=h/(Cp*rho*x1);
Tinf=250;//constant temp
T0=800;//initial temp
t=1;
T=((T0-Tinf)*((2.718)^(-M*t)))+Tinf;//solving arhenius equation
mprintf("the temp in english units %f deg F",T)
else
mprintf("some other method must be employed")
end
//si units
rsi=25.4/1000;
x1si=rsi/3;
hsi=11.36;
ksi=43.3;
Bisi=(hsi*x1si)/ksi;
Cpsi=0.4606*1000;
rhosi=7849;
if(Bisi<0.1)
Msi=hsi/(Cpsi*rhosi*x1si);
Tinfsi=394.3;
T0si=699.9;
tsi=3600;
Tsi=((T0si-Tinfsi)*((2.718)^(-Msi*tsi)))+Tinfsi;//solving arhenius equation
mprintf(" the temp in si units %f deg K",Tsi)
else
mprintf("some other method must be employed")
end
|
