GasConstant.h

Go to the documentation of this file.

/* Copyright (C) 2002-2004, Bernd Speiser */

/* This file is part of Quantities.

PhysicalQuantities is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License
as published by the Free Software Foundation; either version 2
of the License, or (at your option) any later version.

PhysicalQuantities is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.
  
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
02111-1307, USA.
*/

#ifndef _GasConstant_h
#define _GasConstant_h

#include "Quantity/UniqueConstant.h"

#include "PhysicalQuantities/AmountOfSubstance.h"
#include "PhysicalQuantities/Energy.h"
#include "PhysicalQuantities/ThermodynamicTemperature.h"

namespace Quantities {

/* GasConstant dimension */
typedef BSUtilities::Rational<2> GasConstant_LE;
typedef BSUtilities::Rational<1> GasConstant_M;
typedef BSUtilities::Rational<-2> GasConstant_TI;
typedef BSUtilities::Rational<0> GasConstant_E;
typedef BSUtilities::Rational<-1> GasConstant_TE;
typedef BSUtilities::Rational<-1> GasConstant_A;
typedef BSUtilities::Rational<0> GasConstant_LU;
class GasConstantGroup
  {
    public:
      typedef TYPELIST_7(GasConstant_LE, GasConstant_M,
                         GasConstant_TI, GasConstant_E,
                         GasConstant_TE, GasConstant_A,
                                                  GasConstant_LU) DimTL;
  };

  namespace GasConstantUnits {

/* declaration of GasConstant unit base class */
typedef Units::Unit<GasConstantGroup> GasConstantUnit;

/* declaration of GasConstant unit base class */
class JoulePerKelvinMoleUnit;

/* the JoulePerKelvinMoleUnit and prefixed variants */

typedef TYPELIST_1(EnergyUnits::Joule) EnergyList;

typedef Units::CompoundElement<GasConstantGroup, EnergyList,
                               BSUtilities::Rational<1> > EnergyElement;

typedef TYPELIST_2(AmountOfSubstanceUnits::Mole,
               AmountOfSubstanceUnits::MilliMole) AmountOfSubstanceList;

typedef Units::CompoundElement<GasConstantGroup, AmountOfSubstanceList,
                   BSUtilities::Rational<-1> > AmountOfSubstanceElement;

typedef 
  TYPELIST_1(ThermodynamicTemperatureUnits::Kelvin) 
                                           ThermodynamicTemperatureList;

typedef 
  Units::CompoundElement<GasConstantGroup, ThermodynamicTemperatureList,
            BSUtilities::Rational<-1> > ThermodynamicTemperatureElement;

typedef 
  TYPELIST_3(EnergyElement, AmountOfSubstanceElement, 
               ThermodynamicTemperatureElement) GasConstantCompoundList;

typedef Units::Compound<GasConstantGroup, GasConstantCompoundList>
                                              GasConstantCompoundUnits;

typedef Units::Composed<GasConstantCompoundUnits, 
  TYPELIST_3(EnergyUnits::Joule, AmountOfSubstanceUnits::Mole, 
             ThermodynamicTemperatureUnits::Kelvin)> JoulePerKelvinMole;

typedef TYPELIST_1(JoulePerKelvinMole) GasConstantUnits;
  }

/* declaration of GasConstant dimension */

typedef Dimensions::Dimension<GasConstantGroup> GasConstantDimension;

/* GasConstant quantity */

typedef Quantity<GasConstantGroup,
  GasConstantUnits::GasConstantUnits,
            GasConstantUnits::JoulePerKelvinMole> GasConstantQuantities;

typedef Loki::SingletonHolder<UniqueConstant
                                  <GasConstantQuantities> > GasConstant;

#define GASCONSTANT GasConstant::Instance()

}

#endif /* _GasConstant_h */

---