1 files changed, 14 insertions, 0 deletions
diff --git a/2510/CH15/EX15.20/Ex15_20.sce b/2510/CH15/EX15.20/Ex15_20.sce
new file mode 100755
index 000000000..8f0f73974
--- /dev/null
+++ b/2510/CH15/EX15.20/Ex15_20.sce
@@ -0,0 +1,14 @@
+//Variable declaration:
+Di = 0.902/12.0                     //Inside diameter of tube (ft)
+Do = 1.0/12.0                       //Outside diameter of tube (ft)
+k = 60.0                            //Thermal conductivity of tube (Btu/h.ft^2..)                         
+
+//Calculation:
+//From example 15.19:
+a = 0.00126
+Dr = (Do - Di)/2.0                  //Radial thickness of tube wall  (ft)
+Rw = Dr/k                           //Resistance of wall (Btu/h..)
+ho = 1.0/(a-Rw)                     //The revised ho (Btu/h.ft^2..)
+
+//Result:
+printf("The revised ho is : %.0f Btu/h.ft^2.. .",ho)