1 files changed, 15 insertions, 0 deletions
diff --git a/2510/CH10/EX10.4/Ex10_4.sce b/2510/CH10/EX10.4/Ex10_4.sce
new file mode 100755
index 000000000..5478014c7
--- /dev/null
+++ b/2510/CH10/EX10.4/Ex10_4.sce
@@ -0,0 +1,15 @@
+//Variable declaration:
+//From Table 10.1:
+c = 0.1                             //Constant c
+m = 1.0/3.0                         //Constant for turbulent free conection
+//From example 10.2:
+Ra = 1.71*10**11                    //Rayleigh number
+k = 0.029                           //Thermal conductivity (W/m.K)
+L = 3.5                             //Thickness of plate (m)
+
+//Calculation:
+Nu = c*Ra**m                        //Average Nusselt number
+h = Nu*k/L                          //Average heat transfer coefficient (W/m^2.K)
+
+//Result:
+printf("The average heat transfer coefficient is : %.1f W/m^2.K .",h)