summaryrefslogtreecommitdiff
path: root/3821/CH10/EX10.15/Example10_15.sce
blob: eaf5374498019a84a6dcdcbcc38cb5756372ffaf (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
/////////Chapter 10 Properties Of Steam
///Example 15 Page No:197
///Find Enthalpy of wet steam
///Input data
clc;
clear;
P=15;          ///Absolute pressure in bar
///From steam table (pressure basis at 15 bar)
h=1950;       //In KJ/Kg
ts=198.3;     //In degreee celsius
hf=844.7;     //In KJ/Kg
hfg=1945.2;   //In KJ/Kg
hg=2789.9;    //In KJ/Kg

///Calculation
x=((h-hf)/hfg);  ///Enthalpy of wet steam

///Output
printf('Enthalpy of wet steam=%f \n ',x);