nf_GnG_adaptiveQuadrature.c File Reference

#include <float.h>
#include "nf_integration.h"

Go to the source code of this file.

Classes
struct	nf_GnG_adaptiveQuadrature_info_s

Typedefs
typedef struct nf_GnG_adaptiveQuadrature_info_s	nf_GnG_adaptiveQuadrature_info

Functions
nfu_status	nf_GnG_adaptiveQuadrature (nf_GnG_adaptiveQuadrature_callback quadratureFunction, nf_Legendre_GaussianQuadrature_callback integrandFunction, void *argList, double x1, double x2, int maxDepth, double tolerance, double *integral, long *evaluations)

Typedef Documentation

nf_GnG_adaptiveQuadrature_info

typedef struct nf_GnG_adaptiveQuadrature_info_s nf_GnG_adaptiveQuadrature_info

Function Documentation

nf_GnG_adaptiveQuadrature()

nfu_status nf_GnG_adaptiveQuadrature	(	nf_GnG_adaptiveQuadrature_callback	quadratureFunction,
		nf_Legendre_GaussianQuadrature_callback	integrandFunction,
		void *	argList,
		double	x1,
		double	x2,
		int	maxDepth,
		double	tolerance,
		double *	integral,
		long *	evaluations )

Definition at line 30 of file nf_GnG_adaptiveQuadrature.c.

                                                                                                               {
/*
*   See W. Gander and W. Gautschi, "Adaptive quadrature--revisited", BIT 40 (2000), 84-101.
*/
    int i1;
    double estimate = 0., y1, integral_, coarse;
    nfu_status status = nfu_Okay;
    nf_GnG_adaptiveQuadrature_info adaptiveQuadrature_info = { nfu_Okay, integrandFunction, argList, quadratureFunction, 0., 0, maxDepth, 0 };
 
    *integral = 0.;
    *evaluations = 0;
    if( x1 == x2 ) return( nfu_Okay );
 
    if( tolerance < 10 * DBL_EPSILON ) tolerance = 10 * DBL_EPSILON;
    if( maxDepth > nf_GnG_adaptiveQuadrature_MaxMaxDepth ) maxDepth = nf_GnG_adaptiveQuadrature_MaxMaxDepth;
 
    for( i1 = 0; i1 < numberOfInitialPoints; i1++ ) {
        if( ( status = integrandFunction( x1 + ( x2 - x1 ) * initialPoints[i1], &y1, argList ) ) != nfu_Okay ) return( status );
        estimate += y1;
    }
    if( ( status = quadratureFunction( integrandFunction, argList, x1, x2, &integral_ ) ) != nfu_Okay ) return( status );
    estimate = 0.5 * ( estimate * ( x2 - x1 ) / numberOfInitialPoints + integral_ );
    if( estimate == 0. ) estimate = x2 - x1;
    adaptiveQuadrature_info.estimate = tolerance * estimate / DBL_EPSILON;
 
    if( ( status = quadratureFunction( integrandFunction, argList, x1, x2, &coarse ) ) != nfu_Okay ) return( status );
    integral_ = nf_GnG_adaptiveQuadrature2( &adaptiveQuadrature_info, coarse, x1, x2, 0 );
 
    for( i1 = 0; i1 < 2; i1++ ) {       /* Estimate may be off by more than a factor of 10. Iterate at most 2 times. */
        if( integral_ == 0. ) break;
        y1 = integral_ / estimate;
        if( ( y1 > 0.1 ) && ( y1 < 10. ) ) break;
 
        estimate = integral_;
        adaptiveQuadrature_info.estimate = tolerance * integral_ / DBL_EPSILON;
        *evaluations += adaptiveQuadrature_info.evaluations;
        adaptiveQuadrature_info.evaluations = 0;
        integral_ = nf_GnG_adaptiveQuadrature2( &adaptiveQuadrature_info, integral_, x1, x2, 0 );
    }
 
    *evaluations += adaptiveQuadrature_info.evaluations;
    if( adaptiveQuadrature_info.status == nfu_Okay ) *integral = integral_;
    return( adaptiveQuadrature_info.status );
}

Referenced by ptwXY_integrateWithFunction().