1 files changed, 22 insertions, 0 deletions
diff --git a/2510/CH10/EX10.7/Ex10_7.sce b/2510/CH10/EX10.7/Ex10_7.sce
new file mode 100755
index 000000000..ba85adbcb
--- /dev/null
+++ b/2510/CH10/EX10.7/Ex10_7.sce
@@ -0,0 +1,22 @@
+//Variable declaration:
+Ts = 120.0+460                  //Surface temperature of plate (°R)
+Too = 60.0+460                  //Ambient temperature of nitrogen (°R)
+L = 6                           //Height of plate (ft)
+//From Appendix:
+p = 0.0713                      //Air density (lb/ft^3)
+k = 0.01514                     //Thermal conductivity (Btu/h.ft.°F)
+v = 16.82*10**-5                //Kinematic viscosity (ft^2/s)
+Pr = 0.713                      //Prandtl number
+g = 32.2                        //Gravitational acceleration (ft/s^2)
+
+//Calculation:
+Tf = (Ts+Too)/2                 //Mean film temperature (°R)
+B = 1.0/Tf                      //Coefficient of expansion (°R^-1)
+Gr = g*B*(Ts-Too)*L**3/v**2     //Grashof number
+Ra = Gr*Pr                      //Rayleigh number
+//From equation 10.13(Table 10.2) and costants from Table 10.1:
+h = 0.10*(k/L)*Ra**(1.0/3.0)    //Free convection heat transfer coefficient (Btu/h.ft^2.°F)
+
+//Result:
+printf("The free convection heat transfer coefficient is : %.3f Btu/h.ft^2.°F .",h)
+printf("There is a calculation mistake in the book for calculating Gr, so, value of h alters from that given.")