Problem Statement: Write a FORTRAN program to find the vapor pressure of a given chemical species at a specified temperature based on the following Antoine equation.
log(P)=A-B/(T+C)where log is the common (base 10) logarithm, the coefficient A, B, and C for a few select species are tabulated below. P is expressed in mmHg, T is expressed in Celsius degree, and the valid temperature range is also given.
formula species A B C Tmin Tmax ----------------------------------------------------- CH4 methane 6.69561 405.420 267.777 -181 -152 C2H6 ethane 6.83452 663.700 256.470 -143 -75 C3H8 propane 6.80398 803.810 246.990 -108 -25 C4H10 butane 6.80896 935.860 238.730 -78 19 C5H12 pentane 6.87632 1075.780 233.205 -50 58Your program should allow the user to choose a chemical compound and enter the temperature, then print the calculated vapor pressure. (A practice of array and testing for choice.)
Solution:
Extra Credit Only: Modify the program to perform vapor pressure calculation for a much wider list of compounds. Download a more extensive set of coefficients. Source of data: Yaws and Yang (Yaws, C. L. and Yang, H. C., "To estimate vapor pressure easily" Hydrocarbon Processing, October, 1989, p65.)
Solution:
|
