GasConstant.h

Go to the documentation of this file.

/* Copyright (C) 2002 - 2006, 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 quantity {
  namespace gasConstant {

/* GasConstant dimension */
typedef BSUtilities::Rational<2> LE;
typedef BSUtilities::Rational<1> M;
typedef BSUtilities::Rational<-2> TI;
typedef BSUtilities::Rational<0> E;
typedef BSUtilities::Rational<-1> TE;
typedef BSUtilities::Rational<-1> A;
typedef BSUtilities::Rational<0> LU;

typedef dimension::Dimension<LE, M, TI, E, TE, A, LU> Dimension;

class Unit;

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

/* the JoulePerKelvinMoleUnit and prefixed variants */

typedef LOKI_TYPELIST_1(energy::Joule) EnergyList;

typedef unit::ComposeElement<Unit, EnergyList,
                               BSUtilities::Rational<1> > EnergyElement;

typedef LOKI_TYPELIST_2(amountOfSubstance::Mole,
                    amountOfSubstance::MilliMole) AmountOfSubstanceList;

typedef unit::ComposeElement<Unit, AmountOfSubstanceList,
                   BSUtilities::Rational<-1> > AmountOfSubstanceElement;

typedef LOKI_TYPELIST_1(thermodynamicTemperature::Kelvin) 
                                           ThermodynamicTemperatureList;

typedef 
  unit::ComposeElement<Unit, ThermodynamicTemperatureList,
            BSUtilities::Rational<-1> > ThermodynamicTemperatureElement;

typedef unit::ComposeBase<Unit, 
  LOKI_TYPELIST_3(EnergyElement, AmountOfSubstanceElement, 
              ThermodynamicTemperatureElement)> GasConstantComposedUnit;

typedef unit::Composed<GasConstantComposedUnit, 
  LOKI_TYPELIST_3(energy::Joule, amountOfSubstance::Mole, 
                  thermodynamicTemperature::Kelvin)> JoulePerKelvinMole;

typedef LOKI_TYPELIST_1(JoulePerKelvinMole) Units;
/* GasConstant quantity */

typedef Quantity<Dimension, Unit, Units, JoulePerKelvinMole> Quantity;

  }

typedef Loki::SingletonHolder<UniqueConstant <gasConstant::Quantity> > 
                                                            GasConstant;

#define GASCONSTANT GasConstant::Instance()

}

#endif /* _GasConstant_h */

---