GNU Octave  8.1.0
A high-level interpreted language, primarily intended for numerical computations, mostly compatible with Matlab
Classes | Macros | Functions | Variables
quadcc.cc File Reference
#include <cmath>
#include <algorithm>
#include "lo-ieee.h"
#include "oct-locbuf.h"
#include "defun.h"
#include "error.h"
#include "interpreter-private.h"
#include "ovl.h"
#include "parse.h"
#include "utils.h"
#include "variables.h"
Include dependency graph for quadcc.cc:

Go to the source code of this file.

Classes

struct  cquad_ival
 

Macros

#define DEBUG_QUADCC   0
 

Functions

static void downdate (double *c, int n, int d, int *nans, int nnans)
 
OCTAVE_EXPORT octave_value_list Fquadcc (octave::interpreter &interp, const octave_value_list &args, int nargout)
 
static void Vinvfx (const double *fx, double *c, const int d)
 

Variables

static const double bee [68]
 
static const double DROP_RELTOL = std::numeric_limits<double>::epsilon () * 10
 
static const double Lalpha [33]
 
static const double Lgamma [33]
 
static const int MIN_CQUAD_HEAPSIZE = 200
 
static const double Tleft [33 *33]
 
static const double Tright [33 *33]
 
static const double V1inv [5 *5]
 
static const double V2inv [9 *9]
 
static const double V3inv [17 *17]
 
static const double V4inv [33 *33]
 
static const double xi [33]
 

Macro Definition Documentation

◆ DEBUG_QUADCC

#define DEBUG_QUADCC   0

Definition at line 46 of file quadcc.cc.

Function Documentation

◆ downdate()

static void downdate ( double *  c,
int  n,
int  d,
int *  nans,
int  nnans 
)
static

Definition at line 1464 of file quadcc.cc.

References bee, d, Lalpha, Lgamma, n, and xi.

Referenced by Fquadcc().

◆ Fquadcc()

OCTAVE_EXPORT octave_value_list Fquadcc ( octave::interpreter &  interp,
const octave_value_list &  args,
int  nargout 
)

Definition at line 1566 of file quadcc.cc.

References cquad_ival::a, abs(), atan(), cquad_ival::b, cquad_ival::c, copysign(), d, cquad_ival::depth, downdate(), DROP_RELTOL, cquad_ival::err, error(), feval(), Array< T, Alloc >::fortran_vec(), cquad_ival::fx, get_function_handle(), cquad_ival::igral, Inf, isfinite(), isinf(), octave_value_list::length(), m, max(), MIN_CQUAD_HEAPSIZE, n, NaN, cquad_ival::ndiv, Array< T, Alloc >::numel(), OCTAVE_LOCAL_BUFFER, ovl(), print_usage(), cquad_ival::rdepth, Tleft, Tright, Vinvfx(), Faddeeva::w(), warning(), and xi.

◆ Vinvfx()

static void Vinvfx ( const double *  fx,
double *  c,
const int  d 
)
static

Definition at line 1419 of file quadcc.cc.

References d, V1inv, V2inv, V3inv, and V4inv.

Referenced by Fquadcc().

Variable Documentation

◆ bee

const double bee[68]
static
Initial value:
=
{
0.00000000000000e+00, 2.28868854108532e-01, 0.00000000000000e+00,
-8.15740215243451e-01, 0.00000000000000e+00, 5.31212715259731e-01,
0.00000000000000e+00, 1.38538036812454e-02, 0.00000000000000e+00,
3.74405228908818e-02, 0.00000000000000e+00, 2.12224115039342e-01,
0.00000000000000e+00, -8.16362644507898e-01, 0.00000000000000e+00,
5.35648426691481e-01, 0.00000000000000e+00, 1.52417902753662e-03,
0.00000000000000e+00, 2.63058840550873e-03, 0.00000000000000e+00,
4.15292106318904e-03, 0.00000000000000e+00, 6.97106011119775e-03,
0.00000000000000e+00, 1.35535708431058e-02, 0.00000000000000e+00,
3.52132898424856e-02, 0.00000000000000e+00, 2.06946714741884e-01,
0.00000000000000e+00, -8.15674251283876e-01, 0.00000000000000e+00,
5.38841175520580e-01, 0.00000000000000e+00, 1.84909689577590e-04,
0.00000000000000e+00, 2.90936325007499e-04, 0.00000000000000e+00,
3.84877750950089e-04, 0.00000000000000e+00, 4.86436656735046e-04,
0.00000000000000e+00, 6.08688640346879e-04, 0.00000000000000e+00,
7.66732830740331e-04, 0.00000000000000e+00, 9.82753336104205e-04,
0.00000000000000e+00, 1.29359957505615e-03, 0.00000000000000e+00,
1.76616363801885e-03, 0.00000000000000e+00, 2.53323433039089e-03,
0.00000000000000e+00, 3.88872172121956e-03, 0.00000000000000e+00,
6.58635106468291e-03, 0.00000000000000e+00, 1.30326736343254e-02,
0.00000000000000e+00, 3.44353850696714e-02, 0.00000000000000e+00,
2.05025409531915e-01, 0.00000000000000e+00, -8.14985893995401e-01,
0.00000000000000e+00, 5.40679930965238e-01
}

Definition at line 85 of file quadcc.cc.

