Book2.xlsm
I have never written a vBA codeor any codes
Write VBA functions to retrieve relevant data for an arbitrary species and test
them with the following cell calling sequences for carbon dioxide.
Tc(“CO2”) Critical temperature (C)
Pc(“CO2”) Critical pressure (bar)
Vc(“CO2”) Critical volume (cm/mol)
Tmin(“CO2”) Minimum temperature for the Shomate equation (C)
Tmax(“CO2”) Maximum temperature for the Shomate equation C)
(2) Write VBA function to calculate the standard heat capacity, enthalpy, and
entropy as functions of temperature for an arbitrary chemical species. Test these
functions with the following cell calling
sequences for carbon dioxide with the
temperature in degrees Celsius.
Cp0(“CO2”,500)
H0(“CO2”,500)
S0(“CO2”,500)
(3) Write a VBA function to calculate the molar volume (cm
3/mol) of an arbitrary species as a function of P (bar) and T̊C). This will require using bilinearinterpolation of the Lee/Kessler tables. In your Excel worksheet, call this functionas follows for carbon dioxide:
MolarVolume(“CO2”,10,100)
MolarVolume(“CO2”,40,295)
MolarVolume(“CO2”,70,30)
Bookmarks