summaryrefslogtreecommitdiff
path: root/530/CH7/EX7.3/example_7_3.sce
blob: 617dd51de6e06d895b05f8fd46c6de4795c35589 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
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)