summaryrefslogtreecommitdiff
path: root/2735/CH9/EX9.10/Ex9_10.sce
blob: f08f1c72c8bf597ed704c534a8adafaa7b04d0f4 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
clc
clear
//Initialization of variables
pb=14.696 //psia
pa=150 //psia
tb=300 //F
//calculations
disp("From steam tables,")
hb=1192.8 //Btu/lbm
ha=hb
hf=330.51 //Btu/lbm
hfg=863.6 //Btu/lbm
x=(ha-hf)/hfg
//results
printf("Quality of wet steam = %.1f percent",x*100)