blob: 0440c8aac33ceb815c31d30465c10fc19f9a9e2f (
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
|
clc;
clear all;
disp("temperation variation")
L=60/2000;//m
k=42.6;// W/(m.C)
a=0.043;// m^2/h
ti=440;// degree C
h=235;// W/(m^ 2.C)
ta=50;// degree C
tau=4.3*60;//seconds
Lc=L;// characteristic length
Fo=a*tau/Lc^2;
Bi=h*Lc/k;
if Bi>1
disp("Internal temperature gradients are not small and can not be neglected")
end
Bii=1/Bi;
x=0;// midplane
//(to-ta)/(ti-ta)=0.6
to=0.6*(ti-ta)+ta;
disp("Degree C",to,"Temperature at midplane Tm =")
x=0.015/L;
Bii=6.06;
ti=to;
//(to-ta)/(ti-ta)=0.97
to=0.97*(ti-ta)+ta;
disp("Degree C",to,"Temperature inside the plate 15mm from the midplane To =")
|
