104 lines
3.1 KiB
C++
104 lines
3.1 KiB
C++
/*
|
|
* Open BEAGLE
|
|
* Copyright (C) 2001-2007 by Christian Gagne and Marc Parizeau
|
|
*
|
|
* This library is free software; you can redistribute it and/or
|
|
* modify it under the terms of the GNU Lesser General Public
|
|
* License as published by the Free Software Foundation; either
|
|
* version 2.1 of the License, or (at your option) any later version.
|
|
*
|
|
* This library 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
|
|
* Lesser General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU Lesser General Public
|
|
* License along with this library; if not, write to the Free Software
|
|
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
|
*
|
|
* Contact:
|
|
* Laboratoire de Vision et Systemes Numeriques
|
|
* Departement de genie electrique et de genie informatique
|
|
* Universite Laval, Quebec, Canada, G1K 7P4
|
|
* http://vision.gel.ulaval.ca
|
|
*
|
|
*/
|
|
|
|
/*!
|
|
* \file beagle/GP/src/Exp.cpp
|
|
* \brief Source code of class GP::Exp.
|
|
* \author Christian Gagne
|
|
* \author Marc Parizeau
|
|
* $Revision: 1.10.2.1 $
|
|
* $Date: 2007/05/09 01:51:06 $
|
|
*/
|
|
|
|
#include "beagle/GP.hpp"
|
|
|
|
#include <cmath>
|
|
|
|
#ifdef BEAGLE_HAVE_RTTI
|
|
#include <typeinfo>
|
|
#endif // BEAGLE_HAVE_RTTI
|
|
|
|
using namespace Beagle;
|
|
|
|
|
|
/*!
|
|
* \brief Construct a new exponential primitive.
|
|
* \param inName Name of the exponential primitive.
|
|
*/
|
|
GP::Exp::Exp(Beagle::string inName) :
|
|
Beagle::GP::Primitive(1, inName)
|
|
{ }
|
|
|
|
|
|
#ifdef BEAGLE_HAVE_RTTI
|
|
|
|
/*!
|
|
* \brief Return the tag of the type of data needed as input for the primitive Exp.
|
|
* \param inN Index of the argument to get the type tag.
|
|
* \param ioContext Evolutionary context.
|
|
* \return Type_info (RTTI) tagging the data type needed.
|
|
* \throw AssertException If the index inN given is greater than 0.
|
|
*/
|
|
const std::type_info* GP::Exp::getArgType(unsigned int inN, GP::Context& ioContext) const
|
|
{
|
|
Beagle_StackTraceBeginM();
|
|
Beagle_AssertM(inN<1);
|
|
return &typeid(Double);
|
|
Beagle_StackTraceEndM("const std::type_info* GP::Exp::getArgType(unsigned int inN, GP::Context& ioContext) const");
|
|
}
|
|
|
|
|
|
/*!
|
|
* \brief Return the tag of the type of data return by primitive Exp.
|
|
* \param ioContext Evolutionary context.
|
|
* \return Type_info (RTTI) tagging the data type returned.
|
|
*/
|
|
const std::type_info* GP::Exp::getReturnType(GP::Context& ioContext) const
|
|
{
|
|
Beagle_StackTraceBeginM();
|
|
return &typeid(Double);
|
|
Beagle_StackTraceEndM("const std::type_info* GP::Exp::getReturnType(GP::Context& ioContext) const");
|
|
}
|
|
|
|
#endif // BEAGLE_HAVE_RTTI
|
|
|
|
|
|
/*!
|
|
* \brief Execute the characteristic operation of a exponential of number.
|
|
* \param outResult Result of the exponential.
|
|
* \param ioContext Evolutionary context.
|
|
*/
|
|
void GP::Exp::execute(GP::Datum& outResult, GP::Context& ioContext)
|
|
{
|
|
Beagle_StackTraceBeginM();
|
|
Double& lResult = castObjectT<Double&>(outResult);
|
|
get1stArgument(lResult, ioContext);
|
|
if(lResult < 80.) lResult = std::exp(lResult);
|
|
else lResult = 1.;
|
|
Beagle_StackTraceEndM("void GP::Exp::execute(GP::Datum& outResult, GP::Context& ioContext)");
|
|
}
|
|
|