2144/CH6/EX6.14/ex6_14.sce


1
2
3
4
5
6
7
8
9
10
11
12

// Exa 6.14
clc;
clear;
close;
// Given data
P1 = 14;// in bar
P2 = 1.2;// in bar
h_f1 = 830;
h_fg1 = 1958;
h_g2 = 2684.9;
x = (h_g2-h_f1)/h_fg1;
disp(x,"Dryness fraction of steam is");