summaryrefslogtreecommitdiff
path: root/530/CH7/EX7.3/example_7_3.sce
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /530/CH7/EX7.3/example_7_3.sce
downloadScilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip
initial commit / add all books
Diffstat (limited to '530/CH7/EX7.3/example_7_3.sce')
-rwxr-xr-x530/CH7/EX7.3/example_7_3.sce29
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)