summaryrefslogtreecommitdiff
path: root/3843/CH7/EX7.4/Ex7_4.sce
blob: 3b1c6c652eea9503e0fe643a4ec5b143377b07df (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
// Example 7_4
clc;funcprot(0);
// Given data
x=0.85;// The quality of steam
P=5;// kPa
T_0=298;// K

// Calculation
// From steam tables
h_1=2197.2;// kJ/kg
h_2=136.5;// kJ/kg
s_1=7.2136;// kJ/kg.K
s_2=0.4717;// kJ/kg.K
dX=(h_1-h_2)-(T_0*(s_1-s_2));// The amount of useful work wasted in the condenser in kJ/kg
printf("\nThe amount of useful work wasted in the condenser,X_2-X_1=%2.1f kJ/kg",dX);