Hello All -
Attached find an update to the workbook I originally posted on July 24, 2017. The VBA code is open source and has been completely rewritten to make the multi-component PR1978 array calculations easy to follow. This code is available to the user for inspection and modification. User defined functions have been added for real gas Cp & Cv (including ideal gas and residual portions), Joule-Thompson coefficient and the speed of sound. A user defined function that returns the various partial derivatives of the equation of state has also been added.
Reproductions of figures 3, 4, 5 & 6 found in the original Peng-Robinson equation of state paper (reference found below) have been added to the workbook.
Example multi-component system problems have been work for:
- Rigorous single stage compressor power problem found here => http://www.jmcampbel...hortcut-method/
- Rigorous three stage compressor power with inter-stage cooling and condensate knock-out
- Constant enthalpy flash
- Joule-Thompson expansion
- Bubble temperature and dew temperature comparisons to Simulis, Hysys and experimental for the ethane-heptane system.
- A 5 tab detailed departure function example for enthalpy and entropy
-All references are provided
A partial list of user functions can be found below.
Thanks,
Steve Calderone
Partial function list:
BubbleT(named range or cell range reference of Dataset, pressure, moles, binaries used, optional kij0,optional kijT, optional guess bubble point temperature, optional errMsgs as Boolean)
Cp(named range or cell range reference of Dataset, temperature, pressure, moles, phase, binaries used, optional kij0,optional kijT, optional errMsgs as Boolean)
Cv(named range or cell range reference of Dataset, temperature, pressure, moles, phase, binaries used, optional kij0,optional kijT, optional errMsgs as Boolean)
Derivatives(named range or cell range reference of Dataset, temperature, pressure, moles, binaries used, optional kij0,optional kijT, optional returnUnits as Boolean, optional errMsgs as Boolean)
DewT(named range or cell range reference of Dataset, pressure, moles, binaries used, optional kij0,optional kijT, optional guess dew point temperature, optional errMsgs as Boolean)
Enthalpy(named range or cell range reference of Dataset, temperature, pressure, moles, phase, binaries used, optional kij0,optional kijT, optional errMsgs as Boolean)
Entropy(named range or cell range reference of Dataset, temperature, pressure, moles, phase, binaries used, optional kij0,optional kijT, optional errMsgs as Boolean)
FlashTP(named range or cell range reference of Dataset, temperature, pressure, moles, binaries used, optional kij0,optional kijT, optional errMsgs as Boolean)
Hf(named range or cell range reference of Dataset, optional errMsgs as Boolean)
HHV(named range or cell range reference of Dataset, optional errMsgs as Boolean)
Hvap1Bara(named range or cell range reference of Dataset, optional errMsgs as Boolean)
JT_Coeff(named range or cell range reference of Dataset, temperature, pressure, moles, phase, binaries used, optional kij0,optional kijT, optional errMsgs as Boolean)
LHV(named range or cell range reference of Dataset, optional errMsgs as Boolean)
PhasePhi(named range or cell range reference of Dataset, temperature, pressure, moles, phase, binaries used, optional kij0,optional kijT, optional errMsgs as Boolean)
PhaseZ(named range or cell range reference of Dataset, temperature, pressure, moles, phase, binaries used, optional kij0,optional kijT, optional errMsgs as Boolean)
SpeedOfSound(named range or cell range reference of Dataset, temperature, pressure, moles, phase, binaries used, optional kij0,optional kijT, optional errMsgs as Boolean)
Equation of State reference:
Peng Robinson Equation of State
A New Two-Constant Equation of State
Ding-Yu Peng, Donald B. Robinson
Ind. Eng. Chem. Fundamen., 1976, 15 (1), pp 59–64
DOI: 10.1021/i160057a011
Publication Date: February 1976
Equation of State reference:
Peng Robinson Equation of State
A New Two-Constant Equation of State
Ding-Yu Peng, Donald B. Robinson
Ind. Eng. Chem. Fundamen., 1976, 15 (1), pp 59–64
DOI: 10.1021/i160057a011
Publication Date: February 1976