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

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

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

revision 1854 by jpye, Tue Sep 2 06:56:47 2008 UTC revision 1855 by jpye, Thu Sep 11 13:50:55 2008 UTC
# Line 1  Line 1 
1  #include "ammonia.h"  #include "ammonia.h"
2    
   
3  /**  /**
4  Ideal gas data for Ammonia, from Tillner-Roth, Harms-Watzenberg and  Ideal gas data for Ammonia, from Tillner-Roth, Harms-Watzenberg and
5  Baehr, 'Eine neue Fundamentalgleichung für Ammoniak', DKV-Tagungsbericht,  Baehr, 'Eine neue Fundamentalgleichung für Ammoniak', DKV-Tagungsbericht,
6  20:167-181, 1993. This is the ammmonia property correlation recommended  20:167-181, 1993. This is the ammmonia property correlation recommended
7  by NIST in its program REFPROP 7.0.  by NIST in its program REFPROP 7.0.
8  */  */
9    #define TSTAR_TO_0.33
10    
11  const IdealData ideal_data_ammonia = {  const IdealData ideal_data_ammonia = {
12      -15.815020 /* const */      -15.815020 /* const */
13      , 4.255726 /* linear */      , 4.255726 /* linear */
# Line 14  const IdealData ideal_data_ammonia = { Line 15  const IdealData ideal_data_ammonia = {
15      , 488.189 /* cpstar J/kgK */      , 488.189 /* cpstar J/kgK */
16      , 3 /* power terms */        , 3 /* power terms */  
17      , (const IdealPowTerm[]){      , (const IdealPowTerm[]){
18          IDEALPOWTERM_FROM_HELM0(11.474340, 1./3.)          {1.8871646035249E+01, -1./3}
19          ,IDEALPOWTERM_FROM_HELM0(-1.296211, -3./2.)          ,{5.9549943513550E-04, 3./2}
20          ,IDEALPOWTERM_FROM_HELM0(0.5706757, -7./4.)          ,{-7.4983130863099E-05, 7./4}
21    
22    #if 0
23            IDEALPOWTERM_FROM_HELM0(11.474340, 1./3., 405.40)
24            ,IDEALPOWTERM_FROM_HELM0(-1.296211, -3./2., 405.40)
25            ,IDEALPOWTERM_FROM_HELM0(0.5706757, -7./4., 405.40)
26    #endif
27      }      }
28      , 0, (const IdealExpTerm *)0 /* no exponential terms */      , 0, (const IdealExpTerm *)0 /* no exponential terms */
29  };  };

Legend:
Removed from v.1854  
changed lines
  Added in v.1855

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