1 /*---------------------------------------------------------------------------*\
3 \\ / F ield | OpenFOAM: The Open Source CFD Toolbox
5 \\ / A nd | Copyright (C) 2011 OpenFOAM Foundation
7 -------------------------------------------------------------------------------
9 This file is part of OpenFOAM.
11 OpenFOAM is free software: you can redistribute it and/or modify it
12 under the terms of the GNU General Public License as published by
13 the Free Software Foundation, either version 3 of the License, or
14 (at your option) any later version.
16 OpenFOAM is distributed in the hope that it will be useful, but WITHOUT
17 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
18 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
21 You should have received a copy of the GNU General Public License
22 along with OpenFOAM. If not, see <http://www.gnu.org/licenses/>.
28 NSRDS function number 101
33 Data Compilation Tables
37 Design Institute for Physical Property Data
38 American Institute of Chemical Engineers
40 New York, New York 10017
42 National Standard Reference Data System
43 American Institute of Chemical Engineers
45 T.E. Daubert - R.P. Danner
47 Department of Chemical Engineering
48 The Pennsylvania State University
49 University Park, PA 16802
52 \*---------------------------------------------------------------------------*/
57 #include "thermophysicalFunction.H"
59 // * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
64 /*---------------------------------------------------------------------------*\
65 Class NSRDSfunc1 Declaration
66 \*---------------------------------------------------------------------------*/
70 public thermophysicalFunction
74 // NSRDS function 101 coefficients
75 scalar a_, b_, c_, d_, e_;
80 //- Runtime type information
81 TypeName("NSRDSfunc1");
86 //- Construct from components
96 //- Construct from Istream
97 NSRDSfunc1(Istream& is);
99 //- Construct from dictionary
100 NSRDSfunc1(const dictionary& dict);
105 //- Evaluate the function and return the result
106 scalar f(scalar, scalar T) const
108 return exp(a_ + b_/T + c_*log(T) + d_*pow(T, e_));
111 //- Write the function coefficients
112 void writeData(Ostream& os) const
114 os << a_ << token::SPACE
115 << b_ << token::SPACE
116 << c_ << token::SPACE
117 << d_ << token::SPACE
124 friend Ostream& operator<<(Ostream& os, const NSRDSfunc1& f)
132 // * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
134 } // End namespace Foam
136 // * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
140 // ************************************************************************* //