diff options
Diffstat (limited to '2510/CH9/EX9.11/Ex9_11.sce')
-rwxr-xr-x | 2510/CH9/EX9.11/Ex9_11.sce | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/2510/CH9/EX9.11/Ex9_11.sce b/2510/CH9/EX9.11/Ex9_11.sce new file mode 100755 index 000000000..b37c3251d --- /dev/null +++ b/2510/CH9/EX9.11/Ex9_11.sce @@ -0,0 +1,21 @@ +//Variable declaration: +P = 1.0132 * 10**5 //Air pressure (Pa) +T = 300.0+273.0 //Air temperature (K) +V = 5.0 //Air flow velocity (m/s) +D = 2.54/100.0 //Diameter of tube (m) +R = 287.0 //Gas constant (m^2/s^2.K) +//From Appendix: +Pr = 0.713 //Prandtl number of nitrogen +mu = 1.784*10**(-5) //Dynamic viscosity of nitrogen (kg/m.s) +k = 0.0262 //Thermal conductivity of nitrogen (W/m.K) +Cp = 1.041 //Heat capacity of nitrogen (kJ/kg.K) + +//Calculation: +p = P/(R*T) //Density of air +Re = D*V*p/mu //Reynolds number +//From table 9.5: +Nu = 0.023*(Re**0.8)*(Pr**0.3) //Nusselt number +h = (k/D)*Nu //Heat transfer coefficient (W/m^2.K) + +//Result: +printf("The required Heat transfer coefficient is : %.2f W/m^2.K.",h) |