PROBLEM 12.78 (Cont.)
// Radiative Properties Tool – Band Emission Fraction
FL1Tf = F_lambda_T(lambda1,Tf) // Eq 12.34
// Assigned Variables:
D = 0.010 // Cylinder diameter, m
lambda1 = 4 // Wavelength, mum
// Correlations Tool – Free Convection, Cylinder, Horizontal:
NuDbar = NuD_bar_FC_HC(RaD,Pr) // Eq 9.34
// Properties Tool – Nitrogen: Lookup Table Function “nitrog”
nu = lookupval (nitrog, 1, Tff, 2)
k = lookupval (nitrog, 1, Tff, 3)
alphan = lookupval (nitrog, 1, Tff, 4)
Pr = lookupval (nitrog, 1, Tff, 5)
beta = 1 / Tff
/* Lookup table function, nitrog; from Table A.4 1 atm):
Columns: T(K), nu(m^2/s), k(W/m.K), alpha(m^2/s), Pr
300 1.586E-5 0.0259 2.21E-5 0.716
400 2.616E-5 0.0327 3.71E-5 0.704
500 3.824E-5 0.0389 5.47E-5 0.7
600 5.179E-5 0.0446 7.39E-5 0.701
800 8.29E-5 0.0548 0.000116 0.715
1000 0.0001187 0.0647 0.000165 0.721 */