Steam Prog
Steam Prog
Steam Prog
This workbook contains Visual Basic functions for calculating properties of water and steam.
Functions for the following properties are available:
boiling point as a function of pressure, vapor pressure, specific volume or density, specific enthalpy,
heat capacity, viscosity, and thermal conductivity.
See Usage for an explanation of how to access the functions from within your spreadsheets.
See Reference for a list of available functions with syntax, arguments, units, and examples of use.
Note that the explanations given in this workbook relate to the use of the functions with source module sheet waterprop.
For an explanation of how to use the functions with the Add-In file water.xla see the Readme file which accompanies water
Source of equations:
Properties of Water and Steam in SI-Units,
2nd Revised and Updated Printing, Springer 1979, pp. 175 ff.
Seite 1
Info
fic enthalpy,
Seite 2
Usage
Usage
Property data are available by calling the appropriate property function using the syntax
=water.xls!waterprop.functionname(parameterlist)
If the Visual Basic module waterprop is copied from water.xls to the Excel workbook
where property data are needed the simplified syntax is
=waterprop.functionname(parameterlist)
Seite 3
P= 20 bar P 5.5
Ts = #VALUE! K =boilp(B2) Ts ###
Ts = #VALUE! deg-C =B3-273.15 Vs ###
Sp. Vol Air = #VALUE! cu-m/kg =vsub1(B3,B2) (uap)
Densitas Air = #VALUE! kg/cu-m =1/B5
Sp. Vol Uap = #VALUE! cu-m/kg =vsub2(B3,B2)
Densitas Uap = #VALUE! kg/cu-m =1/B7
Enth Air = #VALUE! kJ/kg =hsub1(B3,B2)
Enth Uap = #VALUE! kJ/kg =hsub2(B3,B2)
En Dalam Air = #VALUE! kJ/kg =B9-B2*B5*100000/1000
En Dalam Uap = #VALUE! kJ/kg =B10-B2*B7*100
Viscositas Air = #VALUE! kg/(m.s) =ETAF(B3,B5)*0.000001
Viscositas Uap = #VALUE! kg/(m.s) =ETAF(B3,B7)*0.000001
1.230391E-06
Bar
K
P 5.5 Bar
#VALUE! K
#VALUE!
3.027E+022
1.518E-36
1.203694E-71 3.027E+022
5.266458E+33
1.898809E-34
1.898809E-34
1.377973E-17
1.102378E-16
Dasar Sumur
P= 20 bar
Ts = #VALUE! K =boilp(B2)
Ts = #VALUE! deg-C =B3-273.15
Sp. Vol Air = #VALUE! cu-m/kg =vsub1(B3,B2)
Densitas Air = #VALUE! kg/cu-m =1/B5
Sp. Vol Uap = #VALUE! cu-m/kg =vsub2(B3,B2)
Densitas Uap = #VALUE! kg/cu-m =1/B7
Enth Air = #VALUE! kJ/kg =hsub1(B3,B2)
Enth Uap = #VALUE! kJ/kg =hsub2(B3,B2)
En Dalam Air = #VALUE! kJ/kg =B9-B2*B5*100000/1000
En Dalam Uap = #VALUE! kJ/kg =B10-B2*B7*100
Viscositas Air = #VALUE! kg/(m.s) =ETAF(B3,B5)*0.000001
Viscositas Uap = #VALUE! kg/(m.s) =ETAF(B3,B7)*0.000001
WHP
P= 16 bar
Ts = #VALUE! K =boilp(B2)
Ts = #VALUE! deg-C =B3-273.15
Sp. Vol Air = #VALUE! cu-m/kg =vsub1(B3,B2)
Densitas Air = #VALUE! kg/cu-m =1/B5
Sp. Vol Uap = #VALUE! cu-m/kg =vsub2(B3,B2)
Densitas Uap = #VALUE! kg/cu-m =1/B7
Enth Air = #VALUE! kJ/kg =hsub1(B3,B2)
Enth Uap = #VALUE! kJ/kg =hsub2(B3,B2)
En Dalam Air = #VALUE! kJ/kg =B9-B2*B5*100000/1000
En Dalam Uap = #VALUE! kJ/kg =B10-B2*B7*100
Viscositas Air = #VALUE! kg/(m.s) =ETAF(B3,B5)*0.000001
Viscositas Uap = #VALUE! kg/(m.s) =ETAF(B3,B7)*0.000001
Kondisi Isentalpi Jika "h" diketahui
Tdasar sumur 34.5 hg2-hf2 = #VALUE! x2 = #VALUE! #VALUE!
hf2 = #VALUE!
h= 1087
x1 = 0
hg1-hf1 = #VALUE!
hf1 = #VALUE!
x1 * hfg1 = #VALUE!
x1 = #VALUE! #VALUE!
x2 = #VALUE!
P= 20 bar Panjang Δl
Ts = #VALUE! K Alir Massa m
Ts = #VALUE! deg-C Diameter di
Sp. Vol Air = #VALUE! cu-m/kg Tekanan P
Densitas Air = #VALUE! kg/cu-m Viskositas μs
Sp. Vol Uap = #VALUE! cu-m/kg Entalpi Air hf
Densitas Uap = #VALUE! kg/cu-m Entalpi Uap hg
Enth Air = #VALUE! kJ/kg Panas Laten hgf
Enth Uap = #VALUE! kJ/kg Volume Spesifik Vs
En Dalam Air = #VALUE! kJ/kg Kekasaran Pipa E
En Dalam Uap = #VALUE! kJ/kg
Viscositas Air = #VALUE! kg/(m.s)
Viscositas Uap = #VALUE! kg/(m.s)
Laju Alir
Luas A= 0.183 m Faktor Friksi
Kec Alir Uap Vs = #VALUE! Kg/det (8/Re)^12
(A+B)^3/2
Re 1/F20
Laju Alir Vs = #VALUE! kg/det (F21+F18)^(1/12)
Diameter di = 0.483 m λ=
Volum Spesifik vs = #VALUE! cu-m/kg
Viskositas μs = #VALUE! kg/(m.s)
Re = #VALUE!
A Hilang Tekanan
(7/Re)^2 = #VALUE! λ=
E 0.00005 Δl =
dl 0.483 di =
(0.27*E/dl) 2.79503E-05 Vs =
ln(1/(B32+B29)) #VALUE! vs =
A= #VALUE!
dP
B
B= #VALUE!
Laju Alir
Luas A= 0.183 m
Kec Alir Uap Vs = #VALUE! Kg/det
Re
Laju Alir Vs = #VALUE! kg/det
Diameter di = 0.483 m
Volum Spesifik vs = #VALUE! cu-m/kg
Viskositas μs = #VALUE! kg/(m.s)
Re = #VALUE!
A
(7/Re)^2 = #VALUE!
E 0.00005
dl 0.483
(0.27*E/dl) 2.79503105590062E-05
ln(1/(B32+B29)) #VALUE!
A= #VALUE!
B
B= #VALUE!
Panjang Δl 10 m Δl (m)
Alir Massa m 40 kg/det 1000
Diameter di 0.483 m 1000
Tekanan P 5.5 bar 1000
Viskositas μs #VALUE! kg/(m.s) 1000
Entalpi Air hf #VALUE! kJ/kg 1000
Entalpi Uap hg #VALUE! kJ/kg 1000
Panas Laten hgf #VALUE! kJ/kg 1000
Volume Spesifik Vs #VALUE! cu-m/kg 1000
Kekasaran Pipa E 0.00005 m 1000
1000
1000
1000
1000
1000
1000
Faktor Friksi
(8/Re)^12 #VALUE!
(A+B)^3/2 #VALUE!
1/F20 #VALUE!
(F21+F18)^ #VALUE!
λ= #VALUE!
Hilang Tekanan
λ= #VALUE!
Δl = 10
di = 0.483
Vs = #VALUE!
vs = #VALUE!
dP #VALUE! Bar
λ di m vs A Vs
#VALUE! 0.30 48.3 #VALUE! 0.071 #VALUE!
#VALUE! 0.35 48.3 #VALUE! 0.096 #VALUE!
#VALUE! 0.40 48.3 #VALUE! 0.126 #VALUE!
#VALUE! 0.45 48.3 #VALUE! 0.159 #VALUE!
#VALUE! 0.50 48.3 #VALUE! 0.196 #VALUE!
#VALUE! 0.55 48.3 #VALUE! 0.237 #VALUE!
#VALUE! 0.60 48.3 #VALUE! 0.283 #VALUE!
#VALUE! 0.65 48.3 #VALUE! 0.332 #VALUE!
#VALUE! 0.70 48.3 #VALUE! 0.385 #VALUE!
#VALUE! 0.75 48.3 #VALUE! 0.442 #VALUE!
#VALUE! 0.80 48.3 #VALUE! 0.502 #VALUE!
#VALUE! 0.85 48.3 #VALUE! 0.567 #VALUE!
#VALUE! 0.90 48.3 #VALUE! 0.636 #VALUE!
#VALUE! 0.95 48.3 #VALUE! 0.708 #VALUE!
#VALUE! 1.00 48.3 #VALUE! 0.785 #VALUE!
Pressure Drop Tekanan
#VALUE! 5.5
#VALUE! 5.5
#VALUE! 5.5
#VALUE! 5.5
#VALUE! 5.5
#VALUE! 5.5
#VALUE! 5.5
#VALUE! 5.5
#VALUE! 5.5
#VALUE! 5.5
#VALUE! 5.5
#VALUE! 5.5
#VALUE! 5.5
#VALUE! 5.5
#VALUE! 5.5
Kondisi Tekanan Uap Air ketika masuk Turbin
#VALUE!
#VALUE!
#VALUE!
#VALUE!
#VALUE!
#VALUE!
#VALUE!
#VALUE!
#VALUE!
#VALUE!
#VALUE!
#VALUE!
#VALUE!
#VALUE!
#VALUE!
Reference
Reference
Available functions:
a) Usage: waterprop.BOILP(P)
2. Vapor pressure
a) Usage: waterprop.VAPP(T)
b) Argument(s): T temperature in K
a) Usage: waterprop.VSUB1(T; P)
b) Argument(s): T temperature in K
P pressure in bar
a) Usage: waterprop.VSUB2(T; P)
b) Argument(s): T temperature in K
P pressure in bar
Seite 19
Reference
a) Usage: waterprop.HSUB1(T; P)
b) Argument(s): T temperature in K
P pressure in bar
a) Usage: waterprop.HSUB2(T; P)
b) Argument(s): T temperature in K
P pressure in bar
7. Heat capacity
b) Argument(s): T temperature in K
P pressure in bar
IAG state: 1 for liquid water, 2 for steam
Seite 20
Reference
8. Dynamic viscosity
a) Usage: waterprop.ETAF(T; V)
b) Argument(s): T temperature in K
V specific volume in m3/kg
9. Thermal conductivity
a) Usage: waterprop.TCON(T; V)
b) Argument(s): T temperature in K
V specific volume in m3/kg
Seite 21
Reference
OILP(1)-273.15
VSUB1(293.15; 1)
Seite 22
Reference
UB2(waterprop.BOILP(5);5)
SUB1(293.15; 1)
SUB2(waterprop.BOILP(5);5)
Seite 23
Reference
CAP(293.15;1;1)
TAF(293.15; waterprop.VSUB1(293.15;1))
CON(BOILP(5); waterprop.VSUB2(BOILP(5);5))
Seite 24
Tekanan Tsk Tsc h hf hg
40 #VALUE! #VALUE! 1087.4 #VALUE! #VALUE!
39.999000 #VALUE! #VALUE! 1087.4 #VALUE! #VALUE!
38.0 #VALUE! #VALUE! 1087.4 #VALUE! #VALUE!
37.0 #VALUE! #VALUE! 1087.4 #VALUE! #VALUE!
36.0 #VALUE! #VALUE! 1087.4 #VALUE! #VALUE!
35.0 #VALUE! #VALUE! 1087.4 #VALUE! #VALUE!
34.0 #VALUE! #VALUE! 1087.4 #VALUE! #VALUE!
33.0 #VALUE! #VALUE! 1087.4 #VALUE! #VALUE!
32.0 #VALUE! #VALUE! 1087.4 #VALUE! #VALUE!
31.0 #VALUE! #VALUE! 1087.4 #VALUE! #VALUE!
30.0 #VALUE! #VALUE! 1087.4 #VALUE! #VALUE!
29.0 #VALUE! #VALUE! 1087.4 #VALUE! #VALUE!
28.0 #VALUE! #VALUE! 1087.4 #VALUE! #VALUE!
27.0 #VALUE! #VALUE! 1087.4 #VALUE! #VALUE!
26.0 #VALUE! #VALUE! 1087.4 #VALUE! #VALUE!
25.0 #VALUE! #VALUE! 1087.4 #VALUE! #VALUE!
24.0 #VALUE! #VALUE! 1087.4 #VALUE! #VALUE!
23.0 #VALUE! #VALUE! 1087.4 #VALUE! #VALUE!
22.0 #VALUE! #VALUE! 1087.4 #VALUE! #VALUE!
21.0 #VALUE! #VALUE! 1087.4 #VALUE! #VALUE!
20.0 #VALUE! #VALUE! 1087.4 #VALUE! #VALUE!
19.0 #VALUE! #VALUE! 1087.4 #VALUE! #VALUE!
18.0 #VALUE! #VALUE! 1087.4 #VALUE! #VALUE!
17.0 #VALUE! #VALUE! 1087.4 #VALUE! #VALUE!
16.0 #VALUE! #VALUE! 1087.4 #VALUE! #VALUE!
15.0 #VALUE! #VALUE! 1087.4 #VALUE! #VALUE!
14.0 #VALUE! #VALUE! 1087.4 #VALUE! #VALUE!
13.0 #VALUE! #VALUE! 1087.4 #VALUE! #VALUE!
12.0 #VALUE! #VALUE! 1087.4 #VALUE! #VALUE!
11.0 #VALUE! #VALUE! 1087.4 #VALUE! #VALUE!
10.0 #VALUE! #VALUE! 1087.4 #VALUE! #VALUE!
9.0 #VALUE! #VALUE! 1087.4 #VALUE! #VALUE!
8.0 #VALUE! #VALUE! 1087.4 #VALUE! #VALUE!
7.0 #VALUE! #VALUE! 1087.4 #VALUE! #VALUE!
6.0 #VALUE! #VALUE! 1087.4 #VALUE! #VALUE!
5.0 #VALUE! #VALUE! 1087.4 #VALUE! #VALUE!
4.0 #VALUE! #VALUE! 1087.4 #VALUE! #VALUE!
3.0 #VALUE! #VALUE! 1087.4 #VALUE! #VALUE!
2.0 #VALUE! #VALUE! 1087.4 #VALUE! #VALUE!
1.0 #VALUE! #VALUE! 1087.4 #VALUE! #VALUE!
hfg x
#VALUE! #VALUE!
#VALUE! #VALUE!
#VALUE! #VALUE!
#VALUE! #VALUE!
#VALUE! #VALUE!
#VALUE! #VALUE!
#VALUE! #VALUE!
#VALUE! #VALUE!
#VALUE! #VALUE!
#VALUE! #VALUE!
#VALUE! #VALUE!
#VALUE! #VALUE!
#VALUE! #VALUE!
#VALUE! #VALUE!
#VALUE! #VALUE!
#VALUE! #VALUE!
#VALUE! #VALUE!
#VALUE! #VALUE!
#VALUE! #VALUE!
#VALUE! #VALUE!
#VALUE! #VALUE!
#VALUE! #VALUE!
#VALUE! #VALUE!
#VALUE! #VALUE!
#VALUE! #VALUE!
#VALUE! #VALUE!
#VALUE! #VALUE!
#VALUE! #VALUE!
#VALUE! #VALUE!
#VALUE! #VALUE!
#VALUE! #VALUE!
#VALUE! #VALUE!
#VALUE! #VALUE!
#VALUE! #VALUE!
#VALUE! #VALUE!
#VALUE! #VALUE!
#VALUE! #VALUE!
#VALUE! #VALUE!
#VALUE! #VALUE!
#VALUE! #VALUE!