summaryrefslogtreecommitdiff
path: root/2837/CH10/EX10.12/Ex10_12.sce
blob: b5936d4a742c80825f5adce9674b8be9d53bf09e (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
clc
clear
//Initialization of variables
disp("From table 2 of keenan and keynes,")
p1=98.87 //psia
p2=31.78 //psia
t1=80 //F
h2=26.365 //btu/lb
h1=11.554 //btu/lb
hfg=67.203 //btu/lb
//calculations
x=(h2-h1)/hfg
//results
printf("The state of vapor leaving is  %.2f psia with a quality of %.2f percent",p2,x*100)