1 files changed, 29 insertions, 0 deletions
diff --git a/530/CH7/EX7.3/example_7_3.sce b/530/CH7/EX7.3/example_7_3.sce
new file mode 100755
index 000000000..617dd51de
--- /dev/null
+++ b/530/CH7/EX7.3/example_7_3.sce
@@ -0,0 +1,29 @@
+clear;
+clc;
+
+// A Textbook on HEAT TRANSFER by S P SUKHATME
+// Chapter 7
+// Heat Exchangers
+
+
+// Example 7.3
+// Page 295
+printf("Example 7.3, Page 295 \n \n");
+
+// Because of change of phase , Thi = The
+Thi = 100 ; // [C], Saturated steam
+The = 100 ; // [C], Condensed steam
+Tci = 30 ; // [C], Cooling water inlet
+Tce = 70 ; // [C], cooling water outlet
+
+R = (Thi-The)/(Tce-Tci) ;
+S = (Tce-Tci)/(Thi-Tci) ;
+
+// From fig 7.16
+F = 1;
+
+// For counter flow arrangement
+Tm_counter = ((Thi-Tce)-(The-Tci))/log((Thi-Tce)/(The-Tci)); // [C]
+// Therefore
+Tm = F*Tm_counter ;
+printf("Mean Temperaature Difference = %f C",Tm)