summaryrefslogtreecommitdiff
path: root/3831/CH11/EX11.2/Ex11_2.sce
blob: 5456fc8eadaa1a2c1e8025cb5d4973a54b773a7a (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
// Example 11_2
clc;funcprot(0);
// Given data
p=200;// psia
T=400;// °F

// Solution
// From Table C.3a in Thermodynamic Tables to accompany Modern Engineering Thermodynamics, we find that, at this state,
u=1123.5;// Btu/lbm
h=1210.8;// Btu/lbm
s=1.5602;// Btu/lbm.R
f=u-((T+459.67)*s);// Btu/lbm
g=h-((T+459.67)*s);// Btu/lbm
printf("\nThe value of the specific Helmholtz function for superheated water vapor,f=%3.0f Btu/lbm \nThe value of the specific Gibbs function for superheated water vapor,g=%3.0f Btu/lbm",f,g);