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/60
Duplicate i = 0,7
T_old[i] = TableValue(‘Table 1′, Row-1, #T[i])
End
” Finite difference equations”
“Node 0” 2*T[1]-2*T[0]+e_gen*DELTAx^2/k_1 = (T[0] – T_old[0])/tau_1
“Node 1” T[0]-2*T[1]+T[2]+e_gen*DELTAx^2/k_1 = (T[1] – T_old[1])/tau_1
“Node 2” T[1]-2*T[2]+T[3]+e_gen*DELTAx^2/k_1 = (T[2] – T_old[2])/tau_1
“Node 3” T[2]-2*T[3]+T[4]+e_gen*DELTAx^2/k_1 = (T[3] – T_old[3])/tau_1
“Node 4” T[3]-2*T[4]+T[5]+e_gen*DELTAx^2/k_1 = (T[4] – T_old[4])/tau_1
“Node 5” k_1*(T[4]-T[5])/DELTAx + k_2*(T[6]-T[5])/DELTAx+e_gen*(DELTAx/2) =
1/2*(((rho_1*c_1*DELTAx)/DELTAt)+(((rho_2*c_2*DELTAx)/DELTAt)))*(T[5]-T_old[5])
“Node 6” T[5]-2*T[6]+T[7] = (T[6] – T_old[6])/tau_2
“Node 7” 2*(T[6]-T[7])+2*DELTAx*h/k_2*(T_infi-T[7]) = (T[7]-T_old[7])/tau_2
Temperature distribution in the fuel rod and cladding at different times
Discussion In most of the practical cases, during the cooling of nuclear reactor rods, the water used for convective cooling
undergoes a phase change process that enhances the rate of heat removal from the nuclear rods. Determination of the exact
heat transfer rates to the cooling water and the estimation of pressure drop due to two– phase flow of water (as the water
undergoes phase change) are quite challenging.