1 files changed, 15 insertions, 0 deletions
diff --git a/2510/CH17/EX17.4/Ex17_4.sce b/2510/CH17/EX17.4/Ex17_4.sce
new file mode 100755
index 000000000..87c3206d3
--- /dev/null
+++ b/2510/CH17/EX17.4/Ex17_4.sce
@@ -0,0 +1,15 @@
+//Variable declaration:
+L = 3.0*0.0254                  //Height of fin (m)
+t = 1.0*0.0254                  //Thickness of fin (m)
+h = 15.0                        //Heat transfer coefficient (W/m^2.K)
+k = 300.0                       //Thermal conductivity (W/m.K)
+
+//Calculation:
+Lc = L + t/2.0                  //Corrected height of fin (m)
+Ap = Lc*t                       //Profile area of fin (m^2)
+x = sqrt((Lc**3*h)/(k*Ap))      //x-coordinate of figure 17.3
+//From figure 17.3:
+nf = 98.0                       //Fin efficiency
+
+//Result:
+printf("The fin efficiency is : %f %%",nf)