Adapter.cpp

Go to the documentation of this file.

// Include files
// ============================================================================
// GaudiMath
// ============================================================================
#include "GaudiMath/GaudiMath.h"
// ============================================================================
// AIDA
// ============================================================================
#include "AIDA/IFunction.h"
// ============================================================================
#include <cstring>

namespace Genfun
{
  namespace GaudiMathImplementation
  {

    FUNCTION_OBJECT_IMP( AdapterIFunction )

    AdapterIFunction::AdapterIFunction ( const AIDA::IFunction& fun)
      : AbsFunction ( )
      , m_fun ( &fun  )
      , m_dim ( fun.dimension() )
      , m_arg ( fun.dimension() , 0 )
    {}

    AdapterIFunction:: AdapterIFunction ( const AdapterIFunction& right )
      : AbsFunction (  )
      , m_fun ( right.m_fun )
      , m_dim ( right.m_dim )
      , m_arg ( right.m_arg )
    {}

    AdapterIFunction::~AdapterIFunction() = default;

    double AdapterIFunction::operator() ( double x ) const
    {
      for ( size_t i = 0; i < m_dim; ++i ) { m_arg[i] = 0.0 ; }
      m_arg[0] = x ;
      return m_fun -> value ( m_arg ) ;
    }

    double AdapterIFunction::operator() ( const Genfun::Argument& x ) const
    {
      for ( size_t i = 0; i < m_dim; ++i ) { m_arg[i] = x[i] ; }
      return m_fun -> value ( m_arg ) ;
    }

    Genfun::Derivative AdapterIFunction::partial( unsigned int i  ) const
    {
      if ( i >= m_dim )
      {
        const AbsFunction& aux = GaudiMath::Constant( 0 , m_dim  ) ;
        return Genfun::FunctionNoop( &aux ) ;
      };
      const AbsFunction& aux = GaudiMath::Derivative( *this , i ) ;
      return Genfun::FunctionNoop ( &aux ) ;
    }

    FUNCTION_OBJECT_IMP( Adapter2DoubleFunction )

    Adapter2DoubleFunction::Adapter2DoubleFunction
    ( Adapter2DoubleFunction::Function  func )
      : AbsFunction (       )
      , m_func      ( func  )
    {}

    Adapter2DoubleFunction:: Adapter2DoubleFunction
    ( const Adapter2DoubleFunction& right )
      : AbsFunction (              )
      , m_func    ( right.m_func )
    {}

    Adapter2DoubleFunction::~Adapter2DoubleFunction() = default;

    double Adapter2DoubleFunction::operator()
      (       double    x ) const
    { return m_func ( x , 0 ) ; }

    double Adapter2DoubleFunction::operator()
      ( const Genfun::Argument& x ) const
    { return m_func ( x[0] , x[1] ) ; }

    double Adapter2DoubleFunction::operator()
      ( const double x ,
        const double y ) const
    { return m_func ( x , y ) ; }

    Genfun::Derivative Adapter2DoubleFunction::partial( unsigned int i  ) const
    {
      if ( i >= 2  )
      {
        const AbsFunction& aux = GaudiMath::Constant( 0 , 2 ) ;
        return Genfun::FunctionNoop( &aux ) ;
      };
      const AbsFunction& aux = GaudiMath::Derivative( *this , i ) ;
      return Genfun::FunctionNoop ( &aux ) ;
    }

    FUNCTION_OBJECT_IMP( Adapter3DoubleFunction )

    Adapter3DoubleFunction::Adapter3DoubleFunction
    ( Adapter3DoubleFunction::Function  func )
      : AbsFunction (       )
      , m_func      ( func  )
    {}

    Adapter3DoubleFunction:: Adapter3DoubleFunction
    ( const Adapter3DoubleFunction& right )
      : AbsFunction (              )
      , m_func      ( right.m_func )
    {}

    Adapter3DoubleFunction::~Adapter3DoubleFunction() = default;

    double Adapter3DoubleFunction::operator()
      (       double    x ) const
    { return m_func ( x , 0 , 0 ) ; }

    double Adapter3DoubleFunction::operator()
      ( const Genfun::Argument& x ) const
    { return m_func ( x[0] , x[1] , x[2] ) ; }

    double Adapter3DoubleFunction::operator()
      ( const double x ,
        const double y ,
        const double z ) const
    { return m_func ( x , y , z ) ; }

