octave: liboctave/numeric/Quad.h annotate

annotate liboctave/numeric/Quad.h @ 21218:2bb4e5a6290d

don't include lo-math.h in header files unnecessarily * DASPK.h, DASRT.h, DASSL.h, LSODE.h, Quad.h, oct-time.h: Don't include lo-math.h. * oct-time.cc (octave_time::octave_time (double)): Move definition here, from oct-time.h.

author	John W. Eaton <jwe@octave.org>
date	Sun, 07 Feb 2016 13:19:04 -0500
parents	623fc7d08cc6
children	1473547f50f5

rev	line source
3 9a4c07481e61 [project @ 1993-08-08 01:20:23 by jwe] jwe parents: diff changeset	1 /*
9a4c07481e61 [project @ 1993-08-08 01:20:23 by jwe] jwe parents: diff changeset	2
19697 4197fc428c7d maint: Update copyright notices for 2015. John W. Eaton <jwe@octave.org> parents: 17822 diff changeset	3 Copyright (C) 1993-2015 John W. Eaton
3 9a4c07481e61 [project @ 1993-08-08 01:20:23 by jwe] jwe parents: diff changeset	4
9a4c07481e61 [project @ 1993-08-08 01:20:23 by jwe] jwe parents: diff changeset	5 This file is part of Octave.
9a4c07481e61 [project @ 1993-08-08 01:20:23 by jwe] jwe parents: diff changeset	6
9a4c07481e61 [project @ 1993-08-08 01:20:23 by jwe] jwe parents: diff changeset	7 Octave is free software; you can redistribute it and/or modify it
9a4c07481e61 [project @ 1993-08-08 01:20:23 by jwe] jwe parents: diff changeset	8 under the terms of the GNU General Public License as published by the
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6108 diff changeset	9 Free Software Foundation; either version 3 of the License, or (at your
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6108 diff changeset	10 option) any later version.
3 9a4c07481e61 [project @ 1993-08-08 01:20:23 by jwe] jwe parents: diff changeset	11
9a4c07481e61 [project @ 1993-08-08 01:20:23 by jwe] jwe parents: diff changeset	12 Octave is distributed in the hope that it will be useful, but WITHOUT
9a4c07481e61 [project @ 1993-08-08 01:20:23 by jwe] jwe parents: diff changeset	13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
9a4c07481e61 [project @ 1993-08-08 01:20:23 by jwe] jwe parents: diff changeset	14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
9a4c07481e61 [project @ 1993-08-08 01:20:23 by jwe] jwe parents: diff changeset	15 for more details.
9a4c07481e61 [project @ 1993-08-08 01:20:23 by jwe] jwe parents: diff changeset	16
9a4c07481e61 [project @ 1993-08-08 01:20:23 by jwe] jwe parents: diff changeset	17 You should have received a copy of the GNU General Public License
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6108 diff changeset	18 along with Octave; see the file COPYING. If not, see
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6108 diff changeset	19 <http://www.gnu.org/licenses/>.
3 9a4c07481e61 [project @ 1993-08-08 01:20:23 by jwe] jwe parents: diff changeset	20
9a4c07481e61 [project @ 1993-08-08 01:20:23 by jwe] jwe parents: diff changeset	21 */
9a4c07481e61 [project @ 1993-08-08 01:20:23 by jwe] jwe parents: diff changeset	22
20791 f7084eae3318 maint: Use Octave coding conventions for #if statements. Rik <rik@octave.org> parents: 19697 diff changeset	23 #if ! defined (octave_Quad_h)
382 e02d6b664394 [project @ 1994-03-09 21:08:03 by jwe] jwe parents: 296 diff changeset	24 #define octave_Quad_h 1
e02d6b664394 [project @ 1994-03-09 21:08:03 by jwe] jwe parents: 296 diff changeset	25
1536 26411f9c7603 [project @ 1995-10-05 05:41:26 by jwe] jwe parents: 1528 diff changeset	26 #include <cfloat>
26411f9c7603 [project @ 1995-10-05 05:41:26 by jwe] jwe parents: 1528 diff changeset	27
1296 f93b7fa5e113 [project @ 1995-05-01 18:30:08 by jwe] jwe parents: 1011 diff changeset	28 #include "dColVector.h"
7805 62affb34e648 Make quad work with single precision David Bateman <dbateman@free.fr> parents: 7231 diff changeset	29 #include "fColVector.h"
3 9a4c07481e61 [project @ 1993-08-08 01:20:23 by jwe] jwe parents: diff changeset	30
9a4c07481e61 [project @ 1993-08-08 01:20:23 by jwe] jwe parents: diff changeset	31 typedef double (*integrand_fcn) (double x);
7805 62affb34e648 Make quad work with single precision David Bateman <dbateman@free.fr> parents: 7231 diff changeset	32 typedef float (*float_integrand_fcn) (float x);
3 9a4c07481e61 [project @ 1993-08-08 01:20:23 by jwe] jwe parents: diff changeset	33
17769 49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	34 // FIXME: would be nice to not have to have this global variable.
260 74d73a4b3fc7 [project @ 1993-12-14 23:57:42 by jwe] jwe parents: 238 diff changeset	35 // Nonzero means an error occurred in the calculation of the integrand
74d73a4b3fc7 [project @ 1993-12-14 23:57:42 by jwe] jwe parents: 238 diff changeset	36 // function, and the user wants us to quit.
6108 143b556ce725 [project @ 2006-10-27 01:45:54 by jwe] jwe parents: 5775 diff changeset	37 extern OCTAVE_API int quad_integration_error;
260 74d73a4b3fc7 [project @ 1993-12-14 23:57:42 by jwe] jwe parents: 238 diff changeset	38
3998 f6df65db67f9 [project @ 2002-07-24 18:10:39 by jwe] jwe parents: 3511 diff changeset	39 #include "Quad-opts.h"
289 c23f50e61c58 [project @ 1994-01-13 06:25:58 by jwe] jwe parents: 260 diff changeset	40
1859 43248236fcd9 [project @ 1996-02-04 10:00:46 by jwe] jwe parents: 1536 diff changeset	41 class
6108 143b556ce725 [project @ 2006-10-27 01:45:54 by jwe] jwe parents: 5775 diff changeset	42 OCTAVE_API
1859 43248236fcd9 [project @ 1996-02-04 10:00:46 by jwe] jwe parents: 1536 diff changeset	43 Quad : public Quad_options
3 9a4c07481e61 [project @ 1993-08-08 01:20:23 by jwe] jwe parents: diff changeset	44 {
17769 49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	45 public:
3 9a4c07481e61 [project @ 1993-08-08 01:20:23 by jwe] jwe parents: diff changeset	46
1859 43248236fcd9 [project @ 1996-02-04 10:00:46 by jwe] jwe parents: 1536 diff changeset	47 Quad (integrand_fcn fcn)
11501 331fcc41ca23 data member initialization fixes John W. Eaton <jwe@octave.org> parents: 10312 diff changeset	48 : Quad_options (), f (fcn), ff () { }
1859 43248236fcd9 [project @ 1996-02-04 10:00:46 by jwe] jwe parents: 1536 diff changeset	49
7805 62affb34e648 Make quad work with single precision David Bateman <dbateman@free.fr> parents: 7231 diff changeset	50 Quad (float_integrand_fcn fcn)
11501 331fcc41ca23 data member initialization fixes John W. Eaton <jwe@octave.org> parents: 10312 diff changeset	51 : Quad_options (), f (), ff (fcn) { }
7805 62affb34e648 Make quad work with single precision David Bateman <dbateman@free.fr> parents: 7231 diff changeset	52
2425 679068a18eee [project @ 1996-10-25 01:24:59 by jwe] jwe parents: 2424 diff changeset	53 virtual ~Quad (void) { }
2424 b5c3b08f1bab [project @ 1996-10-25 00:44:08 by jwe] jwe parents: 1993 diff changeset	54
1528 dc527156c38c [project @ 1995-10-05 01:44:18 by jwe] jwe parents: 1486 diff changeset	55 virtual double integrate (void)
17769 49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	56 {
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	57 octave_idx_type ier, neval;
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	58 double abserr;
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	59 return do_integrate (ier, neval, abserr);
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	60 }
3 9a4c07481e61 [project @ 1993-08-08 01:20:23 by jwe] jwe parents: diff changeset	61
7805 62affb34e648 Make quad work with single precision David Bateman <dbateman@free.fr> parents: 7231 diff changeset	62 virtual float float_integrate (void)
17769 49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	63 {
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	64 octave_idx_type ier, neval;
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	65 float abserr;
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	66 return do_integrate (ier, neval, abserr);
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	67 }
7805 62affb34e648 Make quad work with single precision David Bateman <dbateman@free.fr> parents: 7231 diff changeset	68
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	69 virtual double integrate (octave_idx_type& ier)
17769 49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	70 {
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	71 octave_idx_type neval;
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	72 double abserr;
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	73 return do_integrate (ier, neval, abserr);
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	74 }
1528 dc527156c38c [project @ 1995-10-05 01:44:18 by jwe] jwe parents: 1486 diff changeset	75
7805 62affb34e648 Make quad work with single precision David Bateman <dbateman@free.fr> parents: 7231 diff changeset	76 virtual float float_integrate (octave_idx_type& ier)
17769 49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	77 {
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	78 octave_idx_type neval;
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	79 float abserr;
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	80 return do_integrate (ier, neval, abserr);
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	81 }
7805 62affb34e648 Make quad work with single precision David Bateman <dbateman@free.fr> parents: 7231 diff changeset	82
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5105 diff changeset	83 virtual double integrate (octave_idx_type& ier, octave_idx_type& neval)
17769 49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	84 {
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	85 double abserr;
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	86 return do_integrate (ier, neval, abserr);
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	87 }
1528 dc527156c38c [project @ 1995-10-05 01:44:18 by jwe] jwe parents: 1486 diff changeset	88
7805 62affb34e648 Make quad work with single precision David Bateman <dbateman@free.fr> parents: 7231 diff changeset	89 virtual float float_integrate (octave_idx_type& ier, octave_idx_type& neval)
17769 49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	90 {
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	91 float abserr;
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	92 return do_integrate (ier, neval, abserr);
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	93 }
7805 62affb34e648 Make quad work with single precision David Bateman <dbateman@free.fr> parents: 7231 diff changeset	94
17769 49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	95 virtual double integrate (octave_idx_type& ier, octave_idx_type& neval,
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	96 double& abserr)
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	97 {
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	98 return do_integrate (ier, neval, abserr);
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	99 }
3511 d92134062783 [project @ 2000-02-01 22:06:28 by jwe] jwe parents: 2847 diff changeset	100
17769 49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	101 virtual float float_integrate (octave_idx_type& ier, octave_idx_type& neval,
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	102 float& abserr)
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	103 {
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	104 return do_integrate (ier, neval, abserr);
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	105 }
7805 62affb34e648 Make quad work with single precision David Bateman <dbateman@free.fr> parents: 7231 diff changeset	106
17769 49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	107 virtual double do_integrate (octave_idx_type& ier, octave_idx_type& neval,
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	108 double& abserr) = 0;
3 9a4c07481e61 [project @ 1993-08-08 01:20:23 by jwe] jwe parents: diff changeset	109
17769 49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	110 virtual float do_integrate (octave_idx_type& ier, octave_idx_type& neval,
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	111 float& abserr) = 0;
7805 62affb34e648 Make quad work with single precision David Bateman <dbateman@free.fr> parents: 7231 diff changeset	112
17769 49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	113 protected:
3 9a4c07481e61 [project @ 1993-08-08 01:20:23 by jwe] jwe parents: diff changeset	114
9a4c07481e61 [project @ 1993-08-08 01:20:23 by jwe] jwe parents: diff changeset	115 integrand_fcn f;
7805 62affb34e648 Make quad work with single precision David Bateman <dbateman@free.fr> parents: 7231 diff changeset	116 float_integrand_fcn ff;
3 9a4c07481e61 [project @ 1993-08-08 01:20:23 by jwe] jwe parents: diff changeset	117 };
9a4c07481e61 [project @ 1993-08-08 01:20:23 by jwe] jwe parents: diff changeset	118
1859 43248236fcd9 [project @ 1996-02-04 10:00:46 by jwe] jwe parents: 1536 diff changeset	119 class
6108 143b556ce725 [project @ 2006-10-27 01:45:54 by jwe] jwe parents: 5775 diff changeset	120 OCTAVE_API
1859 43248236fcd9 [project @ 1996-02-04 10:00:46 by jwe] jwe parents: 1536 diff changeset	121 DefQuad : public Quad
3 9a4c07481e61 [project @ 1993-08-08 01:20:23 by jwe] jwe parents: diff changeset	122 {
17769 49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	123 public:
3 9a4c07481e61 [project @ 1993-08-08 01:20:23 by jwe] jwe parents: diff changeset	124
1859 43248236fcd9 [project @ 1996-02-04 10:00:46 by jwe] jwe parents: 1536 diff changeset	125 DefQuad (integrand_fcn fcn)
43248236fcd9 [project @ 1996-02-04 10:00:46 by jwe] jwe parents: 1536 diff changeset	126 : Quad (fcn), lower_limit (0.0), upper_limit (1.0), singularities () { }
1528 dc527156c38c [project @ 1995-10-05 01:44:18 by jwe] jwe parents: 1486 diff changeset	127
1859 43248236fcd9 [project @ 1996-02-04 10:00:46 by jwe] jwe parents: 1536 diff changeset	128 DefQuad (integrand_fcn fcn, double ll, double ul)
43248236fcd9 [project @ 1996-02-04 10:00:46 by jwe] jwe parents: 1536 diff changeset	129 : Quad (fcn), lower_limit (ll), upper_limit (ul), singularities () { }
1528 dc527156c38c [project @ 1995-10-05 01:44:18 by jwe] jwe parents: 1486 diff changeset	130
dc527156c38c [project @ 1995-10-05 01:44:18 by jwe] jwe parents: 1486 diff changeset	131 DefQuad (integrand_fcn fcn, double ll, double ul,
10312 cbc402e64d83 untabify liboctave header files John W. Eaton <jwe@octave.org> parents: 10158 diff changeset	132 const ColumnVector& sing)
1859 43248236fcd9 [project @ 1996-02-04 10:00:46 by jwe] jwe parents: 1536 diff changeset	133 : Quad (fcn), lower_limit (ll), upper_limit (ul),
43248236fcd9 [project @ 1996-02-04 10:00:46 by jwe] jwe parents: 1536 diff changeset	134 singularities (sing) { }
1528 dc527156c38c [project @ 1995-10-05 01:44:18 by jwe] jwe parents: 1486 diff changeset	135
1859 43248236fcd9 [project @ 1996-02-04 10:00:46 by jwe] jwe parents: 1536 diff changeset	136 DefQuad (integrand_fcn fcn, const ColumnVector& sing)
43248236fcd9 [project @ 1996-02-04 10:00:46 by jwe] jwe parents: 1536 diff changeset	137 : Quad (fcn), lower_limit (0.0), upper_limit (1.0),
43248236fcd9 [project @ 1996-02-04 10:00:46 by jwe] jwe parents: 1536 diff changeset	138 singularities (sing) { }
1528 dc527156c38c [project @ 1995-10-05 01:44:18 by jwe] jwe parents: 1486 diff changeset	139
2424 b5c3b08f1bab [project @ 1996-10-25 00:44:08 by jwe] jwe parents: 1993 diff changeset	140 ~DefQuad (void) { }
b5c3b08f1bab [project @ 1996-10-25 00:44:08 by jwe] jwe parents: 1993 diff changeset	141
17769 49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	142 double do_integrate (octave_idx_type& ier, octave_idx_type& neval,
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	143 double& abserr);
3 9a4c07481e61 [project @ 1993-08-08 01:20:23 by jwe] jwe parents: diff changeset	144
21137 623fc7d08cc6 maint: Clean up compile warnings in liboctave from cset 7cac4e7458f2. Rik <rik@octave.org> parents: 20791 diff changeset	145 OCTAVE_NORETURN float do_integrate (octave_idx_type& ier,
623fc7d08cc6 maint: Clean up compile warnings in liboctave from cset 7cac4e7458f2. Rik <rik@octave.org> parents: 20791 diff changeset	146 octave_idx_type& neval, float& abserr);
7805 62affb34e648 Make quad work with single precision David Bateman <dbateman@free.fr> parents: 7231 diff changeset	147
17769 49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	148 private:
3 9a4c07481e61 [project @ 1993-08-08 01:20:23 by jwe] jwe parents: diff changeset	149
9a4c07481e61 [project @ 1993-08-08 01:20:23 by jwe] jwe parents: diff changeset	150 double lower_limit;
9a4c07481e61 [project @ 1993-08-08 01:20:23 by jwe] jwe parents: diff changeset	151 double upper_limit;
9a4c07481e61 [project @ 1993-08-08 01:20:23 by jwe] jwe parents: diff changeset	152
1528 dc527156c38c [project @ 1995-10-05 01:44:18 by jwe] jwe parents: 1486 diff changeset	153 ColumnVector singularities;
3 9a4c07481e61 [project @ 1993-08-08 01:20:23 by jwe] jwe parents: diff changeset	154 };
9a4c07481e61 [project @ 1993-08-08 01:20:23 by jwe] jwe parents: diff changeset	155
1859 43248236fcd9 [project @ 1996-02-04 10:00:46 by jwe] jwe parents: 1536 diff changeset	156 class
6108 143b556ce725 [project @ 2006-10-27 01:45:54 by jwe] jwe parents: 5775 diff changeset	157 OCTAVE_API
1859 43248236fcd9 [project @ 1996-02-04 10:00:46 by jwe] jwe parents: 1536 diff changeset	158 IndefQuad : public Quad
3 9a4c07481e61 [project @ 1993-08-08 01:20:23 by jwe] jwe parents: diff changeset	159 {
17769 49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	160 public:
3 9a4c07481e61 [project @ 1993-08-08 01:20:23 by jwe] jwe parents: diff changeset	161
9a4c07481e61 [project @ 1993-08-08 01:20:23 by jwe] jwe parents: diff changeset	162 enum IntegralType { bound_to_inf, neg_inf_to_bound, doubly_infinite };
9a4c07481e61 [project @ 1993-08-08 01:20:23 by jwe] jwe parents: diff changeset	163
1859 43248236fcd9 [project @ 1996-02-04 10:00:46 by jwe] jwe parents: 1536 diff changeset	164 IndefQuad (integrand_fcn fcn)
11501 331fcc41ca23 data member initialization fixes John W. Eaton <jwe@octave.org> parents: 10312 diff changeset	165 : Quad (fcn), bound (0.0), type (bound_to_inf), integration_error (0) { }
1528 dc527156c38c [project @ 1995-10-05 01:44:18 by jwe] jwe parents: 1486 diff changeset	166
1859 43248236fcd9 [project @ 1996-02-04 10:00:46 by jwe] jwe parents: 1536 diff changeset	167 IndefQuad (integrand_fcn fcn, double b, IntegralType t)
11501 331fcc41ca23 data member initialization fixes John W. Eaton <jwe@octave.org> parents: 10312 diff changeset	168 : Quad (fcn), bound (b), type (t), integration_error (0) { }
1528 dc527156c38c [project @ 1995-10-05 01:44:18 by jwe] jwe parents: 1486 diff changeset	169
2424 b5c3b08f1bab [project @ 1996-10-25 00:44:08 by jwe] jwe parents: 1993 diff changeset	170 ~IndefQuad (void) { }
b5c3b08f1bab [project @ 1996-10-25 00:44:08 by jwe] jwe parents: 1993 diff changeset	171
17769 49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	172 double do_integrate (octave_idx_type& ier, octave_idx_type& neval,
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	173 double& abserr);
3 9a4c07481e61 [project @ 1993-08-08 01:20:23 by jwe] jwe parents: diff changeset	174
21137 623fc7d08cc6 maint: Clean up compile warnings in liboctave from cset 7cac4e7458f2. Rik <rik@octave.org> parents: 20791 diff changeset	175 OCTAVE_NORETURN float do_integrate (octave_idx_type& ier,
623fc7d08cc6 maint: Clean up compile warnings in liboctave from cset 7cac4e7458f2. Rik <rik@octave.org> parents: 20791 diff changeset	176 octave_idx_type& neval, float& abserr);
7805 62affb34e648 Make quad work with single precision David Bateman <dbateman@free.fr> parents: 7231 diff changeset	177
17769 49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	178 private:
3 9a4c07481e61 [project @ 1993-08-08 01:20:23 by jwe] jwe parents: diff changeset	179
9a4c07481e61 [project @ 1993-08-08 01:20:23 by jwe] jwe parents: diff changeset	180 double bound;
9a4c07481e61 [project @ 1993-08-08 01:20:23 by jwe] jwe parents: diff changeset	181 IntegralType type;
1859 43248236fcd9 [project @ 1996-02-04 10:00:46 by jwe] jwe parents: 1536 diff changeset	182 int integration_error;
3 9a4c07481e61 [project @ 1993-08-08 01:20:23 by jwe] jwe parents: diff changeset	183 };
9a4c07481e61 [project @ 1993-08-08 01:20:23 by jwe] jwe parents: diff changeset	184
7805 62affb34e648 Make quad work with single precision David Bateman <dbateman@free.fr> parents: 7231 diff changeset	185 class
62affb34e648 Make quad work with single precision David Bateman <dbateman@free.fr> parents: 7231 diff changeset	186 OCTAVE_API
62affb34e648 Make quad work with single precision David Bateman <dbateman@free.fr> parents: 7231 diff changeset	187 FloatDefQuad : public Quad
62affb34e648 Make quad work with single precision David Bateman <dbateman@free.fr> parents: 7231 diff changeset	188 {
17769 49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	189 public:
7805 62affb34e648 Make quad work with single precision David Bateman <dbateman@free.fr> parents: 7231 diff changeset	190
62affb34e648 Make quad work with single precision David Bateman <dbateman@free.fr> parents: 7231 diff changeset	191 FloatDefQuad (float_integrand_fcn fcn)
62affb34e648 Make quad work with single precision David Bateman <dbateman@free.fr> parents: 7231 diff changeset	192 : Quad (fcn), lower_limit (0.0), upper_limit (1.0), singularities () { }
62affb34e648 Make quad work with single precision David Bateman <dbateman@free.fr> parents: 7231 diff changeset	193
62affb34e648 Make quad work with single precision David Bateman <dbateman@free.fr> parents: 7231 diff changeset	194 FloatDefQuad (float_integrand_fcn fcn, float ll, float ul)
62affb34e648 Make quad work with single precision David Bateman <dbateman@free.fr> parents: 7231 diff changeset	195 : Quad (fcn), lower_limit (ll), upper_limit (ul), singularities () { }
62affb34e648 Make quad work with single precision David Bateman <dbateman@free.fr> parents: 7231 diff changeset	196
62affb34e648 Make quad work with single precision David Bateman <dbateman@free.fr> parents: 7231 diff changeset	197 FloatDefQuad (float_integrand_fcn fcn, float ll, float ul,
17769 49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	198 const FloatColumnVector& sing)
7805 62affb34e648 Make quad work with single precision David Bateman <dbateman@free.fr> parents: 7231 diff changeset	199 : Quad (fcn), lower_limit (ll), upper_limit (ul),
62affb34e648 Make quad work with single precision David Bateman <dbateman@free.fr> parents: 7231 diff changeset	200 singularities (sing) { }
62affb34e648 Make quad work with single precision David Bateman <dbateman@free.fr> parents: 7231 diff changeset	201
62affb34e648 Make quad work with single precision David Bateman <dbateman@free.fr> parents: 7231 diff changeset	202 FloatDefQuad (float_integrand_fcn fcn, const FloatColumnVector& sing)
62affb34e648 Make quad work with single precision David Bateman <dbateman@free.fr> parents: 7231 diff changeset	203 : Quad (fcn), lower_limit (0.0), upper_limit (1.0),
62affb34e648 Make quad work with single precision David Bateman <dbateman@free.fr> parents: 7231 diff changeset	204 singularities (sing) { }
62affb34e648 Make quad work with single precision David Bateman <dbateman@free.fr> parents: 7231 diff changeset	205
62affb34e648 Make quad work with single precision David Bateman <dbateman@free.fr> parents: 7231 diff changeset	206 ~FloatDefQuad (void) { }
62affb34e648 Make quad work with single precision David Bateman <dbateman@free.fr> parents: 7231 diff changeset	207
21137 623fc7d08cc6 maint: Clean up compile warnings in liboctave from cset 7cac4e7458f2. Rik <rik@octave.org> parents: 20791 diff changeset	208 OCTAVE_NORETURN double do_integrate (octave_idx_type& ier,
623fc7d08cc6 maint: Clean up compile warnings in liboctave from cset 7cac4e7458f2. Rik <rik@octave.org> parents: 20791 diff changeset	209 octave_idx_type& neval, double& abserr);
7805 62affb34e648 Make quad work with single precision David Bateman <dbateman@free.fr> parents: 7231 diff changeset	210
17769 49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	211 float do_integrate (octave_idx_type& ier, octave_idx_type& neval,
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	212 float& abserr);
7805 62affb34e648 Make quad work with single precision David Bateman <dbateman@free.fr> parents: 7231 diff changeset	213
17769 49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	214 private:
7805 62affb34e648 Make quad work with single precision David Bateman <dbateman@free.fr> parents: 7231 diff changeset	215
62affb34e648 Make quad work with single precision David Bateman <dbateman@free.fr> parents: 7231 diff changeset	216 float lower_limit;
62affb34e648 Make quad work with single precision David Bateman <dbateman@free.fr> parents: 7231 diff changeset	217 float upper_limit;
62affb34e648 Make quad work with single precision David Bateman <dbateman@free.fr> parents: 7231 diff changeset	218
62affb34e648 Make quad work with single precision David Bateman <dbateman@free.fr> parents: 7231 diff changeset	219 FloatColumnVector singularities;
62affb34e648 Make quad work with single precision David Bateman <dbateman@free.fr> parents: 7231 diff changeset	220 };
62affb34e648 Make quad work with single precision David Bateman <dbateman@free.fr> parents: 7231 diff changeset	221
62affb34e648 Make quad work with single precision David Bateman <dbateman@free.fr> parents: 7231 diff changeset	222 class
62affb34e648 Make quad work with single precision David Bateman <dbateman@free.fr> parents: 7231 diff changeset	223 OCTAVE_API
62affb34e648 Make quad work with single precision David Bateman <dbateman@free.fr> parents: 7231 diff changeset	224 FloatIndefQuad : public Quad
62affb34e648 Make quad work with single precision David Bateman <dbateman@free.fr> parents: 7231 diff changeset	225 {
17769 49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	226 public:
7805 62affb34e648 Make quad work with single precision David Bateman <dbateman@free.fr> parents: 7231 diff changeset	227
62affb34e648 Make quad work with single precision David Bateman <dbateman@free.fr> parents: 7231 diff changeset	228 enum IntegralType { bound_to_inf, neg_inf_to_bound, doubly_infinite };
62affb34e648 Make quad work with single precision David Bateman <dbateman@free.fr> parents: 7231 diff changeset	229
62affb34e648 Make quad work with single precision David Bateman <dbateman@free.fr> parents: 7231 diff changeset	230 FloatIndefQuad (float_integrand_fcn fcn)
11501 331fcc41ca23 data member initialization fixes John W. Eaton <jwe@octave.org> parents: 10312 diff changeset	231 : Quad (fcn), bound (0.0), type (bound_to_inf), integration_error (0) { }
7805 62affb34e648 Make quad work with single precision David Bateman <dbateman@free.fr> parents: 7231 diff changeset	232
62affb34e648 Make quad work with single precision David Bateman <dbateman@free.fr> parents: 7231 diff changeset	233 FloatIndefQuad (float_integrand_fcn fcn, double b, IntegralType t)
11501 331fcc41ca23 data member initialization fixes John W. Eaton <jwe@octave.org> parents: 10312 diff changeset	234 : Quad (fcn), bound (b), type (t), integration_error (0) { }
7805 62affb34e648 Make quad work with single precision David Bateman <dbateman@free.fr> parents: 7231 diff changeset	235
62affb34e648 Make quad work with single precision David Bateman <dbateman@free.fr> parents: 7231 diff changeset	236 ~FloatIndefQuad (void) { }
62affb34e648 Make quad work with single precision David Bateman <dbateman@free.fr> parents: 7231 diff changeset	237
21137 623fc7d08cc6 maint: Clean up compile warnings in liboctave from cset 7cac4e7458f2. Rik <rik@octave.org> parents: 20791 diff changeset	238 OCTAVE_NORETURN double do_integrate (octave_idx_type& ier,
623fc7d08cc6 maint: Clean up compile warnings in liboctave from cset 7cac4e7458f2. Rik <rik@octave.org> parents: 20791 diff changeset	239 octave_idx_type& neval, double& abserr);
7805 62affb34e648 Make quad work with single precision David Bateman <dbateman@free.fr> parents: 7231 diff changeset	240
17769 49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	241 float do_integrate (octave_idx_type& ier, octave_idx_type& neval,
49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	242 float& abserr);
7805 62affb34e648 Make quad work with single precision David Bateman <dbateman@free.fr> parents: 7231 diff changeset	243
17769 49a5a4be04a1 maint: Use GNU style coding conventions for code in liboctave/ Rik <rik@octave.org> parents: 17744 diff changeset	244 private:
7805 62affb34e648 Make quad work with single precision David Bateman <dbateman@free.fr> parents: 7231 diff changeset	245
62affb34e648 Make quad work with single precision David Bateman <dbateman@free.fr> parents: 7231 diff changeset	246 float bound;
62affb34e648 Make quad work with single precision David Bateman <dbateman@free.fr> parents: 7231 diff changeset	247 IntegralType type;
62affb34e648 Make quad work with single precision David Bateman <dbateman@free.fr> parents: 7231 diff changeset	248 int integration_error;
62affb34e648 Make quad work with single precision David Bateman <dbateman@free.fr> parents: 7231 diff changeset	249 };
62affb34e648 Make quad work with single precision David Bateman <dbateman@free.fr> parents: 7231 diff changeset	250
3 9a4c07481e61 [project @ 1993-08-08 01:20:23 by jwe] jwe parents: diff changeset	251 #endif

Mercurial > octave

annotate liboctave/numeric/Quad.h @ 21218:2bb4e5a6290d