summaryrefslogtreecommitdiff
path: root/2705/CH10/EX10.5/Ex10_5.sce
blob: e7086049ab375a9b14abc0609d85356e7791c046 (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
30
31
clear;
clc;
disp('Example 10.5');

//aim : To determine 
// the flow rate of cooling water

//Given values
P=24;//pressure, [kN/m^2]
ms_dot=1.8;//steam condense rate,[tonne/h]
x=.98;//dryness fraction
T1=21;//entrance temperature of cooling water,[C]
T2=57;//outlet temperature of cooling water,[C]

//solution
//at 24 kN/m^2, for steam
hfg=2616.8;//[kJ/kg]
hf1=268.2;//[kJ/kg]
//hence
h1=hf1+x*(hfg-hf1);//[kJ/kg]

//for cooling water
hf3=238.6;//[kJ/kg]
hf2=88.1;//[kJ/kg]

//using equation [3]
//ms_dot*(hf3-hf2)=mw_dot*(h1-hf1),so
mw_dot=ms_dot*(h1-hf1)/(hf3-hf2);//[tonne/h]
disp('tonne/h',mw_dot,'The flow rate of the cooling water is =')

//End