    Genfun::Derivative Adapter3DoubleFunction::partial( unsigned int i  ) const
    {
      if ( i >= 3  )
      {
        const AbsFunction& aux = GaudiMath::Constant( 0 , 3 ) ;
        return Genfun::FunctionNoop( &aux ) ;
      };
      const AbsFunction& aux = GaudiMath::Derivative( *this , i ) ;
      return Genfun::FunctionNoop ( &aux ) ;
    }

    // ========================================================================
    // ========================================================================
    FUNCTION_OBJECT_IMP( SimpleFunction )
    // ========================================================================

    // =======================================================================
    // ========================================================================
    SimpleFunction::SimpleFunction
    ( SimpleFunction::Function1 func )
      : AbsFunction ()
      , m_case      ( SimpleFunction::TrivialArg )
      , m_DIM       ( 1    )
      , m_func1     ( func )
      , m_func2     ( nullptr    )
      , m_func3     ( nullptr    )
    {}
    // ========================================================================

    // ========================================================================
    // ========================================================================
    SimpleFunction::SimpleFunction
    ( SimpleFunction::Function2 func ,
      const size_t              dim  )
      : AbsFunction ()
      , m_case      ( SimpleFunction::ArrayArg  )
      , m_DIM       ( dim  )
      , m_func1     ( nullptr    )
      , m_func2     ( func )
      , m_arg2      ( new double[dim] )
      , m_func3     ( nullptr    )
    {
    }
    // ========================================================================

    // ========================================================================
    // ========================================================================
    SimpleFunction::SimpleFunction
    ( SimpleFunction::Function3 func ,
      const size_t              dim  )
      : AbsFunction ()
      , m_case      ( SimpleFunction::VectorArg  )
      , m_DIM       ( dim  )
      , m_func1     ( nullptr    )
      , m_func2     ( nullptr    )
      , m_func3     ( func )
      , m_arg3      ( dim  , 0 )
    {}
    // ========================================================================

    // ========================================================================
    // ========================================================================
    SimpleFunction::SimpleFunction
    ( const SimpleFunction& right )
      : AbsFunction ()
      , m_case      ( right.m_case  )
      , m_DIM       ( right.m_DIM   )
      , m_func1     ( right.m_func1 )
      , m_func2     ( right.m_func2 )
      , m_func3     ( right.m_func3 )
      , m_arg3      ( right.m_arg3  )
    {
      if ( right.m_arg2 )
      {
        m_arg2.reset( new double[m_DIM] );
        std::copy_n(right.m_arg2.get(), m_DIM, m_arg2.get());
      }
    }
    // ========================================================================

    // ========================================================================

    // ========================================================================
    // ========================================================================
    Genfun::Derivative SimpleFunction::partial( unsigned int i ) const
    {
      if ( i >= m_DIM )
      {
        const AbsFunction& aux = GaudiMath::Constant( 0 , m_DIM ) ;
        return Genfun::FunctionNoop( &aux ) ;
      }
      const  AbsFunction& aux = GaudiMath::Derivative( *this , i ) ;
      return Genfun::FunctionNoop( &aux );
    }

    // ========================================================================
    // ========================================================================
    double SimpleFunction::operator()  ( double value ) const
    {
      double result = 0 ;
      switch ( m_case )
      {
      case TrivialArg  :
        result = (*m_func1) ( value  ) ; break ;
      case ArrayArg    :
        std::fill_n( m_arg2.get() , m_DIM , 0.0 );
        m_arg2[0] = value  ;
        result = (*m_func2) ( m_arg2.get() ) ; break ;
      case VectorArg   :
        std::fill ( m_arg3.begin () , m_arg3.end () , 0.0 );
        m_arg3[0] = value  ;
        result = (*m_func3) ( m_arg3 ) ; break ;
      default:
        break ;
      };
      return result ;
    }
    // ========================================================================

    // ========================================================================
    // ========================================================================
    double SimpleFunction::operator()  ( const Argument& argument ) const
    {
      double result = 0 ;
      switch ( m_case )
      {
      case TrivialArg  :
        result = (*m_func1) ( argument[0]  ) ; break ;
      case ArrayArg    :
        for( size_t i = 0 ; i < m_DIM ; ++i ) { m_arg2[i] = argument[i] ; }
        return (*m_func2)( m_arg2.get() ) ;        ; break ;
      case VectorArg   :
        for( size_t i = 0 ; i < m_DIM ; ++i ) { m_arg3[i] = argument[i] ; }
        result = (*m_func3) ( m_arg3 ) ; break ;
      default:
        break ;
      }
      return result ;
    }

  } // end of namespace GaudiMathImplementation
} // end of namespace Genfun


// ============================================================================
// The END
// ============================================================================