blob: 7a0c1eabbba7fa708ac203eec7c1fd6aee94a7f4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
clc
//initialization of variables
P=14.7 //lb/in^2
T=80+460 //R
//calculations
disp("From steam tables,")
Ps=0.5069 //lb/in^2
v=633.1 //ft^3/lbm
Pair=P-Ps
vair=53.3*T/(144*Pair)
wair=1/(1+vair/v)
wwater=vair/v/(1+vair/v)
//results
printf("Partial pressure of air = %.1f ft^3/lbm",Pair)
printf("\n Partial pressure of water vapor = %.4f ft^3/lbm",Ps)
printf("\n Gravimetric analysis of air = %.4f",wair)
printf("\n Gravimetric analysis of water = %.4f",wwater)
|
