/[ascend]/trunk/models/johnpye/fprops/fluids/carbonylsulfide.c
ViewVC logotype

Diff of /trunk/models/johnpye/fprops/fluids/carbonylsulfide.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 2300 by jpye, Fri Aug 20 13:50:05 2010 UTC revision 2301 by jpye, Sat Aug 21 13:28:35 2010 UTC
# Line 8  Lemmon, E.W. and Span, R., Line 8  Lemmon, E.W. and Span, R.,
8  J. Chem. Eng. Data, 51:785-850, 2006.  J. Chem. Eng. Data, 51:785-850, 2006.
9  */  */
10    
11  #include "../helmholtz.h"  #include "../helmholtz.h"
12    
13  #define CARBONYLSULFIDE_M 60.0751 /* kg/kmol */  #define CARBONYLSULFIDE_M 60.0751 /* kg/kmol */
14  #define CARBONYLSULFIDE_R (8314.472/CARBONYLSULFIDE_M) /* J/kg/K */  #define CARBONYLSULFIDE_R (8314.472/CARBONYLSULFIDE_M) /* J/kg/K */
15  #define CARBONYLSULFIDE_TSTAR 378.77 /* K */  #define CARBONYLSULFIDE_TSTAR 378.77 /* K */
# Line 41  const HelmholtzData helmholtz_data_carbo Line 41  const HelmholtzData helmholtz_data_carbo
41    
42      , /* T_c */ CARBONYLSULFIDE_TSTAR      , /* T_c */ CARBONYLSULFIDE_TSTAR
43      , /* rho_c */ 7.41*CARBONYLSULFIDE_M /* kg/m3 */      , /* rho_c */ 7.41*CARBONYLSULFIDE_M /* kg/m3 */
44      , /* T_t */ 0      , /* T_t */ 134.3
45    
46      , 0.0978 /* acentric factor */      , 0.0978 /* acentric factor */
47      , &ideal_data_carbonylsulfide      , &ideal_data_carbonylsulfide
# Line 128  const TestData td[] = { Line 128  const TestData td[] = {
128      , {1.50E+2, 1.0E+1, 3.42073193892E+2, 3.10965381486E+2, 3.40198891093E+2, 9.98498153736E-1, 7.72810027815E-1, 2.46165756423E+0, 7.76437557365E-1, -1.11549112268E+2}      , {1.50E+2, 1.0E+1, 3.42073193892E+2, 3.10965381486E+2, 3.40198891093E+2, 9.98498153736E-1, 7.72810027815E-1, 2.46165756423E+0, 7.76437557365E-1, -1.11549112268E+2}
129      , {2.00E+2, 1.0E+1, 2.12804982382E+2, 3.76000992944E+2, 4.22992373916E+2, 1.18453786861E+0, 7.26384907923E-1, 1.28117637193E+0, 8.01769074057E-1, -1.8446309959E+2}      , {2.00E+2, 1.0E+1, 2.12804982382E+2, 3.76000992944E+2, 4.22992373916E+2, 1.18453786861E+0, 7.26384907923E-1, 1.28117637193E+0, 8.01769074057E-1, -1.8446309959E+2}
130      , {2.50E+2, 1.0E+1, 1.6886724235E+2, 4.21920769685E+2, 4.81138886005E+2, 1.30152242664E+0, 7.24050597292E-1, 1.08356791595E+0, 8.23788301947E-1, -2.5897068781E+2}      , {2.50E+2, 1.0E+1, 1.6886724235E+2, 4.21920769685E+2, 4.81138886005E+2, 1.30152242664E+0, 7.24050597292E-1, 1.08356791595E+0, 8.23788301947E-1, -2.5897068781E+2}
131    
132      , {3.00E+2, 1.0E+1, 1.43715050788E+2, 4.63735014093E+2, 5.33317148637E+2, 1.39682608573E+0, 7.3114236723E-1, 1.01377562168E+0, 8.43242045267E-1, -3.36855856944E+2}      , {3.00E+2, 1.0E+1, 1.43715050788E+2, 4.63735014093E+2, 5.33317148637E+2, 1.39682608573E+0, 7.3114236723E-1, 1.01377562168E+0, 8.43242045267E-1, -3.36855856944E+2}
133      , {3.50E+2, 1.0E+1, 1.26589854641E+2, 5.04156960606E+2, 5.83152232608E+2, 1.48020744501E+0, 7.41309099387E-1, 9.83608558638E-1, 8.60627009051E-1, -4.18234308752E+2}      , {3.50E+2, 1.0E+1, 1.26589854641E+2, 5.04156960606E+2, 5.83152232608E+2, 1.48020744501E+0, 7.41309099387E-1, 9.83608558638E-1, 8.60627009051E-1, -4.18234308752E+2}
134  };  };

Legend:
Removed from v.2300  
changed lines
  Added in v.2301

john.pye@anu.edu.au
ViewVC Help
Powered by ViewVC 1.1.22