PROPRIETARY MATERIAL. © 2020 McGraw-Hill Education. Limited distribution permitted only to teachers and educators for course preparation. If
you are a student using this Manual, you are using it without permission.
++++
−−=
+T
k
lh
TTTT
k
lh
Tiiiii 2
9758
2
1
822241
Node 9:
( ) ( ) ( ) ( )
t
TT
xc
y
y
TT
xk
x
TT
y
kTTxh
ii
p
iiii
i
−
=
−
+
−
+−
+
9
1
99698
92 22
2
+++
−−=
+T
k
lh
TTT
k
lh
Tiiii 2
869
2
1
9222241
The unknown nodal temperatures are found by running the following EES program.
“Given”
l = 0.1 [m] “mesh size”
alpha = 3.91e-6 “Thermal diffusivity [m^2/s]”
DELTAt = 10 [s] “Time step”
k = 120 [W/moC] “Thermal conductivity”
h_1 = 10 [W/m^2oC] “Convective heat transfer coefficient of air”
h_2 = 100 [W/m^2oC] “Convective heat transfer coefficient of water“
T_infi = 15 [C] ” Ambient temperature”
tau = (alpha*DELTAt)/l^2 “Mesh Fourier number”
“The technique is to store the temperatures in the parametric table and recover them (as old temperatures) using
the variable ROW. The first row contains the initial values so Solve Table must begin at row 2. Use the
DUPLICATE statement to reduce the number of equations that need to be typed. Column 1 contains the time,
column 2 the value of T[1], column 3, the value of T[2], etc., and column 9 the Row.
To start the Solve Table at 2 go to ‘Calculate’ and select ‘Solve table’ (or hit F3) and make the ‘First Run
Number’ as 2. The initial temperatures and the initial time ‘0’ can be set manually in the parametric table”
Row = TableRun#
Time = TableValue(‘Table 1′,Row-1,#Time)+DELTAt
Duplicate i=1,9
T_old[i] = TableValue(‘Table 1′,Row-1,#T[i])
end
“Finite difference formulation”
“Node 1” T[1] = (1-4*tau-2*tau*(h_1+h_2)*l/k)*T_old[1]+2*tau*(T_old[4]+T_old[2]+(h_1+h_2)*l*T_infi/k)
“Node 2” T[2] = (1-4*tau-2*tau*h_1*l/k)*T_old[2]+tau*(T_old[1]+T_old[3]+2*T_old[5]+2*h_1*l*T_infi/k)
“Node 3” T[3] = (1-4*tau-2*tau*h_1*l/k)*T_old[3]+tau*(2*T_old[2]+2*T_old[6]+2*h_1*l*T_infi/k)
“Node 4” T[4] = (1-4*tau-2*tau*h_2*l/k)*T_old[4] + tau*(T_old[1]+T_old[7]+2*T_old[5]+2*h_2*l*T_infi/k)
“Node 5” T[5] = (1-4*tau)*T_old[5]+tau*(T_old[2]+T_old[4]+T_old[6]+T_old[8])
“Node 6” T[6] = (1-4*tau)*T_old[6]+tau*(2*T_old[5]+T_old[3]+T_old[9])
“Node 7” T[7] = (1-4*tau-4*tau*h_2*l/k)*T_old[7]+2*tau*(T_old[4]+T_old[8]+2*h_2*l*T_infi/k)
“Node 8” T[8] = (1-4*tau-2*tau*h_2*l/k)*T_old[8]+tau*(T_old[7]+T_old[9]+2*T_old[5]+2*h_2*l*T_infi/k)
“Node 9” T[9] = (1-4*tau-2*tau*h_2*l/k)*T_old[9]+tau*(2*T_old[8]+2*T_old[6]+2*h_2*l*T_infi/k)
Temperature distribution in the copper alloy block after 10 min is as follows,