summaryrefslogtreecommitdiff
path: root/2705/CH4/EX4.16/Ex4_16.sce
blob: 895917d3a2ec5a3480c987f56b1ea8eda5e922ab (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
clear;
clc;
disp('Example 4.16');

//  aim : To determine 
//  the minimum dryness fraction of steam

//  Given values
P1 = 1.8;//  testing pressure,[MN/m^2]
P2 = .11;//  pressure after throttling,[MN/m^2]

//  solution
//  from steam table
//  at .11 MN/m^2 steam is completely dry and specific enthalpy is
hg = 2680;//  [kJ/kg]

//  before throttling steam is wet, so specific enthalpy is=hf+x*hfg, where x is dryness fraction
//  from steam table
hf = 885;//  [kJ/kg]
hfg = 1912;//  [kJ/kg]

//  now for throttling process,specific enthalpy will same before and after
//  hence
x = (hg-hf)/hfg;
mprintf('\n The minimum dryness fraction of steam is x  =  %f \n',x);

//  End