/[ascend]/trunk/models/johnpye/iapws95.a4c
ViewVC logotype

Diff of /trunk/models/johnpye/iapws95.a4c

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

revision 154 by johnpye, Thu Dec 22 15:18:02 2005 UTC revision 155 by johnpye, Fri Dec 23 00:59:32 2005 UTC
# Line 487  METHOD values; Line 487  METHOD values;
487  END values;  END values;
488    
489  METHOD self_test;  METHOD self_test;
490      ASSERT abs(phi0 - 0.204797734e1) < 1e-8;      (* test the result values from page 14 of the IAPWS-95 release *)
491      ASSERT abs(phir - (–0.342693206e1)) < 1e-8;      ASSERT abs(phi0 - 0.204797734E1) < 1e-8;
492        ASSERT abs(phir - (-0.342693206E1)) < 1e-8;
493      ASSERT abs(phi0delta - (0.384236747)) < 1e-9;      ASSERT abs(phi0delta - (0.384236747)) < 1e-9;
494      ASSERT abs(phirdelta - (–0.364366650)) < 1e-9;      ASSERT abs(phirdelta - (-0.364366650)) < 1e-9;
495      ASSERT abs(phi0deltadelta - (–0.147637878)) < 1e-9;      ASSERT abs(phi0deltadelta - (-0.147637878)) < 1e-9;
496      ASSERT abs(phirdeltadelta - (0.856063701)) < 1e-9;      ASSERT abs(phirdeltadelta - (0.856063701)) < 1e-9;
497      ASSERT abs(phi0tau - (0.904611106e1)) < 1e-8;      ASSERT abs(phi0tau - (0.904611106e1)) < 1e-8;
498      ASSERT abs(phirtau - (–0.581403435e1)) < 1e-8;      ASSERT abs(phirtau - (-0.581403435e1)) < 1e-8;
499      ASSERT abs(phi0tautau - (–0.193249185e1)) < 1e-8;      ASSERT abs(phi0tautau - (-0.193249185e1)) < 1e-8;
500      ASSERT abs(phirtautau - (–0.223440737e1)) < 1e-8;      ASSERT abs(phirtautau - (-0.223440737e1)) < 1e-8;
501      ASSERT abs(phi0deltatau - 0) < 1e-20;      ASSERT abs(phi0deltatau - 0) < 1e-20;
502      ASSERT abs(phirdeltatau - (–0.112176915e1)) < 1e-8;      ASSERT abs(phirdeltatau - (-0.112176915e1)) < 1e-8;
503  END self_test;  END self_test;
504    
505  END iapws95_1phase;  END iapws95_1phase;

Legend:
Removed from v.154  
changed lines
  Added in v.155

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