1 files changed, 10 insertions, 0 deletions
diff --git a/2510/CH15/EX15.21/Ex15_21.sce b/2510/CH15/EX15.21/Ex15_21.sce
new file mode 100755
index 000000000..817c8e347
--- /dev/null
+++ b/2510/CH15/EX15.21/Ex15_21.sce
@@ -0,0 +1,10 @@
+//Variable declaration:
+a1 = 0.00044                //Term 'a' for U_clean
+a2 = 0.00089                //Term 'a' for U_dirty
+
+//Calculation:
+Rs = a2 - a1                //Resistance associated with the scale
+hs = 1.0/Rs                 //Scale film coefficient (Btu/h.ft^2..)
+
+//Result:
+printf("The scale film coefficient neglecting the wall resistance is: %.0f Btu/h.ft^2.. .",hs)