summaryrefslogtreecommitdiff
path: root/3821/CH10/EX10.28/Example10_28.sce
blob: d8eedce5498fc7eee25df8dd6e38d975e47b1809 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
/////////Chapter 10 Properties Of Steam
///Example 10.28 Page No:209
///Enthalpy after throttling
//Input data
clc;
clear;
P1=12;           //Throttled steam
x1=0.96;         //Dryness is brottled
x2=1;            //Constant enthalpy process
//From steam table at12 bar
ts=188;          //In degree celsius
hf=798.4;        //In KJ/Kg
hfg=1984.3;      //In KJ/Kg
hg=2782.7;       //In KJ/Kg


//Calculation
h1=hf+x1*hfg;    //Enthalpy of the steam  in KJ/Kg    
h2=h1;           //Enthalpy after throttling in KJ/Kg   

///Output
printf('Enthalpy of the steam=%f KJ/Kg \n ',h1);
printf('Enthalpy after throttlin= %f KJ/Kg \n',h2);