Referenced by downdate().

◆ DROP_RELTOL

const double DROP_RELTOL = std::numeric_limits<double>::epsilon () * 10
static

Definition at line 64 of file quadcc.cc.

Referenced by Fquadcc().

◆ Lalpha

const double Lalpha[33]
static
Initial value:
=
{
5.77350269189626e-01, 5.16397779494322e-01, 5.07092552837110e-01,
5.03952630678970e-01, 5.02518907629606e-01, 5.01745206004255e-01,
5.01280411827603e-01, 5.00979432868120e-01, 5.00773395667191e-01,
5.00626174321759e-01, 5.00517330712619e-01, 5.00434593736979e-01,
5.00370233297676e-01, 5.00319182924304e-01, 5.00278009473803e-01,
5.00244319584578e-01, 5.00216403386025e-01, 5.00193012939056e-01,
5.00173220168024e-01, 5.00156323280355e-01, 5.00141783641018e-01,
5.00129182278347e-01, 5.00118189340972e-01, 5.00108542278496e-01,
5.00100030010004e-01, 5.00092481273333e-01, 5.00085755939229e-01,
5.00079738458365e-01, 5.00074332862969e-01, 5.00069458915387e-01,
5.00065049112355e-01, 5.00061046334395e-01, 5.00057401986298e-01
}

Definition at line 112 of file quadcc.cc.

Referenced by downdate().

◆ Lgamma

const double Lgamma[33]
static
Initial value:
=
{
0.0, 0.0, 5.16397779494322e-01, 5.07092552837110e-01, 5.03952630678970e-01,
5.02518907629606e-01, 5.01745206004255e-01, 5.01280411827603e-01,
5.00979432868120e-01, 5.00773395667191e-01, 5.00626174321759e-01,
5.00517330712619e-01, 5.00434593736979e-01, 5.00370233297676e-01,
5.00319182924304e-01, 5.00278009473803e-01, 5.00244319584578e-01,
5.00216403386025e-01, 5.00193012939056e-01, 5.00173220168024e-01,
5.00156323280355e-01, 5.00141783641018e-01, 5.00129182278347e-01,
5.00118189340972e-01, 5.00108542278496e-01, 5.00100030010003e-01,
5.00092481273333e-01, 5.00085755939229e-01, 5.00079738458365e-01,
5.00074332862969e-01, 5.00069458915387e-01, 5.00065049112355e-01,
5.00061046334395e-01
}

Definition at line 127 of file quadcc.cc.

Referenced by downdate().

◆ MIN_CQUAD_HEAPSIZE

const int MIN_CQUAD_HEAPSIZE = 200
static

Definition at line 51 of file quadcc.cc.

Referenced by Fquadcc().

◆ Tleft

const double Tleft[33 *33]
static

Definition at line 905 of file quadcc.cc.

Referenced by Fquadcc().

◆ Tright

const double Tright[33 *33]
static

Definition at line 1160 of file quadcc.cc.

Referenced by Fquadcc().

◆ V1inv

const double V1inv[5 *5]
static
Initial value:
=
{
.47140452079103168293e-1, .37712361663282534635, .56568542494923801952,
.37712361663282534635, .47140452079103168293e-1,
-.81649658092772603273e-1, -.46188021535170061160, 0,
.46188021535170061160, .81649658092772603273e-1, .15058465048420853962,
.12046772038736683169, -.54210474174315074262, .12046772038736683169,
.15058465048420853962, -.21380899352993950775, .30237157840738178177, -0.,
-.30237157840738178177, .21380899352993950775, .10774960475223581324,
-.21549920950447162648, .21549920950447162648, -.21549920950447162648,
.10774960475223581324
}

Definition at line 142 of file quadcc.cc.

Referenced by Vinvfx().

◆ V2inv

const double V2inv[9 *9]
static

Definition at line 155 of file quadcc.cc.

Referenced by Vinvfx().

◆ V3inv

const double V3inv[17 *17]
static

Definition at line 190 of file quadcc.cc.

Referenced by Vinvfx().

◆ V4inv

const double V4inv[33 *33]
static

Definition at line 328 of file quadcc.cc.

Referenced by Vinvfx().

◆ xi

const double xi[33]
static
Initial value:
=
{
-1., -0.99518472667219688624, -0.98078528040323044912,
-0.95694033573220886493, -0.92387953251128675612,
-0.88192126434835502970, -0.83146961230254523708,
-0.77301045336273696082, -0.70710678118654752440,
-0.63439328416364549822, -0.55557023301960222475,
-0.47139673682599764857, -0.38268343236508977173,
-0.29028467725446236764, -0.19509032201612826785,
-0.098017140329560601995, 0., 0.098017140329560601995,
0.19509032201612826785, 0.29028467725446236764, 0.38268343236508977173,
0.47139673682599764857, 0.55557023301960222475, 0.63439328416364549822,
0.70710678118654752440, 0.77301045336273696082, 0.83146961230254523708,
0.88192126434835502970, 0.92387953251128675612, 0.95694033573220886493,
0.98078528040323044912, 0.99518472667219688624, 1.
}

Definition at line 68 of file quadcc.cc.

Referenced by downdate(), euler2d(), euler3d(), F__dsearchn__(), Fquadcc(), Ftsearch(), streameuler2d_internal(), and streameuler3d_internal().