EvtItgSimpsonIntegrator.cpp

Go to the documentation of this file.

 
/***********************************************************************
* Copyright 1998-2020 CERN for the benefit of the EvtGen authors       *
*                                                                      *
* This file is part of EvtGen.                                         *
*                                                                      *
* EvtGen 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 3 of the License, or    *
* (at your option) any later version.                                  *
*                                                                      *
* EvtGen 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 EvtGen.  If not, see <https://www.gnu.org/licenses/>.     *
***********************************************************************/
 
#include "EvtGenModels/EvtItgSimpsonIntegrator.hh"
 
//-------------
// C Headers --
//-------------
extern "C" {
}
 
//---------------
// C++ Headers --
//---------------
 
#include <math.h>
 
//-------------------------------
// Collaborating Class Headers --
//-------------------------------
 
#include "EvtGenBase/EvtReport.hh"
 
#include "EvtGenModels/EvtItgAbsFunction.hh"
using std::endl;
 
EvtItgSimpsonIntegrator::EvtItgSimpsonIntegrator(
    const EvtItgAbsFunction& theFunction, double precision, int maxLoop ) :
    EvtItgAbsIntegrator( theFunction ),
    m_precision( precision ),
    m_maxLoop( maxLoop )
{
}
 
double EvtItgSimpsonIntegrator::evaluateIt( double lower, double higher ) const
{
    // EvtGenReport(EVTGEN_INFO,"EvtGen")<<"in evaluate"<<endl;
    int j;
    double result( 0.0 );
    double s, st, ost( 0.0 );
    for ( j = 1; j < 4; j++ ) {
        st = trapezoid( lower, higher, j, result );
        s = ( 4.0 * st - ost ) / 3.0;
        ost = st;
    }
 
    double olds( s );
    st = trapezoid( lower, higher, j, result );
    s = ( 4.0 * st - ost ) / 3.0;
 
    if ( fabs( s - olds ) < m_precision * fabs( olds ) ||
         ( s == 0.0 && olds == 0.0 ) )
        return s;
 
    ost = st;
 
    for ( j = 5; j < m_maxLoop; j++ ) {
        st = trapezoid( lower, higher, j, result );
        s = ( 4.0 * st - ost ) / 3.0;
 
        if ( fabs( s - olds ) < m_precision * fabs( olds ) ||
             ( s == 0.0 && olds == 0.0 ) )
            return s;
        olds = s;
        ost = st;
    }
 
    EvtGenReport( EVTGEN_ERROR, "EvtGen" )
        << "Severe error in EvtItgSimpsonIntegrator.  Failed to converge after loop with 2**"
        << m_maxLoop << " calls to the integrand in." << endl;
 
    return 0.0;
}