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

Diff of /trunk/models/johnpye/fprops/toluene.c

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

revision 2284 by jpye, Sat Aug 14 10:52:06 2010 UTC revision 2285 by jpye, Sat Aug 14 13:47:07 2010 UTC
# Line 10  http://dx.doi.org/10.1021/je050186n Line 10  http://dx.doi.org/10.1021/je050186n
10  */  */
11    
12  /*  /*
13  NOTE: aAnother EOS for toluene is  NOTE: Another EOS for toluene is
14      J. Phys. Chem. Ref. Data 18, 1565 (1989)      J. Phys. Chem. Ref. Data 18, 1565 (1989)
15      http://dx.doi.org/10.1063/1.555837      http://dx.doi.org/10.1063/1.555837
16  The triple-point temperature entered below has been taken from the abstract of  The triple-point temperature entered below has been taken from the abstract of
# Line 25  that article. -- jpye Line 25  that article. -- jpye
25    
26    
27  const IdealData ideal_data_toluene = {  const IdealData ideal_data_toluene = {
28    #ifdef TEST
29      3.5241174832 /* constant */      3.5241174832 /* constant */
30      , 1.1360823464 /* linear */      , 1.1360823464 /* linear */
31    #else
32        /* these values have been selected to give zero enthalpy and zero
33        entropy at the triple point for this fluid, see test.c 'helm_calc_offsets'*/
34        -1.04342666628772882120e+01 /* constant */
35        , 7.59094882818676630620e+00 /* linear */
36    #endif
37      , TOLUENE_TSTAR /* Tstar */      , TOLUENE_TSTAR /* Tstar */
38      , TOLUENE_R /* cp0star */      , TOLUENE_R /* cp0star */
39      , 1 /* power terms */      , 1 /* power terms */
# Line 94  const HelmholtzData helmholtz_data_tolue Line 101  const HelmholtzData helmholtz_data_tolue
101  const TestData td[]; const unsigned ntd;  const TestData td[]; const unsigned ntd;
102    
103  int main(void){  int main(void){
104        const HelmholtzData *d = &helmholtz_data_toluene;
105        double p,rhof,rhog;
106        int res = fprops_triple_point(&p,&rhof,&rhog,d);
107        return helm_calc_offsets(d->T_t, rhof, 0, 0, d);
108    
109      return helm_run_test_cases(&helmholtz_data_toluene, ntd, td, 'C');      return helm_run_test_cases(&helmholtz_data_toluene, ntd, td, 'C');
110  }  }
111    

Legend:
Removed from v.2284  
changed lines
  Added in v.2285

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