Mercurial > octave

annotate libinterp/corefcn/quadcc.cc @ 33477:3362e398d702 default tip @

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Update to gnulib revision 92d80242ad1344b5364ca9bd1d995d68c3a73ef7. * bootstrap-funclib.sh: Update from gnulib. * bootstrap.conf: Update GNULIB_REVISION and remove comments about local changes to bootstrap-funclib.sh. * build-aux/gnulib-bootstrap-git-fetch.diff: Delete patch that is no longer needed.
author Markus Mützel <markus.muetzel@gmx.de>
date Sun, 28 Apr 2024 12:03:16 +0200
parents f53ac65ffba6
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
27923
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
1 ////////////////////////////////////////////////////////////////////////
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
2 //
32632
2e484f9f1f18 maint: update Octave Project Developers copyright for the new year
John W. Eaton <jwe@octave.org>
parents: 31730
diff changeset
3 // Copyright (C) 2010-2024 The Octave Project Developers
27923
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
4 //
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
5 // See the file COPYRIGHT.md in the top-level directory of this
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
6 // distribution or <https://octave.org/copyright/>.
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
7 //
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
8 // This file is part of Octave.
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
9 //
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
10 // Octave is free software: you can redistribute it and/or modify it
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
11 // under the terms of the GNU General Public License as published by
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
12 // the Free Software Foundation, either version 3 of the License, or
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
13 // (at your option) any later version.
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
14 //
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
15 // Octave is distributed in the hope that it will be useful, but
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
16 // WITHOUT ANY WARRANTY; without even the implied warranty of
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
17 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
18 // GNU General Public License for more details.
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
19 //
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
20 // You should have received a copy of the GNU General Public License
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
21 // along with Octave; see the file COPYING. If not, see
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
22 // <https://www.gnu.org/licenses/>.
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
23 //
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
24 ////////////////////////////////////////////////////////////////////////
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
25
21724
aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef"
John W. Eaton <jwe@octave.org>
parents: 21723
diff changeset
26 #if defined (HAVE_CONFIG_H)
21301
40de9f8f23a6 Use '#include "config.h"' rather than <config.h>.
Rik <rik@octave.org>
parents: 21213
diff changeset
27 # include "config.h"
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
28 #endif
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
29
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
30 #include <cmath>
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
31
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
32 #include <algorithm>
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
33
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
34 #include "lo-ieee.h"
19269
65554f5847ac don't include oct-locbuf.h in header files unnecessarily
John W. Eaton <jwe@octave.org>
parents: 19040
diff changeset
35 #include "oct-locbuf.h"
15039
e753177cde93 maint: Move non-dynamically linked functions from DLD-FUNCTIONS/ to corefcn/ directory
Rik <rik@octave.org>
parents: 14854
diff changeset
36
e753177cde93 maint: Move non-dynamically linked functions from DLD-FUNCTIONS/ to corefcn/ directory
Rik <rik@octave.org>
parents: 14854
diff changeset
37 #include "defun.h"
e753177cde93 maint: Move non-dynamically linked functions from DLD-FUNCTIONS/ to corefcn/ directory
Rik <rik@octave.org>
parents: 14854
diff changeset
38 #include "error.h"
26864
041caa61ed34 use get_function_handle instead of extract_function
John W. Eaton <jwe@octave.org>
parents: 26376
diff changeset
39 #include "interpreter-private.h"
31730
610a85b0ff62 use interpreter::feval instead of global feval function
John W. Eaton <jwe@octave.org>
parents: 31706
diff changeset
40 #include "interpreter.h"
20940
48b2ad5ee801 maint: Rename oct-obj.[cc|h] to ovl.[cc|h] for clarity.
Rik <rik@octave.org>
parents: 20915
diff changeset
41 #include "ovl.h"
15039
e753177cde93 maint: Move non-dynamically linked functions from DLD-FUNCTIONS/ to corefcn/ directory
Rik <rik@octave.org>
parents: 14854
diff changeset
42 #include "utils.h"
19269
65554f5847ac don't include oct-locbuf.h in header files unnecessarily
John W. Eaton <jwe@octave.org>
parents: 19040
diff changeset
43 #include "variables.h"
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
44
20910
359476667c4c * quadcc.cc: Style fixes.
John W. Eaton <jwe@octave.org>
parents: 20909
diff changeset
45 // Extended debugging.
15995
906ae1705522 quadcc.cc: Use heap instead of stack for large temporary variables.
Rik <rik@octave.org>
parents: 15994
diff changeset
46 #define DEBUG_QUADCC 0
906ae1705522 quadcc.cc: Use heap instead of stack for large temporary variables.
Rik <rik@octave.org>
parents: 15994
diff changeset
47
31605
e88a07dec498 maint: Use macros to begin/end C++ namespaces.
Rik <rik@octave.org>
parents: 31190
diff changeset
48 OCTAVE_BEGIN_NAMESPACE(octave)
29961
7d6709900da7 eliminate octave:: namespace tags in DEFUN and DEFMETHOD and more
John W. Eaton <jwe@octave.org>
parents: 29958
diff changeset
49
20910
359476667c4c * quadcc.cc: Style fixes.
John W. Eaton <jwe@octave.org>
parents: 20909
diff changeset
50 // Define the minimum size of the interval heap.
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
51 static const int MIN_CQUAD_HEAPSIZE = 200;
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
52
20910
359476667c4c * quadcc.cc: Style fixes.
John W. Eaton <jwe@octave.org>
parents: 20909
diff changeset
53 // Data of a single interval.
30036
80373844f8b2 maint: Use C++ style definition of struct rather than C style in quadcc.cc
Rik <rik@octave.org>
parents: 29961
diff changeset
54 struct cquad_ival
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
55 {
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
56 double a, b;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
57 double c[64];
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
58 double fx[33];
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
59 double igral, err;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
60 int depth, rdepth, ndiv;
30036
80373844f8b2 maint: Use C++ style definition of struct rather than C style in quadcc.cc
Rik <rik@octave.org>
parents: 29961
diff changeset
61 };
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
62
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
63 // Define relative tolerance used when deciding to drop an interval.
32626
395ab2ffb0c2 maint: Use constexpr where possible for performance.
Rik <rik@octave.org>
parents: 31730
diff changeset
64 static constexpr double DROP_RELTOL = std::numeric_limits<double>::epsilon () * 10;
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
65
20910
359476667c4c * quadcc.cc: Style fixes.
John W. Eaton <jwe@octave.org>
parents: 20909
diff changeset
66 // Some constants and matrices that we'll need.
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
67
17787
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
68 static const double xi[33] =
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
69 {
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
70 -1., -0.99518472667219688624, -0.98078528040323044912,
31607
aac27ad79be6 maint: Re-indent code after switch to using namespace macros.
Rik <rik@octave.org>
parents: 31605
diff changeset
71 -0.95694033573220886493, -0.92387953251128675612,
aac27ad79be6 maint: Re-indent code after switch to using namespace macros.
Rik <rik@octave.org>
parents: 31605
diff changeset
72 -0.88192126434835502970, -0.83146961230254523708,
aac27ad79be6 maint: Re-indent code after switch to using namespace macros.
Rik <rik@octave.org>
parents: 31605
diff changeset
73 -0.77301045336273696082, -0.70710678118654752440,
aac27ad79be6 maint: Re-indent code after switch to using namespace macros.
Rik <rik@octave.org>
parents: 31605
diff changeset
74 -0.63439328416364549822, -0.55557023301960222475,
aac27ad79be6 maint: Re-indent code after switch to using namespace macros.
Rik <rik@octave.org>
parents: 31605
diff changeset
75 -0.47139673682599764857, -0.38268343236508977173,
aac27ad79be6 maint: Re-indent code after switch to using namespace macros.
Rik <rik@octave.org>
parents: 31605
diff changeset
76 -0.29028467725446236764, -0.19509032201612826785,
aac27ad79be6 maint: Re-indent code after switch to using namespace macros.
Rik <rik@octave.org>
parents: 31605
diff changeset
77 -0.098017140329560601995, 0., 0.098017140329560601995,
aac27ad79be6 maint: Re-indent code after switch to using namespace macros.
Rik <rik@octave.org>
parents: 31605
diff changeset
78 0.19509032201612826785, 0.29028467725446236764, 0.38268343236508977173,
aac27ad79be6 maint: Re-indent code after switch to using namespace macros.
Rik <rik@octave.org>
parents: 31605
diff changeset
79 0.47139673682599764857, 0.55557023301960222475, 0.63439328416364549822,
aac27ad79be6 maint: Re-indent code after switch to using namespace macros.
Rik <rik@octave.org>
parents: 31605
diff changeset
80 0.70710678118654752440, 0.77301045336273696082, 0.83146961230254523708,
aac27ad79be6 maint: Re-indent code after switch to using namespace macros.
Rik <rik@octave.org>
parents: 31605
diff changeset
81 0.88192126434835502970, 0.92387953251128675612, 0.95694033573220886493,
aac27ad79be6 maint: Re-indent code after switch to using namespace macros.
Rik <rik@octave.org>
parents: 31605
diff changeset
82 0.98078528040323044912, 0.99518472667219688624, 1.
aac27ad79be6 maint: Re-indent code after switch to using namespace macros.
Rik <rik@octave.org>
parents: 31605
diff changeset
83 };
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
84
17787
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
85 static const double bee[68] =
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
86 {
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
87 0.00000000000000e+00, 2.28868854108532e-01, 0.00000000000000e+00,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
88 -8.15740215243451e-01, 0.00000000000000e+00, 5.31212715259731e-01,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
89 0.00000000000000e+00, 1.38538036812454e-02, 0.00000000000000e+00,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
90 3.74405228908818e-02, 0.00000000000000e+00, 2.12224115039342e-01,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
91 0.00000000000000e+00, -8.16362644507898e-01, 0.00000000000000e+00,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
92 5.35648426691481e-01, 0.00000000000000e+00, 1.52417902753662e-03,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
93 0.00000000000000e+00, 2.63058840550873e-03, 0.00000000000000e+00,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
94 4.15292106318904e-03, 0.00000000000000e+00, 6.97106011119775e-03,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
95 0.00000000000000e+00, 1.35535708431058e-02, 0.00000000000000e+00,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
96 3.52132898424856e-02, 0.00000000000000e+00, 2.06946714741884e-01,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
97 0.00000000000000e+00, -8.15674251283876e-01, 0.00000000000000e+00,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
98 5.38841175520580e-01, 0.00000000000000e+00, 1.84909689577590e-04,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
99 0.00000000000000e+00, 2.90936325007499e-04, 0.00000000000000e+00,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
100 3.84877750950089e-04, 0.00000000000000e+00, 4.86436656735046e-04,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
101 0.00000000000000e+00, 6.08688640346879e-04, 0.00000000000000e+00,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
102 7.66732830740331e-04, 0.00000000000000e+00, 9.82753336104205e-04,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
103 0.00000000000000e+00, 1.29359957505615e-03, 0.00000000000000e+00,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
104 1.76616363801885e-03, 0.00000000000000e+00, 2.53323433039089e-03,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
105 0.00000000000000e+00, 3.88872172121956e-03, 0.00000000000000e+00,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
106 6.58635106468291e-03, 0.00000000000000e+00, 1.30326736343254e-02,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
107 0.00000000000000e+00, 3.44353850696714e-02, 0.00000000000000e+00,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
108 2.05025409531915e-01, 0.00000000000000e+00, -8.14985893995401e-01,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
109 0.00000000000000e+00, 5.40679930965238e-01
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
110 };
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
111
17787
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
112 static const double Lalpha[33] =
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
113 {
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
114 5.77350269189626e-01, 5.16397779494322e-01, 5.07092552837110e-01,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
115 5.03952630678970e-01, 5.02518907629606e-01, 5.01745206004255e-01,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
116 5.01280411827603e-01, 5.00979432868120e-01, 5.00773395667191e-01,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
117 5.00626174321759e-01, 5.00517330712619e-01, 5.00434593736979e-01,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
118 5.00370233297676e-01, 5.00319182924304e-01, 5.00278009473803e-01,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
119 5.00244319584578e-01, 5.00216403386025e-01, 5.00193012939056e-01,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
120 5.00173220168024e-01, 5.00156323280355e-01, 5.00141783641018e-01,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
121 5.00129182278347e-01, 5.00118189340972e-01, 5.00108542278496e-01,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
122 5.00100030010004e-01, 5.00092481273333e-01, 5.00085755939229e-01,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
123 5.00079738458365e-01, 5.00074332862969e-01, 5.00069458915387e-01,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
124 5.00065049112355e-01, 5.00061046334395e-01, 5.00057401986298e-01
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
125 };
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
126
17787
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
127 static const double Lgamma[33] =
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
128 {
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
129 0.0, 0.0, 5.16397779494322e-01, 5.07092552837110e-01, 5.03952630678970e-01,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
130 5.02518907629606e-01, 5.01745206004255e-01, 5.01280411827603e-01,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
131 5.00979432868120e-01, 5.00773395667191e-01, 5.00626174321759e-01,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
132 5.00517330712619e-01, 5.00434593736979e-01, 5.00370233297676e-01,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
133 5.00319182924304e-01, 5.00278009473803e-01, 5.00244319584578e-01,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
134 5.00216403386025e-01, 5.00193012939056e-01, 5.00173220168024e-01,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
135 5.00156323280355e-01, 5.00141783641018e-01, 5.00129182278347e-01,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
136 5.00118189340972e-01, 5.00108542278496e-01, 5.00100030010003e-01,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
137 5.00092481273333e-01, 5.00085755939229e-01, 5.00079738458365e-01,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
138 5.00074332862969e-01, 5.00069458915387e-01, 5.00065049112355e-01,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
139 5.00061046334395e-01
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
140 };
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
141
17787
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
142 static const double V1inv[5 * 5] =
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
143 {
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
144 .47140452079103168293e-1, .37712361663282534635, .56568542494923801952,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
145 .37712361663282534635, .47140452079103168293e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
146 -.81649658092772603273e-1, -.46188021535170061160, 0,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
147 .46188021535170061160, .81649658092772603273e-1, .15058465048420853962,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
148 .12046772038736683169, -.54210474174315074262, .12046772038736683169,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
149 .15058465048420853962, -.21380899352993950775, .30237157840738178177, -0.,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
150 -.30237157840738178177, .21380899352993950775, .10774960475223581324,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
151 -.21549920950447162648, .21549920950447162648, -.21549920950447162648,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
152 .10774960475223581324
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
153 };
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
154
17787
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
155 static const double V2inv[9 * 9] =
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
156 {
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
157 .11223917161691230546e-1, .10339219839658349826, .19754094204576565761,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
158 .25577315077753587922, .27835314560994251755, .25577315077753587922,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
159 .19754094204576565761, .10339219839658349826, .11223917161691230546e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
160 -.19440394783993476970e-1, -.16544884625069155470, -.24193725566041460608,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
161 -.16953338808305493604, 0.0, .16953338808305493604, .24193725566041460608,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
162 .16544884625069155470, .19440394783993476970e-1, .26466393115406349388e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
163 .17766815796285469394, .11316664642449611462, -.16306601003711325980,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
164 -.30847037493128779631, -.16306601003711325980, .11316664642449611462,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
165 .17766815796285469394, .26466393115406349388e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
166 -.32395302049990834508e-1, -.15521142532414866547,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
167 .88573492664788602740e-1, .29570405784974857322, 0.0,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
168 -.29570405784974857322, -.88573492664788602740e-1, .15521142532414866547,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
169 .32395302049990834508e-1, .41442155673936851246e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
170 .98186757907405608245e-1, -.23056908429499411784,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
171 -.68047008326360625520e-1, .31797435808002456774,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
172 -.68047008326360625520e-1, -.23056908429499411784,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
173 .98186757907405608245e-1, .41442155673936851246e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
174 -.49981120317798783134e-1, -.24861810572835756217e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
175 .23561326072010832539, -.24472785656448415351, 0.0, .24472785656448415351,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
176 -.23561326072010832539, .24861810572835756217e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
177 .49981120317798783134e-1, .79691635865674781228e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
178 -.95725617891693941833e-1, -.57957553356854386344e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
179 .21164072460540271452, -.27529837844505833514, .21164072460540271452,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
180 -.57957553356854386344e-1, -.95725617891693941833e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
181 .79691635865674781228e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
182 -.10894869830716590913, .20131094491947531782, -.15407672674888869038,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
183 .83385723639789791384e-1, 0.0, -.83385723639789791384e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
184 .15407672674888869038, -.20131094491947531782, .10894869830716590913,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
185 .54581057089643838221e-1, -.10916211417928767644, .10916211417928767644,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
186 -.10916211417928767644, .10916211417928767644, -.10916211417928767644,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
187 .10916211417928767644, -.10916211417928767644, .54581057089643838221e-1
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
188 };
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
189
17787
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
190 static const double V3inv[17 * 17] =
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
191 {
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
192 .27729677693590098996e-2, .26423663180333065153e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
193 .53374068493933898312e-1, .77007854739523195947e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
194 .98257061072911596869e-1, .11538049741786835604, .12832134344120884559,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
195 .13612785914022865001, .13888293186236181317, .13612785914022865001,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
196 .12832134344120884559, .11538049741786835604, .98257061072911596869e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
197 .77007854739523195947e-1, .53374068493933898312e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
198 .26423663180333065153e-1, .27729677693590098996e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
199 -.48029210642807413690e-2, -.44887724635478800254e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
200 -.85409520147301089416e-1, -.11090267822061423050, -.12033983162705862441,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
201 -.11102786862182788886, -.85054870109799336515e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
202 -.45998467987742225160e-1, 0.0, .45998467987742225160e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
203 .85054870109799336515e-1, .11102786862182788886, .12033983162705862441,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
204 .11090267822061423050, .85409520147301089416e-1, .44887724635478800254e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
205 .48029210642807413690e-2, .62758546879582030087e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
206 .55561297093529155869e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
207 .93281491021051539742e-1, .92320151237493695139e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
208 .55077987469605684531e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
209 -.96998141716497488255e-2, -.80285961895427405567e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
210 -.13496839655913850224,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
211 -.15512521776684524331, -.13496839655913850224, -.80285961895427405567e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
212 -.96998141716497488255e-2, .55077987469605684531e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
213 .92320151237493695139e-1, .93281491021051539742e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
214 .55561297093529155869e-1, .62758546879582030087e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
215 -.74850969394858555939e-2, -.61751608943839234096e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
216 -.82974150437304275958e-1, -.38437763431942633378e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
217 .45745502025779701366e-1, .12369235652734542162, .14720439712852868239,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
218 .98768034347019704401e-1, 0.0,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
219 -.98768034347019704401e-1, -.14720439712852868239, -.12369235652734542162,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
220 -.45745502025779701366e-1, .38437763431942633378e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
221 .82974150437304275958e-1, .61751608943839234096e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
222 .74850969394858555939e-2, .86710099994384056338e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
223 .64006230103659573344e-1, .58517426396091675690e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
224 -.29743410528985802680e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
225 -.11934127779157114754, -.12686773515361299409, -.30729137153877447035e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
226 .97307836256600731568e-1, .15635811574451401023, .97307836256600731568e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
227 -.30729137153877447035e-1, -.12686773515361299409, -.11934127779157114754,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
228 -.29743410528985802680e-1, .58517426396091675690e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
229 .64006230103659573344e-1, .86710099994384056338e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
230 -.97486395666294840165e-2, -.62995604908060224672e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
231 -.24373234450275529219e-1, .87760984413626872730e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
232 .12205204576993351394,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
233 .16216004196864002088e-1, -.12422320942156845775, -.13682714580929614678,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
234 0.0, .13682714580929614678, .12422320942156845775,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
235 -.16216004196864002088e-1, -.12205204576993351394,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
236 -.87760984413626872730e-1, .24373234450275529219e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
237 .62995604908060224672e-1, .97486395666294840165e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
238 .10956271233750488468e-1, .58613204255294358939e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
239 -.13306063940736618859e-1, -.11606666444978454399,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
240 -.52059598001115805639e-1, .10868540217796151849, .12594452879014618005,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
241 -.44678658254872910434e-1, -.15617684362128533405,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
242 -.44678658254872910434e-1, .12594452879014618005, .10868540217796151849,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
243 -.52059598001115805639e-1, -.11606666444978454399,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
244 -.13306063940736618859e-1, .58613204255294358939e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
245 .10956271233750488468e-1, -.12098893000863087230e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
246 -.51626244709126208453e-1, .48919433304746979330e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
247 .10467644465949427090,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
248 -.48729879523084673782e-1, -.13668732103524749234, .28190838706814496438e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
249 .15434223333238741600, 0.0, -.15434223333238741600,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
250 -.28190838706814496438e-1, .13668732103524749234,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
251 .48729879523084673782e-1, -.10467644465949427090,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
252 -.48919433304746979330e-1, .51626244709126208453e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
253 .12098893000863087230e-1, .13542668300437944822e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
254 .41712033418258689308e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
255 -.76190463272803434388e-1, -.58303943170068132010e-1, .12158068748245606853,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
256 .42121099930651007882e-1, -.14684425840766337756,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
257 -.16108203535058647043e-1, .15698075850757976092,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
258 -.16108203535058647043e-1, -.14684425840766337756,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
259 .42121099930651007882e-1, .12158068748245606853,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
260 -.58303943170068132010e-1, -.76190463272803434388e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
261 .41712033418258689308e-1, .13542668300437944822e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
262 -.14939634995117694417e-1, -.30047246373341564039e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
263 .91624635082546425678e-1, -.79133374319110026377e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
264 -.12292558212072233355, .90013382617762643524e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
265 .84013717196539593395e-1, -.14813033309980695856, 0.0,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
266 .14813033309980695856, -.84013717196539593395e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
267 -.90013382617762643524e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
268 .12292558212072233355, .79133374319110026377e-2, -.91624635082546425678e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
269 .30047246373341564039e-1, .14939634995117694417e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
270 .16986031342807474208e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
271 .15760203882617033601e-1, -.91494054040950941996e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
272 .70082459207876130806e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
273 .53390713710144539104e-1, -.14340746778352039430, .84048122493418898508e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
274 .72456667788091316868e-1, -.15564535320096811360,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
275 .72456667788091316868e-1, .84048122493418898508e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
276 -.14340746778352039430, .53390713710144539104e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
277 .70082459207876130806e-1, -.91494054040950941996e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
278 .15760203882617033601e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
279 .16986031342807474208e-1, -.18994065631858742028e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
280 -.82901821370405592927e-3, .77239669773015192888e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
281 -.10850735431039424680, .47524484622086496464e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
282 .69148184871588737021e-1, -.14829314646228194928, .11992057742398672066,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
283 0.0, -.11992057742398672066, .14829314646228194928,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
284 -.69148184871588737021e-1, -.47524484622086496464e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
285 .10850735431039424680, -.77239669773015192888e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
286 .82901821370405592927e-3, .18994065631858742028e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
287 .22761703826371535132e-1, -.17728848711449643358e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
288 -.47496371572480503788e-1, .10659958402328690063, -.11696013966166296514,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
289 .63073750910894244526e-1, .32928881123602721303e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
290 -.12280950532497593683, .15926189077282729505, -.12280950532497593683,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
291 .32928881123602721303e-1, .63073750910894244526e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
292 -.11696013966166296514, .10659958402328690063, -.47496371572480503788e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
293 -.17728848711449643358e-1, .22761703826371535132e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
294 -.26493215276042203434e-1, .35579780856128386192e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
295 .10447309718398935122e-1, -.68616154085314996709e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
296 .11775363082763954214, -.13918901977011837274, .12312819418827395690,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
297 -.72053565748259077905e-1, 0.0, .72053565748259077905e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
298 -.12312819418827395690, .13918901977011837274, -.11775363082763954214,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
299 .68616154085314996709e-1, -.10447309718398935122e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
300 -.35579780856128386192e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
301 .26493215276042203434e-1, .40742523354399706918e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
302 -.73124912999529117195e-1, .49317266444153837821e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
303 -.13686605413876015320e-1, -.28342624942191100464e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
304 .70371855298258216249e-1, -.10600251632853603875, .12981016288391131812,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
305 -.13817029659318161476, .12981016288391131812, -.10600251632853603875,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
306 .70371855298258216249e-1, -.28342624942191100464e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
307 -.13686605413876015320e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
308 .49317266444153837821e-1, -.73124912999529117195e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
309 .40742523354399706918e-1, -.54944368958699908688e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
310 .10777725663147408190, -.10152395581538265428, .91369146312596428468e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
311 -.77703071757424700773e-1, .61050911730999815031e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
312 -.42052599404498348871e-1, .21438229266251454773e-1, 0.0,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
313 -.21438229266251454773e-1, .42052599404498348871e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
314 -.61050911730999815031e-1, .77703071757424700773e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
315 -.91369146312596428468e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
316 .10152395581538265428, -.10777725663147408190, .54944368958699908688e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
317 .27485608464748840573e-1, -.54971216929497681146e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
318 .54971216929497681146e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
319 -.54971216929497681146e-1, .54971216929497681146e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
320 -.54971216929497681146e-1, .54971216929497681146e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
321 -.54971216929497681146e-1, .54971216929497681146e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
322 -.54971216929497681146e-1, .54971216929497681146e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
323 -.54971216929497681146e-1, .54971216929497681146e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
324 -.54971216929497681146e-1, .54971216929497681146e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
325 -.54971216929497681146e-1, .27485608464748840573e-1
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
326 };
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
327
17787
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
328 static const double V4inv[33 * 33] =
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
329 {
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
330 .69120897476690862600e-3, .66419939766331555194e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
331 .13600665164323186111e-1, .20122785860913684493e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
332 .26583214101668429944e-1, .32712713318999268739e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
333 .38576221976287138036e-1, .44033030938268925133e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
334 .49092709529622799673e-1, .53657949874312515646e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
335 .57724533144734311859e-1, .61219564530655179096e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
336 .64138907503837875026e-1, .66427905189318792009e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
337 .68088956652280022887e-1, .69083051391555695878e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
338 .69422738116739271449e-1, .69083051391555695878e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
339 .68088956652280022887e-1, .66427905189318792009e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
340 .64138907503837875026e-1, .61219564530655179096e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
341 .57724533144734311859e-1, .53657949874312515646e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
342 .49092709529622799673e-1, .44033030938268925133e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
343 .38576221976287138036e-1, .32712713318999268739e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
344 .26583214101668429944e-1, .20122785860913684493e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
345 .13600665164323186111e-1, .66419939766331555194e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
346 .69120897476690862600e-3, -.11972090629438798134e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
347 -.11448874821643225573e-1, -.23104401104002905904e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
348 -.33352899418646530133e-1, -.42538626424075425908e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
349 -.49969730733911825941e-1, -.55555454015360728353e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
350 -.58955533624852604918e-1, -.60126044219122513907e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
351 -.58959430451175833624e-1, -.55546925396227130606e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
352 -.49984739749347973762e-1, -.42513009141170294365e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
353 -.33399140950669746346e-1, -.23007690803851790829e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
354 -.11728275717520066169e-1, 0.0, .11728275717520066169e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
355 .23007690803851790829e-1, .33399140950669746346e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
356 .42513009141170294365e-1, .49984739749347973762e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
357 .55546925396227130606e-1, .58959430451175833624e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
358 .60126044219122513907e-1, .58955533624852604918e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
359 .55555454015360728353e-1, .49969730733911825941e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
360 .42538626424075425908e-1, .33352899418646530133e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
361 .23104401104002905904e-1, .11448874821643225573e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
362 .11972090629438798134e-2, .15501585012936019146e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
363 .14628781502199620482e-1, .28684915921474815271e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
364 .39299396074628048026e-1, .46393418975496284204e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
365 .48756902531094699526e-1, .46331333488337494692e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
366 .39012645376980228775e-1, .27452795421085791153e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
367 .12430953621169863781e-1, -.47682978056024928800e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
368 -.22825828045428973853e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
369 -.40195512090720278312e-1, -.55503004262826221955e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
370 -.67424537752827046308e-1, -.75020199300113606452e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
371 -.77607844312483656131e-1, -.75020199300113606452e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
372 -.67424537752827046308e-1, -.55503004262826221955e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
373 -.40195512090720278312e-1, -.22825828045428973853e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
374 -.47682978056024928800e-2, .12430953621169863781e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
375 .27452795421085791153e-1, .39012645376980228775e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
376 .46331333488337494692e-1, .48756902531094699526e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
377 .46393418975496284204e-1, .39299396074628048026e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
378 .28684915921474815271e-1, .14628781502199620482e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
379 .15501585012936019146e-2, -.18377757558949194214e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
380 -.17050470050949761565e-1, -.31952119564923250836e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
381 -.40197423449026348155e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
382 -.41205649520281371624e-1, -.33909965817492272248e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
383 -.19393664422115332144e-1, .56661049630886784692e-3,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
384 .22948272173686561721e-1, .44489719570904738207e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
385 .61790363672287920596e-1, .72121014727028013894e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
386 .73627151185287858579e-1, .65784665375961398923e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
387 .49369676372333667559e-1, .26444326317059715065e-1, 0.0,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
388 -.26444326317059715065e-1, -.49369676372333667559e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
389 -.65784665375961398923e-1, -.73627151185287858579e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
390 -.72121014727028013894e-1, -.61790363672287920596e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
391 -.44489719570904738207e-1, -.22948272173686561721e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
392 -.56661049630886784692e-3, .19393664422115332144e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
393 .33909965817492272248e-1, .41205649520281371624e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
394 .40197423449026348155e-1, .31952119564923250836e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
395 .17050470050949761565e-1, .18377757558949194214e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
396 .20942714740729767769e-2, .18935902405146518232e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
397 .33335840852491735126e-1, .36770680999102286065e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
398 .28873194534132768509e-1, .10267303017729535513e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
399 -.14607738306201572890e-1, -.40139568545572305818e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
400 -.59808326733858291561e-1, -.68528358823372627506e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
401 -.63306535387619244879e-1, -.44508601817574921056e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
402 -.15449116105605395357e-1, .17941083795006546367e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
403 .48747356011657242123e-1, .70329553984201665523e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
404 .78106117292526169663e-1, .70329553984201665523e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
405 .48747356011657242123e-1, .17941083795006546367e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
406 -.15449116105605395357e-1, -.44508601817574921056e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
407 -.63306535387619244879e-1, -.68528358823372627506e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
408 -.59808326733858291561e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
409 -.40139568545572305818e-1, -.14607738306201572890e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
410 .10267303017729535513e-1, .28873194534132768509e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
411 .36770680999102286065e-1, .33335840852491735126e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
412 .18935902405146518232e-1, .20942714740729767769e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
413 -.23245285491878278419e-2, -.20401404737639389919e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
414 -.33019548231022514097e-1, -.29709828426463720091e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
415 -.11760070922697422156e-1, .15987584743850393793e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
416 .43619012891472813485e-1, .61177322409671487721e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
417 .61144030218486655594e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
418 .41895377620089086167e-1, .80232011820644308033e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
419 -.30574701186675900915e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
420 -.62072243008844865848e-1, -.76336186183574765586e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
421 -.68435466095345537115e-1, -.40237669208466966207e-1, 0.0,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
422 .40237669208466966207e-1, .68435466095345537115e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
423 .76336186183574765586e-1, .62072243008844865848e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
424 .30574701186675900915e-1, -.80232011820644308033e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
425 -.41895377620089086167e-1, -.61144030218486655594e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
426 -.61177322409671487721e-1, -.43619012891472813485e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
427 -.15987584743850393793e-1, .11760070922697422156e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
428 .29709828426463720091e-1, .33019548231022514097e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
429 .20401404737639389919e-1, .23245285491878278419e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
430 .25451717261579269307e-2, .21480418595666878775e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
431 .31177212469293007998e-1, .19816333607013379373e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
432 -.72439496274458793681e-2, -.38404203906598342397e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
433 -.57633632255322221046e-1, -.54070547403585392952e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
434 -.26249823354368866005e-1, .15643058212336881516e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
435 .54539832735118677194e-1, .73283028002473989724e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
436 .62835303524135936213e-1, .26175977027801048141e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
437 -.22193636309998606610e-1, -.62597049956093311234e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
438 -.78206986173170212505e-1, -.62597049956093311234e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
439 -.22193636309998606610e-1, .26175977027801048141e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
440 .62835303524135936213e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
441 .73283028002473989724e-1, .54539832735118677194e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
442 .15643058212336881516e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
443 -.26249823354368866005e-1, -.54070547403585392952e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
444 -.57633632255322221046e-1, -.38404203906598342397e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
445 -.72439496274458793681e-2, .19816333607013379373e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
446 .31177212469293007998e-1, .21480418595666878775e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
447 .25451717261579269307e-2, -.27506573922483820005e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
448 -.22224442095099251870e-1, -.27949927254215773020e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
449 -.80918481053370034987e-2, .25121859354449306916e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
450 .51563535009373061074e-1, .51936965107145960512e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
451 .22146626648171527753e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
452 -.24172689882103382748e-1, -.61731229104853568296e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
453 -.68477262429344201201e-1, -.38311232728303704742e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
454 .14160578713659552679e-1, .61248813427564184033e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
455 .77136328841293031805e-1, .52514801765183697988e-1, 0.0,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
456 -.52514801765183697988e-1, -.77136328841293031805e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
457 -.61248813427564184033e-1, -.14160578713659552679e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
458 .38311232728303704742e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
459 .68477262429344201201e-1, .61731229104853568296e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
460 .24172689882103382748e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
461 -.22146626648171527753e-1, -.51936965107145960512e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
462 -.51563535009373061074e-1, -.25121859354449306916e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
463 .80918481053370034987e-2, .27949927254215773020e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
464 .22224442095099251870e-1, .27506573922483820005e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
465 .29562461131654311467e-2, .22630271480554450613e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
466 .23547399831373800971e-1, -.43964593440902476642e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
467 -.39055315767504970597e-1, -.52369643937940066804e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
468 -.28506131614971613422e-1, .19906048093338832322e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
469 .60408880866392420279e-1, .62493397473656883090e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
470 .21391278377641297859e-1, -.37302864786623254746e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
471 -.73665127933539496872e-1, -.61706142476854010202e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
472 -.78065168882546327888e-2, .52335307373945544428e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
473 .78278746279419264777e-1, .52335307373945544428e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
474 -.78065168882546327888e-2, -.61706142476854010202e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
475 -.73665127933539496872e-1, -.37302864786623254746e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
476 .21391278377641297859e-1, .62493397473656883090e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
477 .60408880866392420279e-1, .19906048093338832322e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
478 -.28506131614971613422e-1, -.52369643937940066804e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
479 -.39055315767504970597e-1, -.43964593440902476642e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
480 .23547399831373800971e-1, .22630271480554450613e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
481 .29562461131654311467e-2, -.31515718415504761303e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
482 -.22739451096655080673e-1, -.18157123602272119779e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
483 .16496480897167303621e-1, .46921166788569301124e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
484 .40644395739978416354e-1, -.46275803430732216900e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
485 -.52883375891308909486e-1, -.61116483226324111734e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
486 -.17411698764545629853e-1, .44773430013166822765e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
487 .73441577962383869198e-1, .42127368371995472815e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
488 -.25504645957196772465e-1, -.74126818045972742488e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
489 -.62780077864719287317e-1, 0.0, .62780077864719287317e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
490 .74126818045972742488e-1, .25504645957196772465e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
491 -.42127368371995472815e-1, -.73441577962383869198e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
492 -.44773430013166822765e-1, .17411698764545629853e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
493 .61116483226324111734e-1, .52883375891308909486e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
494 .46275803430732216900e-2, -.40644395739978416354e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
495 -.46921166788569301124e-1, -.16496480897167303621e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
496 .18157123602272119779e-1, .22739451096655080673e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
497 .31515718415504761303e-2, .33536559294882188208e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
498 .22535348942792006185e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
499 .12048629300953560767e-1, -.27166076791299493403e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
500 -.47492745604230978367e-1, -.19246623430993153174e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
501 .36231297307556299322e-1, .61713617181636122004e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
502 .25928029734266134490e-1, -.40478700752883602818e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
503 -.71053889866326412049e-1, -.31870824482961751482e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
504 .41515251100219081281e-1, .76481960760098381651e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
505 .36726509155999912440e-1, -.40090067032627055969e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
506 -.78270742903374539397e-1, -.40090067032627055969e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
507 .36726509155999912440e-1, .76481960760098381651e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
508 .41515251100219081281e-1, -.31870824482961751482e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
509 -.71053889866326412049e-1, -.40478700752883602818e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
510 .25928029734266134490e-1, .61713617181636122004e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
511 .36231297307556299322e-1, -.19246623430993153174e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
512 -.47492745604230978367e-1, -.27166076791299493403e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
513 .12048629300953560767e-1, .22535348942792006185e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
514 .33536559294882188208e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
515 -.35481220456925318865e-2, -.22062913693073191150e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
516 -.54487362861834144999e-2, .35438821865804087489e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
517 .40733077820527411302e-1, -.67403098138950720914e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
518 -.55559584405239171054e-1, -.42417050790865158745e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
519 .24499901971884704925e-1, .68721232891705409302e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
520 .34086082787461126592e-1, -.43441000373118474002e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
521 -.73878085292669148950e-1, -.18846995664706657127e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
522 .59827776178286834498e-1, .70644634584085901794e-1, 0.0,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
523 -.70644634584085901794e-1, -.59827776178286834498e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
524 .18846995664706657127e-1, .73878085292669148950e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
525 .43441000373118474002e-1, -.34086082787461126592e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
526 -.68721232891705409302e-1, -.24499901971884704925e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
527 .42417050790865158745e-1, .55559584405239171054e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
528 .67403098138950720914e-2, -.40733077820527411302e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
529 -.35438821865804087489e-1, .54487362861834144999e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
530 .22062913693073191150e-1, .35481220456925318865e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
531 .37554176816665075631e-2, .21297045781589919482e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
532 -.13327293083183431816e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
533 -.40635299172764596484e-1, -.27659860508374175359e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
534 .31089232744083445986e-1, .56113781541334176109e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
535 .37577840643257763400e-2, -.60511227350664590865e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
536 -.46670556446129053853e-1, .33263195878575888247e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
537 .72757324720645228775e-1, .15011712351692283635e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
538 -.65601212994924119078e-1, -.60016855838843789772e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
539 .26220858553188665966e-1, .78322776605833552980e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
540 .26220858553188665966e-1, -.60016855838843789772e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
541 -.65601212994924119078e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
542 .15011712351692283635e-1, .72757324720645228775e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
543 .33263195878575888247e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
544 -.46670556446129053853e-1, -.60511227350664590865e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
545 .37577840643257763400e-2, .56113781541334176109e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
546 .31089232744083445986e-1, -.27659860508374175359e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
547 -.40635299172764596484e-1, -.13327293083183431816e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
548 .21297045781589919482e-1, .37554176816665075631e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
549 -.39566995305720591229e-2, -.20291873414438919995e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
550 .80617453830770930551e-2, .42270189157016547906e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
551 .10332624526759093004e-1, -.48054759547616142024e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
552 -.37678032941171643972e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
553 .36617192625732482394e-1, .61009425973424865714e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
554 -.95589113168026591466e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
555 -.71023202645076922361e-1, -.25097788086808784456e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
556 .62406621963267050244e-1, .56907293171100693511e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
557 -.36435383083882206257e-1, -.75790105119208756348e-1, 0.0,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
558 .75790105119208756348e-1, .36435383083882206257e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
559 -.56907293171100693511e-1, -.62406621963267050244e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
560 .25097788086808784456e-1, .71023202645076922361e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
561 .95589113168026591466e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
562 -.61009425973424865714e-1, -.36617192625732482394e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
563 .37678032941171643972e-1, .48054759547616142024e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
564 -.10332624526759093004e-1, -.42270189157016547906e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
565 -.80617453830770930551e-2, .20291873414438919995e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
566 .39566995305720591229e-2, .41776092289182138591e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
567 .19013221163904414395e-1, -.14420609729849899876e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
568 -.40259160586844441220e-1, .86327811113710831649e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
569 .53564430703021034399e-1, .65469185402150431933e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
570 -.60383116311280629856e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
571 -.25657793784058876939e-1, .58745680576829226900e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
572 .45649937869034420296e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
573 -.49167932056844167772e-1, -.62696614328552187977e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
574 .32540234556426699997e-1, .74280410383464269758e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
575 -.11425672633410999870e-1, -.78280649404686404903e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
576 -.11425672633410999870e-1, .74280410383464269758e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
577 .32540234556426699997e-1, -.62696614328552187977e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
578 -.49167932056844167772e-1, .45649937869034420296e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
579 .58745680576829226900e-1, -.25657793784058876939e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
580 -.60383116311280629856e-1, .65469185402150431933e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
581 .53564430703021034399e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
582 .86327811113710831649e-2, -.40259160586844441220e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
583 -.14420609729849899876e-1, .19013221163904414395e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
584 .41776092289182138591e-2, -.43935502082478059199e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
585 -.17528761237509401631e-1, .20208915249153872535e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
586 .34734743119040669109e-1, -.26275910172353637955e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
587 -.46368003346018878786e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
588 .26800056330709381025e-1, .56681476464606609921e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
589 -.24749011438127255898e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
590 -.64934612189056658992e-1, .20333742247679279535e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
591 .71429299070059318651e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
592 -.14452513210428671266e-1, -.75793341281736586582e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
593 .74717094137184935270e-2, .78034921554757317374e-1, 0.0,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
594 -.78034921554757317374e-1, -.74717094137184935270e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
595 .75793341281736586582e-1, .14452513210428671266e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
596 -.71429299070059318651e-1, -.20333742247679279535e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
597 .64934612189056658992e-1, .24749011438127255898e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
598 -.56681476464606609921e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
599 -.26800056330709381025e-1, .46368003346018878786e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
600 .26275910172353637955e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
601 -.34734743119040669109e-1, -.20208915249153872535e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
602 .17528761237509401631e-1, .43935502082478059199e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
603 .46379089482818671473e-2, .15791188144791287229e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
604 -.25134290048737455284e-1, -.26249795071946841205e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
605 .39960457575789924651e-1, .28111892450146525404e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
606 -.51026476400767918226e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
607 -.27266747278681831364e-1, .60708796647861610865e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
608 .23532306960642115854e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
609 -.68169639871532441111e-1, -.18204924701958312032e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
610 .73822890510656128485e-1, .11373392486424717019e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
611 -.77133324017644609416e-1, -.39295877480342619961e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
612 .78351902829418987960e-1, -.39295877480342619961e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
613 -.77133324017644609416e-1, .11373392486424717019e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
614 .73822890510656128485e-1, -.18204924701958312032e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
615 -.68169639871532441111e-1, .23532306960642115854e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
616 .60708796647861610865e-1, -.27266747278681831364e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
617 -.51026476400767918226e-1, .28111892450146525404e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
618 .39960457575789924651e-1, -.26249795071946841205e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
619 -.25134290048737455284e-1, .15791188144791287229e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
620 .46379089482818671473e-2, -.48780095920069827068e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
621 -.13886961667516983541e-1, .29071311049368895844e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
622 .15480559452075811600e-1, -.47527977686242313065e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
623 -.31929089844361042178e-2, .58015667638415922967e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
624 -.14547915466597622925e-1, -.61067668299848923244e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
625 .35093678009090186851e-1, .55378399159800654657e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
626 -.54277226474891610385e-1, -.42023830782434076509e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
627 .69197384645944912066e-1, .22610783557709586445e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
628 -.77269275900637030185e-1, 0.0, .77269275900637030185e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
629 -.22610783557709586445e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
630 -.69197384645944912066e-1, .42023830782434076509e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
631 .54277226474891610385e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
632 -.55378399159800654657e-1, -.35093678009090186851e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
633 .61067668299848923244e-1, .14547915466597622925e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
634 -.58015667638415922967e-1, .31929089844361042178e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
635 .47527977686242313065e-1, -.15480559452075811600e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
636 -.29071311049368895844e-1, .13886961667516983541e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
637 .48780095920069827068e-2, .51591759101720291381e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
638 .11747497650231330965e-1, -.31777863364694653331e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
639 -.34555825499804605557e-2, .47914131921157015198e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
640 -.22573685920142225247e-1, -.45320344390022666738e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
641 .49660630547172186418e-1, .25707858143963615736e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
642 -.68132707341917233933e-1, .67534860185243140399e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
643 .69268150370037450063e-1, -.41585011920451477177e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
644 -.51622397460510041271e-1, .68408139576363036148e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
645 .18981259024768933323e-1, -.78265472429342305554e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
646 .18981259024768933323e-1, .68408139576363036148e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
647 -.51622397460510041271e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
648 -.41585011920451477177e-1, .69268150370037450063e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
649 .67534860185243140399e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
650 -.68132707341917233933e-1, .25707858143963615736e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
651 .49660630547172186418e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
652 -.45320344390022666738e-1, -.22573685920142225247e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
653 .47914131921157015198e-1, -.34555825499804605557e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
654 -.31777863364694653331e-1, .11747497650231330965e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
655 .51591759101720291381e-2, -.54365757412741340377e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
656 -.94862516619529080191e-2, .33240472093448190877e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
657 -.88698898099681552229e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
658 -.40973252097216337576e-1, .42995673349795657065e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
659 .17320914507876958783e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
660 -.62201292691914856803e-1, .24726274174637346693e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
661 .51320859246515407288e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
662 -.62882063373810501763e-1, -.11003569131725622672e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
663 .73842261324108943465e-1, -.39240120294802923208e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
664 -.49293966443941122807e-1, .73552644778818223475e-1, 0.0,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
665 -.73552644778818223475e-1, .49293966443941122807e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
666 .39240120294802923208e-1, -.73842261324108943465e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
667 .11003569131725622672e-1, .62882063373810501763e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
668 -.51320859246515407288e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
669 -.24726274174637346693e-1, .62201292691914856803e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
670 -.17320914507876958783e-1, -.42995673349795657065e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
671 .40973252097216337576e-1, .88698898099681552229e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
672 -.33240472093448190877e-1, .94862516619529080191e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
673 .54365757412741340377e-2, .57750194549356126240e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
674 .69981166020044116791e-2, -.33274982140403110792e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
675 .20297071020698356116e-1, .27898517839646066582e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
676 -.53368678853282030262e-1, .16656482990394548343e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
677 .46342901447260614255e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
678 -.60536796508149003365e-1, .29109107483842596340e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
679 .63224486124385124504e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
680 -.59028872851312033411e-1, -.14783105962696191734e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
681 .74269399241069253865e-1, -.49053677339382384625e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
682 -.33525466624811186739e-1, .78397349622515386647e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
683 -.33525466624811186739e-1, -.49053677339382384625e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
684 .74269399241069253865e-1, -.14783105962696191734e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
685 -.59028872851312033411e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
686 .63224486124385124504e-1, .29109107483842596340e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
687 -.60536796508149003365e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
688 .46342901447260614255e-1, .16656482990394548343e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
689 -.53368678853282030262e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
690 .27898517839646066582e-1, .20297071020698356116e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
691 -.33274982140403110792e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
692 .69981166020044116791e-2, .57750194549356126240e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
693 -.61100308370519200637e-2, -.44383614355738148616e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
694 .32011283412619094811e-1, -.29965011866372897633e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
695 -.10560682331349193348e-1, .51110336443392506342e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
696 -.45012284729681775492e-1, -.94236825555873320102e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
697 .60860695783141264746e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
698 -.55014628647083368926e-1, -.73474782382499482121e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
699 .66640148475243034781e-1, -.62533116045749887988e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
700 -.38650525912400102585e-2, .68429769005837003777e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
701 -.66984505412544901945e-1, 0.0, .66984505412544901945e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
702 -.68429769005837003777e-1, .38650525912400102585e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
703 .62533116045749887988e-1, -.66640148475243034781e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
704 .73474782382499482121e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
705 .55014628647083368926e-1, -.60860695783141264746e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
706 .94236825555873320102e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
707 .45012284729681775492e-1, -.51110336443392506342e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
708 .10560682331349193348e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
709 .29965011866372897633e-1, -.32011283412619094811e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
710 .44383614355738148616e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
711 .61100308370519200637e-2, .65409373892036191538e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
712 .16350101107071157065e-2, -.29301957285983144319e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
713 .36838667173388832579e-1, -.81922703976491586393e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
714 -.36955670021050133434e-1, .58374851095540469865e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
715 -.31977016246946181856e-1, -.25311073698658094646e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
716 .66674413950106952577e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
717 -.54865713324521039571e-1, -.39797027891537985440e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
718 .62830285264808449064e-1, -.72226313251296100676e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
719 .22560232697133353980e-1, .46455784709904033738e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
720 -.78200930751070349956e-1, .46455784709904033738e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
721 .22560232697133353980e-1, -.72226313251296100676e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
722 .62830285264808449064e-1, -.39797027891537985440e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
723 -.54865713324521039571e-1, .66674413950106952577e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
724 -.25311073698658094646e-1, -.31977016246946181856e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
725 .58374851095540469865e-1, -.36955670021050133434e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
726 -.81922703976491586393e-2, .36838667173388832579e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
727 -.29301957285983144319e-1, .16350101107071157065e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
728 .65409373892036191538e-2, -.69686180931868703196e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
729 .11849538727632789870e-2, .25452286414610537766e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
730 -.40522480651713943230e-1, .25694679053362813183e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
731 .14057118113748390637e-1, -.52037614725803488893e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
732 .58849342223684035589e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
733 -.25075229077361409271e-1, -.29559771094034181083e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
734 .68296746944165720199e-1, -.62890462146423984955e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
735 .14457636466274596445e-1, .45787612031322361496e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
736 -.77231759014655809742e-1, .57881203613910543657e-1, 0.0,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
737 -.57881203613910543657e-1, .77231759014655809742e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
738 -.45787612031322361496e-1, -.14457636466274596445e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
739 .62890462146423984955e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
740 -.68296746944165720199e-1, .29559771094034181083e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
741 .25075229077361409271e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
742 -.58849342223684035589e-1, .52037614725803488893e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
743 -.14057118113748390637e-1, -.25694679053362813183e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
744 .40522480651713943230e-1, -.25452286414610537766e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
745 -.11849538727632789870e-2, .69686180931868703196e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
746 .75611653617520254845e-2, -.43290610418608409141e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
747 -.20277062025115566914e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
748 .40362947027704828926e-1, -.38938808024132120254e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
749 .11831186195916702262e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
750 .28476667401744525357e-1, -.59320969056617684621e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
751 .61101629747436200186e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
752 -.29514834848355389223e-1, -.20668001885001084821e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
753 .62923592802445122793e-1, -.73558456263588833115e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
754 .45314556330160999776e-1, .79031645918426015574e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
755 -.58136953576334689357e-1, .78538474524006405758e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
756 -.58136953576334689357e-1, .79031645918426015574e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
757 .45314556330160999776e-1, -.73558456263588833115e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
758 .62923592802445122793e-1, -.20668001885001084821e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
759 -.29514834848355389223e-1, .61101629747436200186e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
760 -.59320969056617684621e-1, .28476667401744525357e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
761 .11831186195916702262e-1, -.38938808024132120254e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
762 .40362947027704828926e-1, -.20277062025115566914e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
763 -.43290610418608409141e-2, .75611653617520254845e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
764 -.81505692478987769484e-2, .74297333588288568430e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
765 .14314212513540223314e-1, -.36711242251332751607e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
766 .46240027755503814626e-1, -.34921532671769023773e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
767 .46930051972353714773e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
768 .32842770336385381562e-1, -.61317813706529588466e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
769 .67000809902468893103e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
770 -.45337449655535622885e-1, .35794459576271920867e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
771 .41830061526027213385e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
772 -.72091371931944711708e-1, .74150028530317793195e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
773 -.46487632538609942002e-1, 0.0, .46487632538609942002e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
774 -.74150028530317793195e-1, .72091371931944711708e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
775 -.41830061526027213385e-1, -.35794459576271920867e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
776 .45337449655535622885e-1, -.67000809902468893103e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
777 .61317813706529588466e-1, -.32842770336385381562e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
778 -.46930051972353714773e-2, .34921532671769023773e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
779 -.46240027755503814626e-1, .36711242251332751607e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
780 -.14314212513540223314e-1, -.74297333588288568430e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
781 .81505692478987769484e-2, .90693182942442189743e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
782 -.11121000903959576737e-1, -.71308296141317458546e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
783 .29219439765986671645e-1, -.45820286629778129593e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
784 .49088381175879124421e-1, -.35614888785023038938e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
785 .78906970900092777895e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
786 .26262843038404929480e-1, -.56143674270125757857e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
787 .71700220472378350694e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
788 -.66963544500697307945e-1, .42215091779892228883e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
789 -.41338867413966866997e-2, -.36164891772995367321e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
790 .66584367783847858225e-1, -.77874712365070098328e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
791 .66584367783847858225e-1, -.36164891772995367321e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
792 -.41338867413966866997e-2, .42215091779892228883e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
793 -.66963544500697307945e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
794 .71700220472378350694e-1, -.56143674270125757857e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
795 .26262843038404929480e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
796 .78906970900092777895e-2, -.35614888785023038938e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
797 .49088381175879124421e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
798 -.45820286629778129593e-1, .29219439765986671645e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
799 -.71308296141317458546e-2, -.11121000903959576737e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
800 .90693182942442189743e-2, -.99848472706332791043e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
801 .14701271465939718856e-1, -.32917820356048383366e-3,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
802 -.19201195309873585230e-1, .38409681836626963278e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
803 -.51647324405878909521e-1, .54522171113149311354e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
804 -.45040302741689006270e-1, .24183738595685990149e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
805 .42204134165479735097e-2, -.34317295181348742251e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
806 .59542472465494579941e-1, -.74135115907618101263e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
807 .74491937840566532596e-1, -.60042604725161994304e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
808 .33437677409000083169e-1, 0.0,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
809 -.33437677409000083169e-1, .60042604725161994304e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
810 -.74491937840566532596e-1, .74135115907618101263e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
811 -.59542472465494579941e-1, .34317295181348742251e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
812 -.42204134165479735097e-2, -.24183738595685990149e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
813 .45040302741689006270e-1, -.54522171113149311354e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
814 .51647324405878909521e-1, -.38409681836626963278e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
815 .19201195309873585230e-1, .32917820356048383366e-3,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
816 -.14701271465939718856e-1, .99848472706332791043e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
817 .11775579274769383373e-1, -.19892153937316935880e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
818 .95335114477449041055e-2, .57661528440359081617e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
819 -.23382690532380910781e-1, .40237257037170725321e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
820 -.53280289903551636474e-1, .59974361806023689068e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
821 -.58701684061992853224e-1, .49033407111597129616e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
822 -.31818835267847249219e-1, .90800541261162098886e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
823 .16272906819312603838e-1, -.40863896581186229487e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
824 .61346046297517367703e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
825 -.74896047554167268919e-1, .79632642148310325817e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
826 -.74896047554167268919e-1, .61346046297517367703e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
827 -.40863896581186229487e-1, .16272906819312603838e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
828 .90800541261162098886e-2, -.31818835267847249219e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
829 .49033407111597129616e-1, -.58701684061992853224e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
830 .59974361806023689068e-1, -.53280289903551636474e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
831 .40237257037170725321e-1, -.23382690532380910781e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
832 .57661528440359081617e-2, .95335114477449041055e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
833 -.19892153937316935880e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
834 .11775579274769383373e-1, -.13562702617218467450e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
835 .24885419969649845849e-1, -.18368693901908875583e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
836 .81673147806084084638e-2, .47890591326129587131e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
837 -.19313752945227974024e-1, .34065953398362954708e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
838 -.47667045133463415672e-1, .58820377816690514309e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
839 -.66424139824618415970e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
840 .69667606260856092515e-1, -.68102459384364543253e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
841 .61683024923302547971e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
842 -.50771943476441639136e-1, .36110771847327189215e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
843 -.18758028464284563358e-1, 0.0, .18758028464284563358e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
844 -.36110771847327189215e-1, .50771943476441639136e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
845 -.61683024923302547971e-1, .68102459384364543253e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
846 -.69667606260856092515e-1, .66424139824618415970e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
847 -.58820377816690514309e-1, .47667045133463415672e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
848 -.34065953398362954708e-1, .19313752945227974024e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
849 -.47890591326129587131e-2, -.81673147806084084638e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
850 .18368693901908875583e-1, -.24885419969649845849e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
851 .13562702617218467450e-1, .20576545037980523979e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
852 -.40093155172981004337e-1, .36954083167944054826e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
853 -.31856506837591907746e-1, .24996323181546255126e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
854 -.16637165210473614136e-1, .71002706773325085237e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
855 .32478629093205201133e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
856 -.14009562579050569518e-1, .24771262248780618922e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
857 -.35119395835433647559e-1, .44656290368574753171e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
858 -.53015448339647394161e-1, .59875631995693046782e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
859 -.64973208326045193862e-1, .68112280331082143373e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
860 -.69172215234062186994e-1, .68112280331082143373e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
861 -.64973208326045193862e-1, .59875631995693046782e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
862 -.53015448339647394161e-1, .44656290368574753171e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
863 -.35119395835433647559e-1, .24771262248780618922e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
864 -.14009562579050569518e-1, .32478629093205201133e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
865 .71002706773325085237e-2, -.16637165210473614136e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
866 .24996323181546255126e-1, -.31856506837591907746e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
867 .36954083167944054826e-1, -.40093155172981004337e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
868 .20576545037980523979e-1, -.27584914609096156163e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
869 .54904171411058497973e-1, -.54109756419563083153e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
870 .52794234894345577483e-1, -.50970276026831042415e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
871 .48655445537990983379e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
872 -.45872036510847994332e-1, .42646854695899611372e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
873 -.39010960357087507670e-1, .34999369144476467749e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
874 -.30650714874402762189e-1, .26006877464703437057e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
875 -.21112579608213651273e-1, .16014956068786763273e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
876 -.10763099747751940252e-1, .54075888924374485533e-2, 0.0,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
877 -.54075888924374485533e-2, .10763099747751940252e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
878 -.16014956068786763273e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
879 .21112579608213651273e-1, -.26006877464703437057e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
880 .30650714874402762189e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
881 -.34999369144476467749e-1, .39010960357087507670e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
882 -.42646854695899611372e-1, .45872036510847994332e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
883 -.48655445537990983379e-1, .50970276026831042415e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
884 -.52794234894345577483e-1, .54109756419563083153e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
885 -.54904171411058497973e-1, .27584914609096156163e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
886 .13794141262469565740e-1, -.27588282524939131481e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
887 .27588282524939131481e-1, -.27588282524939131481e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
888 .27588282524939131481e-1, -.27588282524939131481e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
889 .27588282524939131481e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
890 -.27588282524939131481e-1, .27588282524939131481e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
891 -.27588282524939131481e-1, .27588282524939131481e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
892 -.27588282524939131481e-1, .27588282524939131481e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
893 -.27588282524939131481e-1, .27588282524939131481e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
894 -.27588282524939131481e-1, .27588282524939131481e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
895 -.27588282524939131481e-1, .27588282524939131481e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
896 -.27588282524939131481e-1, .27588282524939131481e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
897 -.27588282524939131481e-1, .27588282524939131481e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
898 -.27588282524939131481e-1, .27588282524939131481e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
899 -.27588282524939131481e-1, .27588282524939131481e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
900 -.27588282524939131481e-1, .27588282524939131481e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
901 -.27588282524939131481e-1, .27588282524939131481e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
902 -.27588282524939131481e-1, .13794141262469565740e-1
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
903 };
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
904
17787
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
905 static const double Tleft[33 * 33] =
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
906 {
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
907 1., -.86602540378443864678, 0., .33071891388307382381, 0.,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
908 -.20728904939721249057, 0., .15128841196122722208, 0.,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
909 -.11918864298744029244, 0., .98352013661686631224e-1, 0.,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
910 -.83727065404940845733e-1, 0., .72893399403505841203e-1, 0.,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
911 -.64544632643375022436e-1, 0., .57913170372415565639e-1, 0.,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
912 -.52518242575729562263e-1, 0., .48043311993977520457e-1, 0.,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
913 -.44271433659733990243e-1, 0., .41048928022856771981e-1, 0.,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
914 -.38263878662008271459e-1, 0., .35832844026365304501e-1, 0., 0.,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
915 .50000000000000000000, -.96824583655185422130, .57282196186948000082,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
916 .21650635094610966169, -.35903516540862679125, -.97578093724974971969e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
917 .26203921611325660506, .55792409597991015609e-1, -.20644078533943456204,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
918 -.36172381205961199479e-1, .17035068468874958194,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
919 .25371838001497225980e-1, -.14501953125000000000,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
920 -.18786835250972344757e-1, .12625507130328301066,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
921 .14473795929590520582e-1, -.11179458309419422675,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
922 -.11494434254897626155e-1, .10030855351241635862,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
923 .93498556820544479096e-2, -.90964264465390582629e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
924 -.77546391824364392762e-2, .83213457337452292745e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
925 .65358085945588638605e-2, -.76680372422574234569e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
926 -.55835321940047427169e-2, .71098828931825789428e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
927 .48253327982967591019e-2, -.66274981937248958553e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
928 -.42118078245337801387e-2, .62064306433355646267e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
929 .37083386598903548973e-2, 0., 0., .25000000000000000000,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
930 -.73950997288745200531, .83852549156242113615, -.23175620272173946716,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
931 -.37791833195149451496, .25710129174850522325, .21608307321780204633,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
932 -.22844049245646009157, -.14009503000335388415, .19897685605518413847,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
933 .98264706042471226893e-1, -.17445445004279014046,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
934 -.72761100054958328401e-1, .15463589893742108388,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
935 .56056770591708784481e-1, -.13855313872640495158,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
936 -.44517752443294564781e-1, .12534277657695128850,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
937 .36211835346039665762e-1, -.11434398255136139683,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
938 -.30033588409423828125e-1, .10506705408753910481,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
939 .25313077840725783008e-1, -.97149327637744872155e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
940 -.21624927200393328444e-1, .90319582367202122625e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
941 .18688433567711780666e-1, -.84372291635345108584e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
942 -.16312261561845420752e-1, .79149526894804751586e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
943 .14362333871852474757e-1, 0., 0., 0., .12500000000000000000,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
944 -.49607837082461073572, .82265291131801144317, -.59621200088559103072,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
945 -.80054302859059362371e-1, .42612156697795759420,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
946 -.90098145270865592887e-1, -.29769623255090078484, .13630307904779758221,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
947 .21638835185708931831, -.14600247270306082052, -.16348801804014290453,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
948 .14340708728599057249, .12755243353979286190, -.13661523715071346961,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
949 -.10215585947881057394, .12864248070157166547, .83592528025348693602e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
950 -.12066728689302565222, -.69633728678718053052e-1, .11314245177331919532,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
951 .58882939251410088028e-1, -.10621835858758221487,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
952 -.50432266865187597572e-1, .99916834723527771581e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
953 .43672094283057258509e-1, -.94206380251950852413e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
954 -.38181356812697746418e-1, .89035739656537771225e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
955 .33661934598216332678e-1, 0., 0., 0., 0., .62500000000000000000e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
956 -.31093357409581873586, .67604086414949799246, -.75644205980613611039,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
957 .28990586430124175741, .30648508196770360914, -.35801372616842500052,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
958 -.91326869828709014708e-1, .31127929687500000000,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
959 -.90915752838698393094e-2, -.25637381283965534330,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
960 .57601077850322797594e-1, .21019685709225757945,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
961 -.81244992138514014256e-1, -.17375078516720988858,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
962 .92289437277967051125e-1, .14527351914265391374,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
963 -.96675340792832019889e-1, -.12289485697108543415,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
964 .97448175340011084006e-1, .10511755943298339844,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
965 -.96242247086378239657e-1, -.90822942272780513537e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
966 .93966350452322132384e-1, .79189411876493712558e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
967 -.91139307067989309325e-1, -.69613039934383197265e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
968 .88062491671135767870e-1, .61646331729340817494e-1, 0., 0., 0., 0., 0.,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
969 .31250000000000000000e-1, -.18684782411095934408, .50176689760410660236,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
970 -.74784031498626095398, .56472001151566251186, .14842464993721351203e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
971 -.41162920273003120936, .20243071230196532282, .23772054897172750436,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
972 -.24963810923972235950, -.12116179938394678936, .24330535483519110663,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
973 .47903849781124471359e-1, -.22133299683101224293,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
974 -.20542915138527200983e-2, .19653465717678146728,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
975 -.26818172626509178444e-1, -.17319122357631210944,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
976 .45065391411065545445e-1, .15253391395444065941,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
977 -.56543897711725408302e-1, -.13469154928743585367,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
978 .63632471400208840155e-1, .11941684923913523817,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
979 -.67828850207933293098e-1, -.10636309084510652670,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
980 .70095786922999181504e-1, .95187373095150709082e-1, 0., 0., 0., 0., 0.,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
981 0., .15625000000000000000e-1, -.10909562534194485289,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
982 .34842348626527747318, -.64461114561628111443, .69382480527334683659,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
983 -.29551102358528827763, -.25527584713978439819, .38878771718544715394,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
984 -.82956185835347407489e-2, -.31183177761966943912, .12831420840372374767,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
985 .22067618205599434368, -.17569196937129496961, -.14598057000132284135,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
986 .18864406621763419484, .89921002550386645767e-1, -.18571835020187122114,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
987 -.48967672227195481777e-1, .17584685670380332798,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
988 .19267984545067426324e-1, -.16335437520503462738,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
989 .22598055455032407594e-2, .15032800884170631129,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
990 -.17883358353754640871e-1, -.13774837869432209951,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
991 .29227555960587143675e-1, .12604194747513151053, 0., 0., 0., 0., 0., 0.,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
992 0., .78125000000000000000e-2, -.62377810244809812496e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
993 .23080781467370883845, -.50841310636012325368, .69834547012574056043,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
994 -.52572723156526459672, .11464215704954976471e-1, .38698869011491210342,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
995 -.26125646622255207507, -.16951698812361607510, .29773875898928782269,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
996 .20130501202570367491e-1, -.26332493149159310198,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
997 .67734613690401207009e-1, .21207315477103762715, -.11541543390889415193,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
998 -.16249634759782417533, .13885887405041735068, .11996491328010275427,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
999 -.14810432001630926895, -.85177658352556243411e-1, .14918860659904380587,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1000 .57317789510444151564e-1, -.14569827645586660151,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1001 -.35213090145965327390e-1, .13975998126844578198, 0., 0., 0., 0., 0., 0.,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1002 0., 0., .39062500000000000000e-2, -.35101954600803571207e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1003 .14761284084133737720, -.37655033076080192966, .62410290231517322776,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1004 -.64335622317683389875, .28188168266139524244, .22488495672137010675,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1005 -.39393811089283576186, .75184777995770096714e-1, .28472023119398293003,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1006 -.20410910833705899572, -.15590046962908511750, .23814567544617953125,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1007 .54442805556829031204e-1, -.22855930338589720954,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1008 .16303223615756629897e-1, .20172722433875559213,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1009 -.62723406421217419404e-1, -.17012230831020922010,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1010 .91754642766136561612e-1, .13927644821381121197, -.10886600968068418181,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1011 -.11139075654373395292, .11797455976331702879, 0., 0., 0., 0., 0., 0., 0.,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1012 0., 0., .19531250000000000000e-2, -.19506820659607596598e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1013 .91865676095362231937e-1, -.26604607809696493849, .51425874205091288223,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1014 -.66047561132505329292, .48660109511591303851, -.17575661168678285615e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1015 -.36594333408055703366, .29088854695378694533, .11318677346656537927,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1016 -.31110645235730182168, .60733219161008787341e-1, .24333848233620420826,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1017 -.15254312332655419708, -.15995968483455388613, .19010344455215289289,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1018 .86040636766440260000e-1, -.19652589954665259945,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1019 -.27633388517205837713e-1, .18660848552712880387,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1020 -.15942583868416775867e-1, -.16902042462382064786,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1021 .47278526495327740646e-1, 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1022 .97656250000000000000e-3, -.10731084460857378207e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1023 .55939644713816406331e-1, -.18118487371914493668, .39914857299829864263,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1024 -.60812322949933902435, .60011887183061967583, -.26002695805835928795,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1025 -.20883922404786010096, .38988130966114638081, -.11797833550782589082,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1026 -.25231824756239520077, .24817859972953934712, .90516417677868996417e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1027 -.26079073291293066798, .30259468817169480161e-1, .22178195264114178432,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1028 -.10569877864302048175, -.16679648389266977455, .14637718550245050850,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1029 .11219272032739559870, -.16359363640525750353, -.64358194509092101393e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1030 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., .48828125000000000000e-3,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1031 -.58542865274813470967e-2, .33461741635290096452e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1032 -.11979993155896201271, .29580223766987206958, -.51874761979436016742,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1033 .62861483498014306968, -.44868895761051453296, .12567502628371529386e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1034 .35040366183235474275, -.30466868455569500886, -.70903913601490112666e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1035 .30822791893032512740, -.11969443264190207736, -.20764760317621313946,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1036 .20629838355452128532, .95269702915334718507e-1, -.22432624768705133300,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1037 -.33103381593477797101e-2, .20570036048155716333,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1038 -.62208282720094518964e-1, -.17095309330441436348, 0., 0., 0., 0., 0., 0.,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1039 0., 0., 0., 0., 0., 0., .24414062500000000000e-3,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1040 -.31714797501871532475e-2, .19721062526127334100e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1041 -.77311181185536498246e-1, .21124871792841566575, -.41777980401893650886,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1042 .59401977834943551650, -.56132417807488349048, .23433675061367565951,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1043 .20222775295220942126, -.38280372496506190127, .14443804214023095767,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1044 .22268950939178466797, -.27211314150777981984, -.34184876506180717313e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1045 .26006498895669734842, -.97650425186005090107e-1, -.19024527660129101293,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1046 .16789164198044635671, .10875811641651905252, -.19276785058805921298, 0.,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1047 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., .12207031250000000000e-3,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1048 -.17078941137247586143e-2, .11477733754843910060e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1049 -.48887017020924625462e-1, .14634927241421789683, -.32156282683019547854,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1050 .52165811920227223937, -.60001958466396926460, .41208501541480733755,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1051 -.11366945503190350975e-2, -.33968093962672089159, .30955190935923386766,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1052 .40657421856578262210e-1, -.29873400409871531764, .16094481791768257440,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1053 .16876122436206497694, -.23650217045022161255, -.33070260090574765012e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1054 .22985258456375907796, -.68645651043827097771e-1, 0., 0., 0., 0., 0., 0.,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1055 0., 0., 0., 0., 0., 0., 0., 0., .61035156250000000000e-4,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1056 -.91501857608428649078e-3, .66085179496951987952e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1057 -.30383171695850355404e-1, .98840838845366876117e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1058 -.23855447246420318989, .43322017468145613917, -.58049033744876107191,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1059 .52533893203742699346, -.20681056202371946180, -.20180000924562504384,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1060 .37503922291962681797, -.15988102869837429062, -.19823558102762374094,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1061 .28393023878803799622, -.11188133439357510403e-1, -.24730368377168229255,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1062 .14731529061377942839, .14878558042884266021, 0., 0., 0., 0., 0., 0., 0.,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1063 0., 0., 0., 0., 0., 0., 0., 0., .30517578125000000000e-4,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1064 -.48804277318479845551e-3, .37696080990601968396e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1065 -.18603912108994738255e-1, .65325006755649582964e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1066 -.17162960707938819795, .34411527956476971322, -.52289350347082497959,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1067 .57319653625674910592, -.37662253421045430413, -.14099055105384663902e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1068 .33265570610216904208, -.30921265572647566661, -.19911390594166455281e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1069 .28738590811031797718, -.18912130469738472647, -.13235936203215819193,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1070 .25076406142356675279, 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1071 0., 0., 0., .15258789062500000000e-4, -.25928719280954633249e-3,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1072 .21327398937568540428e-2, -.11244626133630732010e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1073 .42375605740664331966e-1, -.12031130345907846211, .26352562258934426830,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1074 -.44590628258512682078, .56682835613700749379, -.49116715128261660395,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1075 .17845943097110339078, .20541650677432497477, -.36739803642257458221,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1076 .16776034069210108273, .17920950989905112908, -.28867732805385066532,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1077 .46473465543376206337e-1, 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1078 0., 0., 0., 0., 0., .76293945312500000000e-5, -.13727610943181290891e-3,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1079 .11979683091449349286e-2, -.67195313034570709806e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1080 .27044920779931968175e-1, -.82472196498517457862e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1081 .19570475044896150093, -.36391620788543817693, .52241392782736588032,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1082 -.54727504974907879912, .34211551468813581183, .31580472732719957762e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1083 -.32830006549176759667, .30563797665254420769, .64905014620683140120e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1084 -.27642986248995073032, 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1085 0., 0., 0., 0., 0., 0., .38146972656250000000e-5,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1086 -.72454147007837596854e-4, .66859847582761390285e-3,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1087 -.39751311980366118437e-2, .17015198650201528366e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1088 -.55443621868993855715e-1, .14157060481641692131, -.28641242619559616836,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1089 .45610665490966615415, -.55262786406029265394, .45818352706035500108,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1090 -.14984403004611673047, -.21163807462970713245, .36007252928843413718,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1091 -.17030961385712954159, 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1092 0., 0., 0., 0., 0., 0., 0., .19073486328125000000e-5,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1093 -.38135049864067468562e-4, .37101393638555730015e-3,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1094 -.23305339886279723213e-2, .10569913448297127219e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1095 -.36640175162216897547e-1, .10010476414320235508, -.21860074212675559892,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1096 .38124757096345313719, -.52020999209879669177, .52172632730659212045,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1097 -.30841620620308814614, -.50322546186721500184e-1, .32577618885114899053,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1098 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1099 0., 0., .95367431640625000000e-6, -.20021483206955925244e-4,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1100 .20481807322420625431e-3, -.13553476938058909882e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1101 .64919676350791905019e-2, -.23848725425069251903e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1102 .69384632678886421292e-1, -.16249711393618776934, .30736618106830314788,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1103 -.46399909601971539157, .53765031034002467225, -.42598991476520183929,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1104 .12130445348350215652, 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1105 0., 0., 0., 0., 0., 0., 0., 0., .47683715820312500000e-6,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1106 -.10487707828484902486e-4, .11254146162337528943e-3,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1107 -.78248929534271987118e-3, .39468337145306794566e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1108 -.15313546659475671763e-1, .47249070825218564146e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1109 -.11804374107101480543, .24031796927792491122, -.39629215049166341285,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1110 .51629108968402548545, -.49622372075429782915, 0., 0., 0., 0., 0., 0., 0.,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1111 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1112 .23841857910156250000e-6, -.54823314130625337326e-5,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1113 .61575377321535518154e-4, -.44877834366497538134e-3,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1114 .23774612048621955857e-2, -.97136347645161687796e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1115 .31671599547606636717e-1, -.84028665767000747480e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1116 .18298487576742964949, -.32647878537696945218, .46970971486488895077, 0.,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1117 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1118 0., 0., 0., 0., .11920928955078125000e-6, -.28604020001177375838e-5,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1119 .33559227978295551013e-4, -.25583821662860610560e-3,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1120 .14201552747787302339e-2, -.60938046986874414969e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1121 .20930869247951926793e-1, -.58745021125678072911e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1122 .13613725780285953720, -.26083988356030237586, 0., 0., 0., 0., 0., 0., 0.,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1123 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1124 .59604644775390625000e-7, -.14898180663526043291e-5,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1125 .18224991282807693921e-4, -.14504433444608833821e-3,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1126 .84184722720281809548e-3, -.37846965430000478789e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1127 .13656355548211376864e-1, -.40409541997718853934e-1,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1128 .99226988101858325902e-1, 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1129 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1130 .29802322387695312500e-7, -.77471708843445529468e-6,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1131 .98649879372606876995e-5, -.81814934772838523887e-4,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1132 .49554483992403011328e-3, -.23290922072351413938e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1133 .88068134250844034186e-2, -.27393666952485719070e-1, 0., 0., 0., 0., 0.,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1134 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1135 0., 0., 0., .14901161193847656250e-7, -.40226235946098233685e-6,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1136 .53236418690561306700e-5, -.45933829691164002269e-4,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1137 .28982005232838857913e-3, -.14212974043211018374e-2,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1138 .56192363087488842264e-2, 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1139 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1140 .74505805969238281250e-8, -.20858299254133430408e-6,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1141 .28648457300134381744e-5, -.25677535898258910850e-4,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1142 .16849420429491355445e-3, -.86062824010315834002e-3, 0., 0., 0., 0., 0.,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1143 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1144 0., 0., 0., 0., 0., .37252902984619140625e-8, -.10801736017613096861e-6,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1145 .15376606719887104015e-5, -.14296523739727437959e-4,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1146 .97419023656050887203e-4, 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1147 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1148 .18626451492309570312e-8, -.55871592916438890146e-7,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1149 .82331193828137454068e-6, -.79302250528382787666e-5, 0., 0., 0., 0., 0.,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1150 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1151 0., 0., 0., 0., 0., 0., 0., .93132257461547851562e-9,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1152 -.28867244235852488244e-7, .43982811713864556957e-6, 0., 0., 0., 0., 0.,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1153 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1154 0., 0., 0., 0., 0., 0., 0., 0., .46566128730773925781e-9,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1155 -.14899342093408253335e-7, 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1156 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1157 0., 0., .23283064365386962891e-9
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1158 };
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1159
17787
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1160 static const double Tright[33 * 33] =
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1161 {
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1162 1., .86602540378443864678, 0., -.33071891388307382381, 0.,
17787
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1163 .20728904939721249057, 0., -.15128841196122722208, 0.,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1164 .11918864298744029244, 0., -.98352013661686631224e-1, 0.,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1165 .83727065404940845733e-1, 0., -.72893399403505841203e-1, 0.,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1166 .64544632643375022436e-1, 0., -.57913170372415565639e-1, 0.,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1167 .52518242575729562263e-1, 0., -.48043311993977520457e-1, 0.,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1168 .44271433659733990243e-1, 0., -.41048928022856771981e-1, 0.,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1169 .38263878662008271459e-1, 0., -.35832844026365304501e-1, 0., 0.,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1170 .50000000000000000000, .96824583655185422130, .57282196186948000082,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1171 -.21650635094610966169, -.35903516540862679125, .97578093724974971969e-1,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1172 .26203921611325660506, -.55792409597991015609e-1, -.20644078533943456204,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1173 .36172381205961199479e-1, .17035068468874958194,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1174 -.25371838001497225980e-1, -.14501953125000000000,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1175 .18786835250972344757e-1, .12625507130328301066,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1176 -.14473795929590520582e-1, -.11179458309419422675,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1177 .11494434254897626155e-1, .10030855351241635862,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1178 -.93498556820544479096e-2, -.90964264465390582629e-1,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1179 .77546391824364392762e-2, .83213457337452292745e-1,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1180 -.65358085945588638605e-2, -.76680372422574234569e-1,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1181 .55835321940047427169e-2, .71098828931825789428e-1,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1182 -.48253327982967591019e-2, -.66274981937248958553e-1,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1183 .42118078245337801387e-2, .62064306433355646267e-1,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1184 -.37083386598903548973e-2, 0., 0., .25000000000000000000,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1185 .73950997288745200531, .83852549156242113615, .23175620272173946716,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1186 -.37791833195149451496, -.25710129174850522325, .21608307321780204633,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1187 .22844049245646009157, -.14009503000335388415, -.19897685605518413847,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1188 .98264706042471226893e-1, .17445445004279014046,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1189 -.72761100054958328401e-1, -.15463589893742108388,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1190 .56056770591708784481e-1, .13855313872640495158,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1191 -.44517752443294564781e-1, -.12534277657695128850,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1192 .36211835346039665762e-1, .11434398255136139683,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1193 -.30033588409423828125e-1, -.10506705408753910481,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1194 .25313077840725783008e-1, .97149327637744872155e-1,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1195 -.21624927200393328444e-1, -.90319582367202122625e-1,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1196 .18688433567711780666e-1, .84372291635345108584e-1,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1197 -.16312261561845420752e-1, -.79149526894804751586e-1,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1198 .14362333871852474757e-1, 0., 0., 0., .12500000000000000000,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1199 .49607837082461073572, .82265291131801144317, .59621200088559103072,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1200 -.80054302859059362371e-1, -.42612156697795759420,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1201 -.90098145270865592887e-1, .29769623255090078484, .13630307904779758221,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1202 -.21638835185708931831, -.14600247270306082052, .16348801804014290453,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1203 .14340708728599057249, -.12755243353979286190, -.13661523715071346961,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1204 .10215585947881057394, .12864248070157166547, -.83592528025348693602e-1,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1205 -.12066728689302565222, .69633728678718053052e-1, .11314245177331919532,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1206 -.58882939251410088028e-1, -.10621835858758221487,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1207 .50432266865187597572e-1, .99916834723527771581e-1,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1208 -.43672094283057258509e-1, -.94206380251950852413e-1,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1209 .38181356812697746418e-1, .89035739656537771225e-1,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1210 -.33661934598216332678e-1, 0., 0., 0., 0., .62500000000000000000e-1,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1211 .31093357409581873586, .67604086414949799246, .75644205980613611039,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1212 .28990586430124175741, -.30648508196770360914, -.35801372616842500052,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1213 .91326869828709014708e-1, .31127929687500000000, .90915752838698393094e-2,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1214 -.25637381283965534330, -.57601077850322797594e-1, .21019685709225757945,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1215 .81244992138514014256e-1, -.17375078516720988858,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1216 -.92289437277967051125e-1, .14527351914265391374,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1217 .96675340792832019889e-1, -.12289485697108543415,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1218 -.97448175340011084006e-1, .10511755943298339844,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1219 .96242247086378239657e-1, -.90822942272780513537e-1,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1220 -.93966350452322132384e-1, .79189411876493712558e-1,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1221 .91139307067989309325e-1, -.69613039934383197265e-1,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1222 -.88062491671135767870e-1, .61646331729340817494e-1, 0., 0., 0., 0., 0.,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1223 .31250000000000000000e-1, .18684782411095934408, .50176689760410660236,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1224 .74784031498626095398, .56472001151566251186, -.14842464993721351203e-1,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1225 -.41162920273003120936, -.20243071230196532282, .23772054897172750436,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1226 .24963810923972235950, -.12116179938394678936, -.24330535483519110663,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1227 .47903849781124471359e-1, .22133299683101224293,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1228 -.20542915138527200983e-2, -.19653465717678146728,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1229 -.26818172626509178444e-1, .17319122357631210944,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1230 .45065391411065545445e-1, -.15253391395444065941,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1231 -.56543897711725408302e-1, .13469154928743585367,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1232 .63632471400208840155e-1, -.11941684923913523817,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1233 -.67828850207933293098e-1, .10636309084510652670,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1234 .70095786922999181504e-1, -.95187373095150709082e-1, 0., 0., 0., 0., 0.,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1235 0., .15625000000000000000e-1, .10909562534194485289,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1236 .34842348626527747318, .64461114561628111443, .69382480527334683659,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1237 .29551102358528827763, -.25527584713978439819, -.38878771718544715394,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1238 -.82956185835347407489e-2, .31183177761966943912, .12831420840372374767,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1239 -.22067618205599434368, -.17569196937129496961, .14598057000132284135,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1240 .18864406621763419484, -.89921002550386645767e-1, -.18571835020187122114,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1241 .48967672227195481777e-1, .17584685670380332798,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1242 -.19267984545067426324e-1, -.16335437520503462738,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1243 -.22598055455032407594e-2, .15032800884170631129,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1244 .17883358353754640871e-1, -.13774837869432209951,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1245 -.29227555960587143675e-1, .12604194747513151053, 0., 0., 0., 0., 0., 0.,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1246 0., .78125000000000000000e-2, .62377810244809812496e-1,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1247 .23080781467370883845, .50841310636012325368, .69834547012574056043,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1248 .52572723156526459672, .11464215704954976471e-1, -.38698869011491210342,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1249 -.26125646622255207507, .16951698812361607510, .29773875898928782269,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1250 -.20130501202570367491e-1, -.26332493149159310198,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1251 -.67734613690401207009e-1, .21207315477103762715, .11541543390889415193,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1252 -.16249634759782417533, -.13885887405041735068, .11996491328010275427,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1253 .14810432001630926895, -.85177658352556243411e-1, -.14918860659904380587,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1254 .57317789510444151564e-1, .14569827645586660151,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1255 -.35213090145965327390e-1, -.13975998126844578198, 0., 0., 0., 0., 0., 0.,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1256 0., 0., .39062500000000000000e-2, .35101954600803571207e-1,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1257 .14761284084133737720, .37655033076080192966, .62410290231517322776,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1258 .64335622317683389875, .28188168266139524244, -.22488495672137010675,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1259 -.39393811089283576186, -.75184777995770096714e-1, .28472023119398293003,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1260 .20410910833705899572, -.15590046962908511750, -.23814567544617953125,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1261 .54442805556829031204e-1, .22855930338589720954, .16303223615756629897e-1,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1262 -.20172722433875559213, -.62723406421217419404e-1, .17012230831020922010,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1263 .91754642766136561612e-1, -.13927644821381121197, -.10886600968068418181,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1264 .11139075654373395292, .11797455976331702879, 0., 0., 0., 0., 0., 0., 0.,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1265 0., 0., .19531250000000000000e-2, .19506820659607596598e-1,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1266 .91865676095362231937e-1, .26604607809696493849, .51425874205091288223,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1267 .66047561132505329292, .48660109511591303851, .17575661168678285615e-1,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1268 -.36594333408055703366, -.29088854695378694533, .11318677346656537927,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1269 .31110645235730182168, .60733219161008787341e-1, -.24333848233620420826,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1270 -.15254312332655419708, .15995968483455388613, .19010344455215289289,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1271 -.86040636766440260000e-1, -.19652589954665259945,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1272 .27633388517205837713e-1, .18660848552712880387, .15942583868416775867e-1,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1273 -.16902042462382064786, -.47278526495327740646e-1, 0., 0., 0., 0., 0., 0.,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1274 0., 0., 0., 0., .97656250000000000000e-3, .10731084460857378207e-1,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1275 .55939644713816406331e-1, .18118487371914493668, .39914857299829864263,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1276 .60812322949933902435, .60011887183061967583, .26002695805835928795,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1277 -.20883922404786010096, -.38988130966114638081, -.11797833550782589082,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1278 .25231824756239520077, .24817859972953934712, -.90516417677868996417e-1,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1279 -.26079073291293066798, -.30259468817169480161e-1, .22178195264114178432,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1280 .10569877864302048175, -.16679648389266977455, -.14637718550245050850,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1281 .11219272032739559870, .16359363640525750353, -.64358194509092101393e-1,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1282 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., .48828125000000000000e-3,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1283 .58542865274813470967e-2, .33461741635290096452e-1, .11979993155896201271,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1284 .29580223766987206958, .51874761979436016742, .62861483498014306968,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1285 .44868895761051453296, .12567502628371529386e-1, -.35040366183235474275,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1286 -.30466868455569500886, .70903913601490112666e-1, .30822791893032512740,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1287 .11969443264190207736, -.20764760317621313946, -.20629838355452128532,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1288 .95269702915334718507e-1, .22432624768705133300,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1289 -.33103381593477797101e-2, -.20570036048155716333,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1290 -.62208282720094518964e-1, .17095309330441436348, 0., 0., 0., 0., 0., 0.,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1291 0., 0., 0., 0., 0., 0., .24414062500000000000e-3,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1292 .31714797501871532475e-2, .19721062526127334100e-1,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1293 .77311181185536498246e-1, .21124871792841566575, .41777980401893650886,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1294 .59401977834943551650, .56132417807488349048, .23433675061367565951,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1295 -.20222775295220942126, -.38280372496506190127, -.14443804214023095767,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1296 .22268950939178466797, .27211314150777981984, -.34184876506180717313e-1,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1297 -.26006498895669734842, -.97650425186005090107e-1, .19024527660129101293,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1298 .16789164198044635671, -.10875811641651905252, -.19276785058805921298, 0.,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1299 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., .12207031250000000000e-3,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1300 .17078941137247586143e-2, .11477733754843910060e-1,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1301 .48887017020924625462e-1, .14634927241421789683, .32156282683019547854,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1302 .52165811920227223937, .60001958466396926460, .41208501541480733755,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1303 .11366945503190350975e-2, -.33968093962672089159, -.30955190935923386766,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1304 .40657421856578262210e-1, .29873400409871531764, .16094481791768257440,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1305 -.16876122436206497694, -.23650217045022161255, .33070260090574765012e-1,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1306 .22985258456375907796, .68645651043827097771e-1, 0., 0., 0., 0., 0., 0.,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1307 0., 0., 0., 0., 0., 0., 0., 0., .61035156250000000000e-4,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1308 .91501857608428649078e-3, .66085179496951987952e-2,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1309 .30383171695850355404e-1, .98840838845366876117e-1, .23855447246420318989,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1310 .43322017468145613917, .58049033744876107191, .52533893203742699346,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1311 .20681056202371946180, -.20180000924562504384, -.37503922291962681797,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1312 -.15988102869837429062, .19823558102762374094, .28393023878803799622,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1313 .11188133439357510403e-1, -.24730368377168229255, -.14731529061377942839,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1314 .14878558042884266021, 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1315 0., 0., .30517578125000000000e-4, .48804277318479845551e-3,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1316 .37696080990601968396e-2, .18603912108994738255e-1,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1317 .65325006755649582964e-1, .17162960707938819795, .34411527956476971322,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1318 .52289350347082497959, .57319653625674910592, .37662253421045430413,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1319 -.14099055105384663902e-1, -.33265570610216904208, -.30921265572647566661,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1320 .19911390594166455281e-1, .28738590811031797718, .18912130469738472647,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1321 -.13235936203215819193, -.25076406142356675279, 0., 0., 0., 0., 0., 0.,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1322 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., .15258789062500000000e-4,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1323 .25928719280954633249e-3, .21327398937568540428e-2,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1324 .11244626133630732010e-1, .42375605740664331966e-1, .12031130345907846211,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1325 .26352562258934426830, .44590628258512682078, .56682835613700749379,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1326 .49116715128261660395, .17845943097110339078, -.20541650677432497477,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1327 -.36739803642257458221, -.16776034069210108273, .17920950989905112908,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1328 .28867732805385066532, .46473465543376206337e-1, 0., 0., 0., 0., 0., 0.,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1329 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., .76293945312500000000e-5,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1330 .13727610943181290891e-3, .11979683091449349286e-2,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1331 .67195313034570709806e-2, .27044920779931968175e-1,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1332 .82472196498517457862e-1, .19570475044896150093, .36391620788543817693,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1333 .52241392782736588032, .54727504974907879912, .34211551468813581183,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1334 -.31580472732719957762e-1, -.32830006549176759667, -.30563797665254420769,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1335 .64905014620683140120e-2, .27642986248995073032, 0., 0., 0., 0., 0., 0.,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1336 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., .38146972656250000000e-5,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1337 .72454147007837596854e-4, .66859847582761390285e-3,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1338 .39751311980366118437e-2, .17015198650201528366e-1,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1339 .55443621868993855715e-1, .14157060481641692131, .28641242619559616836,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1340 .45610665490966615415, .55262786406029265394, .45818352706035500108,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1341 .14984403004611673047, -.21163807462970713245, -.36007252928843413718,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1342 -.17030961385712954159, 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1343 0., 0., 0., 0., 0., 0., 0., .19073486328125000000e-5,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1344 .38135049864067468562e-4, .37101393638555730015e-3,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1345 .23305339886279723213e-2, .10569913448297127219e-1,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1346 .36640175162216897547e-1, .10010476414320235508, .21860074212675559892,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1347 .38124757096345313719, .52020999209879669177, .52172632730659212045,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1348 .30841620620308814614, -.50322546186721500184e-1, -.32577618885114899053,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1349 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1350 0., 0., .95367431640625000000e-6, .20021483206955925244e-4,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1351 .20481807322420625431e-3, .13553476938058909882e-2,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1352 .64919676350791905019e-2, .23848725425069251903e-1,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1353 .69384632678886421292e-1, .16249711393618776934, .30736618106830314788,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1354 .46399909601971539157, .53765031034002467225, .42598991476520183929,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1355 .12130445348350215652, 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1356 0., 0., 0., 0., 0., 0., 0., 0., .47683715820312500000e-6,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1357 .10487707828484902486e-4, .11254146162337528943e-3,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1358 .78248929534271987118e-3, .39468337145306794566e-2,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1359 .15313546659475671763e-1, .47249070825218564146e-1, .11804374107101480543,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1360 .24031796927792491122, .39629215049166341285, .51629108968402548545,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1361 .49622372075429782915, 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1362 0., 0., 0., 0., 0., 0., 0., 0., 0., .23841857910156250000e-6,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1363 .54823314130625337326e-5, .61575377321535518154e-4,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1364 .44877834366497538134e-3, .23774612048621955857e-2,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1365 .97136347645161687796e-2, .31671599547606636717e-1,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1366 .84028665767000747480e-1, .18298487576742964949, .32647878537696945218,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1367 .46970971486488895077, 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1368 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., .11920928955078125000e-6,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1369 .28604020001177375838e-5, .33559227978295551013e-4,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1370 .25583821662860610560e-3, .14201552747787302339e-2,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1371 .60938046986874414969e-2, .20930869247951926793e-1,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1372 .58745021125678072911e-1, .13613725780285953720, .26083988356030237586,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1373 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1374 0., 0., 0., 0., 0., 0., .59604644775390625000e-7,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1375 .14898180663526043291e-5, .18224991282807693921e-4,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1376 .14504433444608833821e-3, .84184722720281809548e-3,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1377 .37846965430000478789e-2, .13656355548211376864e-1,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1378 .40409541997718853934e-1, .99226988101858325902e-1, 0., 0., 0., 0., 0.,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1379 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1380 0., 0., .29802322387695312500e-7, .77471708843445529468e-6,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1381 .98649879372606876995e-5, .81814934772838523887e-4,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1382 .49554483992403011328e-3, .23290922072351413938e-2,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1383 .88068134250844034186e-2, .27393666952485719070e-1, 0., 0., 0., 0., 0.,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1384 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1385 0., 0., 0., .14901161193847656250e-7, .40226235946098233685e-6,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1386 .53236418690561306700e-5, .45933829691164002269e-4,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1387 .28982005232838857913e-3, .14212974043211018374e-2,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1388 .56192363087488842264e-2, 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1389 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1390 .74505805969238281250e-8, .20858299254133430408e-6,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1391 .28648457300134381744e-5, .25677535898258910850e-4,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1392 .16849420429491355445e-3, .86062824010315834002e-3, 0., 0., 0., 0., 0.,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1393 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1394 0., 0., 0., 0., 0., .37252902984619140625e-8, .10801736017613096861e-6,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1395 .15376606719887104015e-5, .14296523739727437959e-4,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1396 .97419023656050887203e-4, 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1397 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1398 .18626451492309570312e-8, .55871592916438890146e-7,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1399 .82331193828137454068e-6, .79302250528382787666e-5, 0., 0., 0., 0., 0.,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1400 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1401 0., 0., 0., 0., 0., 0., 0., .93132257461547851562e-9,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1402 .28867244235852488244e-7, .43982811713864556957e-6, 0., 0., 0., 0., 0.,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1403 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1404 0., 0., 0., 0., 0., 0., 0., 0., .46566128730773925781e-9,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1405 .14899342093408253335e-7, 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1406 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1407 0., 0., .23283064365386962891e-9
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1408 };
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1409
20910
359476667c4c * quadcc.cc: Style fixes.
John W. Eaton <jwe@octave.org>
parents: 20909
diff changeset
1410 // Allocates a workspace for the given maximum number of intervals.
359476667c4c * quadcc.cc: Style fixes.
John W. Eaton <jwe@octave.org>
parents: 20909
diff changeset
1411 // Note that if the workspace gets filled, the intervals with the lowest
21751
b571fc85953f maint: Use two spaces after period to indicate sentence break.
Rik <rik@octave.org>
parents: 21724
diff changeset
1412 // error estimates are dropped. The maximum number of intervals is
20910
359476667c4c * quadcc.cc: Style fixes.
John W. Eaton <jwe@octave.org>
parents: 20909
diff changeset
1413 // therefore not the maximum number of intervals that will be computed,
359476667c4c * quadcc.cc: Style fixes.
John W. Eaton <jwe@octave.org>
parents: 20909
diff changeset
1414 // but merely the size of the buffer.
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1415
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1416 // Compute the product of fx with one of the inverse Vandermonde-like matrices.
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1417
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1418 static void
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1419 Vinvfx (const double *fx, double *c, const int d)
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1420 {
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1421 int i, j;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1422
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1423 switch (d)
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1424 {
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1425 case 0:
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1426 for (i = 0; i <= 4; i++)
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1427 {
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1428 c[i] = 0.0;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1429 for (j = 0; j <= 4; j++)
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1430 c[i] += V1inv[i*5 + j] * fx[j * 8];
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1431 }
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1432 break;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1433 case 1:
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1434 for (i = 0; i <= 8; i++)
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1435 {
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1436 c[i] = 0.0;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1437 for (j = 0; j <= 8; j++)
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1438 c[i] += V2inv[i*9 + j] * fx[j * 4];
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1439 }
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1440 break;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1441 case 2:
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1442 for (i = 0; i <= 16; i++)
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1443 {
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1444 c[i] = 0.0;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1445 for (j = 0; j <= 16; j++)
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1446 c[i] += V3inv[i*17 + j] * fx[j * 2];
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1447 }
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1448 break;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1449 case 3:
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1450 for (i = 0; i <= 32; i++)
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1451 {
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1452 c[i] = 0.0;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1453 for (j = 0; j <= 32; j++)
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1454 c[i] += V4inv[i*33 + j] * fx[j];
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1455 }
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1456 break;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1457 }
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1458 }
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1459
20910
359476667c4c * quadcc.cc: Style fixes.
John W. Eaton <jwe@octave.org>
parents: 20909
diff changeset
1460 // Downdate the interpolation given by the N coefficients C by removing
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1461 // the nodes with indices in NaNs.
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1462
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1463 static void
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1464 downdate (double *c, int n, int d, int *nans, int nnans)
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1465 {
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1466 static const int bidx[4] = { 0, 6, 16, 34 };
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1467 double b_new[34], alpha;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1468 int i, j;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1469
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1470 for (i = 0; i <= n + 1; i++)
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1471 b_new[i] = bee[bidx[d] + i];
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1472 for (i = 0; i < nnans; i++)
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1473 {
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1474 b_new[n + 1] = b_new[n + 1] / Lalpha[n];
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1475 b_new[n] = (b_new[n] + xi[nans[i]] * b_new[n + 1]) / Lalpha[n - 1];
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1476 for (j = n - 1; j > 0; j--)
27277
db687716fed6 style fixes: generally aim to break long lines before operators, not after
John W. Eaton <jwe@octave.org>
parents: 26864
diff changeset
1477 b_new[j] = (b_new[j] + xi[nans[i]] * b_new[j + 1]
db687716fed6 style fixes: generally aim to break long lines before operators, not after
John W. Eaton <jwe@octave.org>
parents: 26864
diff changeset
1478 - Lgamma[j + 1] * b_new[j + 2]) / Lalpha[j - 1];
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1479 for (j = 0; j <= n; j++)
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1480 b_new[j] = b_new[j + 1];
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1481 alpha = c[n] / b_new[n];
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1482 for (j = 0; j < n; j++)
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1483 c[j] -= alpha * b_new[j];
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1484 c[n] = 0;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1485 n--;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1486 }
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1487 }
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1488
20910
359476667c4c * quadcc.cc: Style fixes.
John W. Eaton <jwe@octave.org>
parents: 20909
diff changeset
1489 // The actual integration routine.
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1490
30989
347fd0653508 quadcc: Add a warning if error tolerance is not met (bug #62412)
Nicholas R. Jankowski <jankowski.nicholas@gmail.com>
parents: 30564
diff changeset
1491 DEFMETHOD (quadcc, interp, args, nargout,
26864
041caa61ed34 use get_function_handle instead of extract_function
John W. Eaton <jwe@octave.org>
parents: 26376
diff changeset
1492 doc: /* -*- texinfo -*-
21966
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21942
diff changeset
1493 @deftypefn {} {@var{q} =} quadcc (@var{f}, @var{a}, @var{b})
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21942
diff changeset
1494 @deftypefnx {} {@var{q} =} quadcc (@var{f}, @var{a}, @var{b}, @var{tol})
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21942
diff changeset
1495 @deftypefnx {} {@var{q} =} quadcc (@var{f}, @var{a}, @var{b}, @var{tol}, @var{sing})
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21942
diff changeset
1496 @deftypefnx {} {[@var{q}, @var{err}, @var{nr_points}] =} quadcc (@dots{})
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1497 Numerically evaluate the integral of @var{f} from @var{a} to @var{b} using
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1498 doubly-adaptive @nospell{Clenshaw-Curtis} quadrature.
21966
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21942
diff changeset
1499
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21942
diff changeset
1500 @var{f} is a function handle, inline function, or string containing the name
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21942
diff changeset
1501 of the function to evaluate. The function @var{f} must be vectorized and
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21942
diff changeset
1502 must return a vector of output values if given a vector of input values.
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21942
diff changeset
1503 For example,
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21942
diff changeset
1504
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21942
diff changeset
1505 @example
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21942
diff changeset
1506 f = @@(x) x .* sin (1./x) .* sqrt (abs (1 - x));
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21942
diff changeset
1507 @end example
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21942
diff changeset
1508
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21942
diff changeset
1509 @noindent
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21942
diff changeset
1510 which uses the element-by-element ``dot'' form for all operators.
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21942
diff changeset
1511
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1512 @var{a} and @var{b} are the lower and upper limits of integration. Either or
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1513 both limits may be infinite. @code{quadcc} handles an infinite limit by
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1514 substituting the variable of integration with @code{x = tan (pi/2*u)}.
21966
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21942
diff changeset
1515
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1516 The optional argument @var{tol} is a 1- or 2-element vector that specifies the
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1517 desired accuracy of the result. The first element of the vector is the desired
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1518 absolute tolerance, and the second element is the desired relative tolerance.
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1519 To choose a relative test only, set the absolute tolerance to zero. To choose
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1520 an absolute test only, set the relative tolerance to zero. The default
24546
d3a507ca2d5d maint: merge stable to default.
Rik <rik@octave.org>
parents: 24534 24545
diff changeset
1521 absolute tolerance is 1e-10 (1e-5 for single), and the default relative
d3a507ca2d5d maint: merge stable to default.
Rik <rik@octave.org>
parents: 24534 24545
diff changeset
1522 tolerance is 1e-6 (1e-4 for single).
21966
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21942
diff changeset
1523
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1524 The optional argument @var{sing} contains a list of points where the integrand
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1525 has known singularities, or discontinuities in any of its derivatives, inside
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1526 the integration interval. For the example above, which has a discontinuity at
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1527 x=1, the call to @code{quadcc} would be as follows
21966
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21942
diff changeset
1528
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21942
diff changeset
1529 @example
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1530 int = quadcc (f, a, b, [], [ 1 ]);
21966
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21942
diff changeset
1531 @end example
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21942
diff changeset
1532
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21942
diff changeset
1533 The result of the integration is returned in @var{q}.
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21942
diff changeset
1534
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21942
diff changeset
1535 @var{err} is an estimate of the absolute integration error.
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21942
diff changeset
1536
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1537 @var{nr_points} is the number of points at which the integrand was evaluated.
21966
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21942
diff changeset
1538
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21942
diff changeset
1539 If the adaptive integration did not converge, the value of @var{err} will be
30989
347fd0653508 quadcc: Add a warning if error tolerance is not met (bug #62412)
Nicholas R. Jankowski <jankowski.nicholas@gmail.com>
parents: 30564
diff changeset
1540 larger than the requested tolerance. If only a single output is requested then
347fd0653508 quadcc: Add a warning if error tolerance is not met (bug #62412)
Nicholas R. Jankowski <jankowski.nicholas@gmail.com>
parents: 30564
diff changeset
1541 a warning will be emitted when the requested tolerance is not met. If the
347fd0653508 quadcc: Add a warning if error tolerance is not met (bug #62412)
Nicholas R. Jankowski <jankowski.nicholas@gmail.com>
parents: 30564
diff changeset
1542 second output @var{err} is requested then no warning is issued and it is the
347fd0653508 quadcc: Add a warning if error tolerance is not met (bug #62412)
Nicholas R. Jankowski <jankowski.nicholas@gmail.com>
parents: 30564
diff changeset
1543 responsibility of the programmer to inspect and determine whether the results
347fd0653508 quadcc: Add a warning if error tolerance is not met (bug #62412)
Nicholas R. Jankowski <jankowski.nicholas@gmail.com>
parents: 30564
diff changeset
1544 are satisfactory.
21966
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21942
diff changeset
1545
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21942
diff changeset
1546 @code{quadcc} is capable of dealing with non-numeric values of the integrand
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1547 such as @code{NaN} or @code{Inf}. If the integral diverges, and @code{quadcc}
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1548 detects this, then a warning is issued and @code{Inf} or @code{-Inf} is
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1549 returned.
21966
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21942
diff changeset
1550
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21942
diff changeset
1551 Note: @code{quadcc} is a general purpose quadrature algorithm and, as such,
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21942
diff changeset
1552 may be less efficient for a smooth or otherwise well-behaved integrand than
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21942
diff changeset
1553 other methods such as @code{quadgk}.
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21942
diff changeset
1554
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21942
diff changeset
1555 The algorithm uses @nospell{Clenshaw-Curtis} quadrature rules of increasing
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21942
diff changeset
1556 degree in each interval and bisects the interval if either the function does
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21942
diff changeset
1557 not appear to be smooth or a rule of maximum degree has been reached. The
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21942
diff changeset
1558 error estimate is computed from the L2-norm of the difference between two
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21942
diff changeset
1559 successive interpolations of the integrand over the nodes of the respective
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21942
diff changeset
1560 quadrature rules.
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21942
diff changeset
1561
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21942
diff changeset
1562 Reference: @nospell{P. Gonnet}, @cite{Increasing the Reliability of Adaptive
25003
2365c2661b3c doc: Spellcheck documentation ahead of 4.4 release.
Rik <rik@octave.org>
parents: 24986
diff changeset
1563 Quadrature Using Explicit Interpolants}, @nospell{ACM} Transactions on
27800
5a6a19a4e3da doc: Use Texinfo non-sentence ending periods in citations.
Rik <rik@octave.org>
parents: 27277
diff changeset
1564 Mathematical Software, Vol.@: 37, Issue 3, Article No.@: 3, 2010.
21966
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21942
diff changeset
1565 @seealso{quad, quadv, quadl, quadgk, trapz, dblquad, triplequad}
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21942
diff changeset
1566 @end deftypefn */)
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1567 {
20910
359476667c4c * quadcc.cc: Style fixes.
John W. Eaton <jwe@octave.org>
parents: 20909
diff changeset
1568 // Some constants that we will need.
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1569 static const int n[4] = { 4, 8, 16, 32 };
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1570 static const int skip[4] = { 8, 4, 2, 1 };
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1571 static const int idx[4] = { 0, 5, 14, 31 };
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1572 static const double w = M_SQRT2 / 2;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1573 static const int ndiv_max = 20;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1574
20910
359476667c4c * quadcc.cc: Style fixes.
John W. Eaton <jwe@octave.org>
parents: 20909
diff changeset
1575 // Arguments left and right.
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1576 int nargin = args.length ();
26864
041caa61ed34 use get_function_handle instead of extract_function
John W. Eaton <jwe@octave.org>
parents: 26376
diff changeset
1577 octave_value fcn;
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1578 double a, b, abstol, reltol, *sing;
24157
5fc5c1a49aa1 quadcc: Preserve output of type single when input is single (bug #52243).
Rik <rik@octave.org>
parents: 24098
diff changeset
1579 bool issingle;
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1580
20910
359476667c4c * quadcc.cc: Style fixes.
John W. Eaton <jwe@octave.org>
parents: 20909
diff changeset
1581 // Variables needed for transforming the integrand.
12614
4e11a87d86e6 quadcc.cc: Recode input validation and add tests.
Rik <octave@nomad.inbox5.com>
parents: 12612
diff changeset
1582 bool wrap = false;
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1583 double xw;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1584
20910
359476667c4c * quadcc.cc: Style fixes.
John W. Eaton <jwe@octave.org>
parents: 20909
diff changeset
1585 // Stuff we will need to call the integrand.
12614
4e11a87d86e6 quadcc.cc: Recode input validation and add tests.
Rik <octave@nomad.inbox5.com>
parents: 12612
diff changeset
1586 octave_value_list fargs, fvals;
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1587
20910
359476667c4c * quadcc.cc: Style fixes.
John W. Eaton <jwe@octave.org>
parents: 20909
diff changeset
1588 // Actual variables (as opposed to constants above).
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1589 double m, h, ml, hl, mr, hr, temp;
13219
cf5ebc0e47e4 fix warnings for unused but set variables and shadowed variables
John W. Eaton <jwe@octave.org>
parents: 13141
diff changeset
1590 double igral, err, igral_final, err_final;
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1591 int nivals;
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1592 int neval = 0;
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1593 int i, j, d, split;
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1594 int nnans, nans[33];
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1595 cquad_ival *iv, *ivl, *ivr;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1596 double nc, ncdiff;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1597
20910
359476667c4c * quadcc.cc: Style fixes.
John W. Eaton <jwe@octave.org>
parents: 20909
diff changeset
1598 // Parse the input arguments.
12614
4e11a87d86e6 quadcc.cc: Recode input validation and add tests.
Rik <octave@nomad.inbox5.com>
parents: 12612
diff changeset
1599 if (nargin < 3)
20801
a542a9bf177e eliminate return statements after calls to print_usage
John W. Eaton <jwe@octave.org>
parents: 20232
diff changeset
1600 print_usage ();
12614
4e11a87d86e6 quadcc.cc: Recode input validation and add tests.
Rik <octave@nomad.inbox5.com>
parents: 12612
diff changeset
1601
29961
7d6709900da7 eliminate octave:: namespace tags in DEFUN and DEFMETHOD and more
John W. Eaton <jwe@octave.org>
parents: 29958
diff changeset
1602 fcn = get_function_handle (interp, args(0), "x");
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1603
15995
906ae1705522 quadcc.cc: Use heap instead of stack for large temporary variables.
Rik <rik@octave.org>
parents: 15994
diff changeset
1604 if (! args(1).is_real_scalar ())
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1605 error ("quadcc: lower limit of integration (A) must be a real scalar");
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1606 a = args(1).double_value ();
24157
5fc5c1a49aa1 quadcc: Preserve output of type single when input is single (bug #52243).
Rik <rik@octave.org>
parents: 24098
diff changeset
1607 issingle = args(1).is_single_type ();
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1608
15995
906ae1705522 quadcc.cc: Use heap instead of stack for large temporary variables.
Rik <rik@octave.org>
parents: 15994
diff changeset
1609 if (! args(2).is_real_scalar ())
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1610 error ("quadcc: upper limit of integration (B) must be a real scalar");
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1611 b = args(2).double_value ();
24157
5fc5c1a49aa1 quadcc: Preserve output of type single when input is single (bug #52243).
Rik <rik@octave.org>
parents: 24098
diff changeset
1612 issingle = (issingle || args(2).is_single_type ());
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1613
23577
80c42f4cca13 maint: Deprecate is_empty and replace with isempty.
Rik <rik@octave.org>
parents: 23564
diff changeset
1614 if (nargin < 4 || args(3).isempty ())
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1615 {
24157
5fc5c1a49aa1 quadcc: Preserve output of type single when input is single (bug #52243).
Rik <rik@octave.org>
parents: 24098
diff changeset
1616 if (issingle)
5fc5c1a49aa1 quadcc: Preserve output of type single when input is single (bug #52243).
Rik <rik@octave.org>
parents: 24098
diff changeset
1617 {
5fc5c1a49aa1 quadcc: Preserve output of type single when input is single (bug #52243).
Rik <rik@octave.org>
parents: 24098
diff changeset
1618 abstol = 1.0e-5;
5fc5c1a49aa1 quadcc: Preserve output of type single when input is single (bug #52243).
Rik <rik@octave.org>
parents: 24098
diff changeset
1619 reltol = 1.0e-4;
5fc5c1a49aa1 quadcc: Preserve output of type single when input is single (bug #52243).
Rik <rik@octave.org>
parents: 24098
diff changeset
1620 }
5fc5c1a49aa1 quadcc: Preserve output of type single when input is single (bug #52243).
Rik <rik@octave.org>
parents: 24098
diff changeset
1621 else
5fc5c1a49aa1 quadcc: Preserve output of type single when input is single (bug #52243).
Rik <rik@octave.org>
parents: 24098
diff changeset
1622 {
5fc5c1a49aa1 quadcc: Preserve output of type single when input is single (bug #52243).
Rik <rik@octave.org>
parents: 24098
diff changeset
1623 abstol = 1.0e-10;
5fc5c1a49aa1 quadcc: Preserve output of type single when input is single (bug #52243).
Rik <rik@octave.org>
parents: 24098
diff changeset
1624 reltol = 1.0e-6;
5fc5c1a49aa1 quadcc: Preserve output of type single when input is single (bug #52243).
Rik <rik@octave.org>
parents: 24098
diff changeset
1625 }
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1626 }
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1627 else if (! args(3).isnumeric () || args(3).numel () > 2)
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1628 error ("quadcc: TOL must be a 1- or 2-element vector [AbsTol, RelTol]");
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1629 else
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1630 {
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1631 NDArray tol = args(3).array_value ();
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1632
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1633 abstol = tol(0);
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1634 if (abstol < 0)
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1635 error ("quadcc: absolute tolerance must be >=0");
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1636
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1637 if (tol.numel () == 1)
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1638 {
24157
5fc5c1a49aa1 quadcc: Preserve output of type single when input is single (bug #52243).
Rik <rik@octave.org>
parents: 24098
diff changeset
1639 if (issingle)
5fc5c1a49aa1 quadcc: Preserve output of type single when input is single (bug #52243).
Rik <rik@octave.org>
parents: 24098
diff changeset
1640 reltol = 1.0e-4;
5fc5c1a49aa1 quadcc: Preserve output of type single when input is single (bug #52243).
Rik <rik@octave.org>
parents: 24098
diff changeset
1641 else
5fc5c1a49aa1 quadcc: Preserve output of type single when input is single (bug #52243).
Rik <rik@octave.org>
parents: 24098
diff changeset
1642 reltol = 1.0e-6;
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1643 }
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1644 else
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1645 {
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1646 reltol = tol(1);
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1647 if (reltol < 0)
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1648 error ("quadcc: relative tolerance must be >=0");
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1649 }
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1650 }
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1651
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1652 if (nargin < 5)
20910
359476667c4c * quadcc.cc: Style fixes.
John W. Eaton <jwe@octave.org>
parents: 20909
diff changeset
1653 nivals = 1;
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1654 else if (! (args(4).is_real_scalar () || args(4).is_real_matrix ()))
20831
35241c4b696c eliminate return statements after calls to error
John W. Eaton <jwe@octave.org>
parents: 20801
diff changeset
1655 error ("quadcc: list of singularities (SING) must be a vector of real values");
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1656 else
20910
359476667c4c * quadcc.cc: Style fixes.
John W. Eaton <jwe@octave.org>
parents: 20909
diff changeset
1657 nivals = 1 + args(4).numel ();
15995
906ae1705522 quadcc.cc: Use heap instead of stack for large temporary variables.
Rik <rik@octave.org>
parents: 15994
diff changeset
1658
21213
f7d1050b9b53 maint: Clean up various usages of #ifdef.
Rik <rik@octave.org>
parents: 21200
diff changeset
1659 int cquad_heapsize = (nivals >= MIN_CQUAD_HEAPSIZE ? nivals + 1
31607
aac27ad79be6 maint: Re-indent code after switch to using namespace macros.
Rik <rik@octave.org>
parents: 31605
diff changeset
1660 : MIN_CQUAD_HEAPSIZE);
20910
359476667c4c * quadcc.cc: Style fixes.
John W. Eaton <jwe@octave.org>
parents: 20909
diff changeset
1661 // The interval heap.
15996
1aff8c38c53c use octave_local_buffer for temporary arrays in quadcc
John W. Eaton <jwe@octave.org>
parents: 15995
diff changeset
1662 OCTAVE_LOCAL_BUFFER (cquad_ival, ivals, cquad_heapsize);
1aff8c38c53c use octave_local_buffer for temporary arrays in quadcc
John W. Eaton <jwe@octave.org>
parents: 15995
diff changeset
1663 OCTAVE_LOCAL_BUFFER (double, iivals, cquad_heapsize);
1aff8c38c53c use octave_local_buffer for temporary arrays in quadcc
John W. Eaton <jwe@octave.org>
parents: 15995
diff changeset
1664 OCTAVE_LOCAL_BUFFER (int, heap, cquad_heapsize);
15995
906ae1705522 quadcc.cc: Use heap instead of stack for large temporary variables.
Rik <rik@octave.org>
parents: 15994
diff changeset
1665
906ae1705522 quadcc.cc: Use heap instead of stack for large temporary variables.
Rik <rik@octave.org>
parents: 15994
diff changeset
1666 if (nivals == 1)
906ae1705522 quadcc.cc: Use heap instead of stack for large temporary variables.
Rik <rik@octave.org>
parents: 15994
diff changeset
1667 {
906ae1705522 quadcc.cc: Use heap instead of stack for large temporary variables.
Rik <rik@octave.org>
parents: 15994
diff changeset
1668 iivals[0] = a;
906ae1705522 quadcc.cc: Use heap instead of stack for large temporary variables.
Rik <rik@octave.org>
parents: 15994
diff changeset
1669 iivals[1] = b;
906ae1705522 quadcc.cc: Use heap instead of stack for large temporary variables.
Rik <rik@octave.org>
parents: 15994
diff changeset
1670 }
906ae1705522 quadcc.cc: Use heap instead of stack for large temporary variables.
Rik <rik@octave.org>
parents: 15994
diff changeset
1671 else
906ae1705522 quadcc.cc: Use heap instead of stack for large temporary variables.
Rik <rik@octave.org>
parents: 15994
diff changeset
1672 {
20910
359476667c4c * quadcc.cc: Style fixes.
John W. Eaton <jwe@octave.org>
parents: 20909
diff changeset
1673 // Intervals around singularities.
31189
820d2c802247 fortran_vec: Fix instances of method chaining that may cause dangling pointer.
Maged Rifaat <magedrifaat@gmail.com>
parents: 30564
diff changeset
1674 NDArray arr = args(4).array_value ();
32660
f53ac65ffba6 maint: New method rwdata() as clearer alternative to fortran_vec().
Rik <rik@octave.org>
parents: 32633
diff changeset
1675 sing = arr.rwdata ();
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1676 iivals[0] = a;
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1677 std::copy_n (sing, nivals-1, iivals+1);
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1678 iivals[nivals] = b;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1679 }
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1680
20910
359476667c4c * quadcc.cc: Style fixes.
John W. Eaton <jwe@octave.org>
parents: 20909
diff changeset
1681 // If a or b are +/-Inf, transform the integral.
29961
7d6709900da7 eliminate octave:: namespace tags in DEFUN and DEFMETHOD and more
John W. Eaton <jwe@octave.org>
parents: 29958
diff changeset
1682 if (math::isinf (a) || math::isinf (b))
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1683 {
12614
4e11a87d86e6 quadcc.cc: Recode input validation and add tests.
Rik <octave@nomad.inbox5.com>
parents: 12612
diff changeset
1684 wrap = true;
15995
906ae1705522 quadcc.cc: Use heap instead of stack for large temporary variables.
Rik <rik@octave.org>
parents: 15994
diff changeset
1685 for (i = 0; i < nivals + 1; i++)
29961
7d6709900da7 eliminate octave:: namespace tags in DEFUN and DEFMETHOD and more
John W. Eaton <jwe@octave.org>
parents: 29958
diff changeset
1686 if (math::isinf (iivals[i]))
21942
aab79a1885cc limit gnulib headers to liboctave/wrappers directory
John W. Eaton <jwe@octave.org>
parents: 21782
diff changeset
1687 iivals[i] = std::copysign (1.0, iivals[i]);
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1688 else
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1689 iivals[i] = 2.0 * atan (iivals[i]) / M_PI;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1690 }
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1691
20910
359476667c4c * quadcc.cc: Style fixes.
John W. Eaton <jwe@octave.org>
parents: 20909
diff changeset
1692 // Initialize the heaps.
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1693 for (i = 0; i < cquad_heapsize; i++)
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1694 heap[i] = i;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1695
20910
359476667c4c * quadcc.cc: Style fixes.
John W. Eaton <jwe@octave.org>
parents: 20909
diff changeset
1696 // Create the first interval(s).
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1697 igral = 0.0;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1698 err = 0.0;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1699 for (j = 0; j < nivals; j++)
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1700 {
20910
359476667c4c * quadcc.cc: Style fixes.
John W. Eaton <jwe@octave.org>
parents: 20909
diff changeset
1701 // Initialize the interval.
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1702 iv = &(ivals[heap[j]]);
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1703 m = (iivals[j] + iivals[j + 1]) / 2;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1704 h = (iivals[j + 1] - iivals[j]) / 2;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1705 nnans = 0;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1706 ColumnVector ex (33);
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1707 if (wrap)
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1708 {
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1709 for (i = 0; i <= n[3]; i++)
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1710 ex(i) = tan (M_PI/2 * (m + xi[i]*h));
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1711 }
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1712 else
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1713 {
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1714 for (i = 0; i <= n[3]; i++)
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1715 ex(i) = m + xi[i]*h;
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1716 }
12614
4e11a87d86e6 quadcc.cc: Recode input validation and add tests.
Rik <octave@nomad.inbox5.com>
parents: 12612
diff changeset
1717 fargs(0) = ex;
31730
610a85b0ff62 use interpreter::feval instead of global feval function
John W. Eaton <jwe@octave.org>
parents: 31706
diff changeset
1718 fvals = interp.feval (fcn, fargs, 1);
15995
906ae1705522 quadcc.cc: Use heap instead of stack for large temporary variables.
Rik <rik@octave.org>
parents: 15994
diff changeset
1719 if (fvals.length () != 1 || ! fvals(0).is_real_matrix ())
20831
35241c4b696c eliminate return statements after calls to error
John W. Eaton <jwe@octave.org>
parents: 20801
diff changeset
1720 error ("quadcc: integrand F must return a single, real-valued vector");
35241c4b696c eliminate return statements after calls to error
John W. Eaton <jwe@octave.org>
parents: 20801
diff changeset
1721
12614
4e11a87d86e6 quadcc.cc: Recode input validation and add tests.
Rik <octave@nomad.inbox5.com>
parents: 12612
diff changeset
1722 Matrix effex = fvals(0).matrix_value ();
20232
a9574e3c6e9e Deprecate Array::length() and Sparse::length() in favour of ::numel().
Carnë Draug <carandraug@octave.org>
parents: 20181
diff changeset
1723 if (effex.numel () != ex.numel ())
20831
35241c4b696c eliminate return statements after calls to error
John W. Eaton <jwe@octave.org>
parents: 20801
diff changeset
1724 error ("quadcc: integrand F must return a single, real-valued vector of the same size as the input");
35241c4b696c eliminate return statements after calls to error
John W. Eaton <jwe@octave.org>
parents: 20801
diff changeset
1725
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1726 for (i = 0; i <= n[3]; i++)
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1727 {
15995
906ae1705522 quadcc.cc: Use heap instead of stack for large temporary variables.
Rik <rik@octave.org>
parents: 15994
diff changeset
1728 iv->fx[i] = effex(i);
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1729 if (wrap)
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1730 {
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1731 xw = ex(i);
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1732 iv->fx[i] *= (1.0 + xw*xw) * M_PI/2;
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1733 }
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1734 neval++;
29961
7d6709900da7 eliminate octave:: namespace tags in DEFUN and DEFMETHOD and more
John W. Eaton <jwe@octave.org>
parents: 29958
diff changeset
1735 if (! math::isfinite (iv->fx[i]))
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1736 {
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1737 nans[nnans++] = i;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1738 iv->fx[i] = 0.0;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1739 }
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1740 }
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1741 Vinvfx (iv->fx, &(iv->c[idx[3]]), 3);
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1742 Vinvfx (iv->fx, &(iv->c[idx[2]]), 2);
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1743 Vinvfx (iv->fx, &(iv->c[0]), 0);
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1744 for (i = 0; i < nnans; i++)
29961
7d6709900da7 eliminate octave:: namespace tags in DEFUN and DEFMETHOD and more
John W. Eaton <jwe@octave.org>
parents: 29958
diff changeset
1745 iv->fx[nans[i]] = numeric_limits<double>::NaN ();
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1746 iv->a = iivals[j];
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1747 iv->b = iivals[j + 1];
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1748 iv->depth = 3;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1749 iv->rdepth = 1;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1750 iv->ndiv = 0;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1751 iv->igral = 2 * h * iv->c[idx[3]] * w;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1752 nc = 0.0;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1753 for (i = n[2] + 1; i <= n[3]; i++)
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1754 {
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1755 temp = iv->c[idx[3] + i];
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1756 nc += temp * temp;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1757 }
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1758 ncdiff = nc;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1759 for (i = 0; i <= n[2]; i++)
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1760 {
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1761 temp = iv->c[idx[2] + i] - iv->c[idx[3] + i];
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1762 ncdiff += temp * temp;
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1763 temp = iv->c[idx[3] + i];
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1764 nc += temp * temp;
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1765 }
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1766 ncdiff = sqrt (ncdiff);
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1767 nc = sqrt (nc);
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1768 iv->err = ncdiff * 2 * h;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1769 if (ncdiff / nc > 0.1 && iv->err < 2 * h * nc)
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1770 iv->err = 2 * h * nc;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1771
20910
359476667c4c * quadcc.cc: Style fixes.
John W. Eaton <jwe@octave.org>
parents: 20909
diff changeset
1772 // Tabulate this interval's data.
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1773 igral += iv->igral;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1774 err += iv->err;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1775
20910
359476667c4c * quadcc.cc: Style fixes.
John W. Eaton <jwe@octave.org>
parents: 20909
diff changeset
1776 // Sift it up the heap.
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1777 i = j;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1778 while (i > 0 && ivals[heap[i / 2]].err < ivals[heap[i]].err)
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1779 {
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1780 std::swap (heap[i], heap[i / 2]);
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1781 i /= 2;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1782 }
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1783 }
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1784
20910
359476667c4c * quadcc.cc: Style fixes.
John W. Eaton <jwe@octave.org>
parents: 20909
diff changeset
1785 // Initialize some global values.
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1786 igral_final = 0.0;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1787 err_final = 0.0;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1788
20910
359476667c4c * quadcc.cc: Style fixes.
John W. Eaton <jwe@octave.org>
parents: 20909
diff changeset
1789 // Main loop.
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1790 while (nivals > 0
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1791 && err > std::max (abstol, fabs (igral) * reltol)
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1792 && ! (err_final > std::max (abstol, fabs (igral) * reltol)
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1793 && err - err_final < std::max (abstol, fabs (igral) * reltol)))
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1794 {
20910
359476667c4c * quadcc.cc: Style fixes.
John W. Eaton <jwe@octave.org>
parents: 20909
diff changeset
1795 // Allow the user to interrupt.
22860
0b1e25cc4457 eliminate use of OCTAVE_QUIT macro in C++ sources
John W. Eaton <jwe@octave.org>
parents: 22755
diff changeset
1796 octave_quit ();
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1797
20910
359476667c4c * quadcc.cc: Style fixes.
John W. Eaton <jwe@octave.org>
parents: 20909
diff changeset
1798 // Put our finger on the interval with the largest error.
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1799 iv = &(ivals[heap[0]]);
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1800 m = (iv->a + iv->b) / 2;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1801 h = (iv->b - iv->a) / 2;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1802
15995
906ae1705522 quadcc.cc: Use heap instead of stack for large temporary variables.
Rik <rik@octave.org>
parents: 15994
diff changeset
1803 #if (DEBUG_QUADCC)
17787
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1804 printf ("quadcc: processing ival %i (of %i) with [%e,%e] int=%e, err=%e, depth=%i\n",
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1805 heap[0], nivals, iv->a, iv->b, iv->igral, iv->err, iv->depth);
15995
906ae1705522 quadcc.cc: Use heap instead of stack for large temporary variables.
Rik <rik@octave.org>
parents: 15994
diff changeset
1806 #endif
906ae1705522 quadcc.cc: Use heap instead of stack for large temporary variables.
Rik <rik@octave.org>
parents: 15994
diff changeset
1807
20910
359476667c4c * quadcc.cc: Style fixes.
John W. Eaton <jwe@octave.org>
parents: 20909
diff changeset
1808 // Should we try to increase the degree?
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1809 if (iv->depth < 3)
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1810 {
20910
359476667c4c * quadcc.cc: Style fixes.
John W. Eaton <jwe@octave.org>
parents: 20909
diff changeset
1811 // Keep tabs on some variables.
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1812 d = ++iv->depth;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1813
20910
359476667c4c * quadcc.cc: Style fixes.
John W. Eaton <jwe@octave.org>
parents: 20909
diff changeset
1814 // Get the new (missing) function values.
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1815 {
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1816 ColumnVector ex (n[d] / 2);
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1817 if (wrap)
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1818 {
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1819 for (i = 0; i < n[d] / 2; i++)
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1820 ex(i) = tan (M_PI/2 * (m + xi[(2*i + 1) * skip[d]] * h));
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1821 }
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1822 else
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1823 {
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1824 for (i = 0; i < n[d] / 2; i++)
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1825 ex(i) = m + xi[(2*i + 1) * skip[d]] * h;
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1826 }
12614
4e11a87d86e6 quadcc.cc: Recode input validation and add tests.
Rik <octave@nomad.inbox5.com>
parents: 12612
diff changeset
1827 fargs(0) = ex;
31730
610a85b0ff62 use interpreter::feval instead of global feval function
John W. Eaton <jwe@octave.org>
parents: 31706
diff changeset
1828 fvals = interp.feval (fcn, fargs, 1);
15995
906ae1705522 quadcc.cc: Use heap instead of stack for large temporary variables.
Rik <rik@octave.org>
parents: 15994
diff changeset
1829 if (fvals.length () != 1 || ! fvals(0).is_real_matrix ())
20831
35241c4b696c eliminate return statements after calls to error
John W. Eaton <jwe@octave.org>
parents: 20801
diff changeset
1830 error ("quadcc: integrand F must return a single, real-valued vector");
35241c4b696c eliminate return statements after calls to error
John W. Eaton <jwe@octave.org>
parents: 20801
diff changeset
1831
12614
4e11a87d86e6 quadcc.cc: Recode input validation and add tests.
Rik <octave@nomad.inbox5.com>
parents: 12612
diff changeset
1832 Matrix effex = fvals(0).matrix_value ();
20232
a9574e3c6e9e Deprecate Array::length() and Sparse::length() in favour of ::numel().
Carnë Draug <carandraug@octave.org>
parents: 20181
diff changeset
1833 if (effex.numel () != ex.numel ())
20831
35241c4b696c eliminate return statements after calls to error
John W. Eaton <jwe@octave.org>
parents: 20801
diff changeset
1834 error ("quadcc: integrand F must return a single, real-valued vector of the same size as the input");
35241c4b696c eliminate return statements after calls to error
John W. Eaton <jwe@octave.org>
parents: 20801
diff changeset
1835
20232
a9574e3c6e9e Deprecate Array::length() and Sparse::length() in favour of ::numel().
Carnë Draug <carandraug@octave.org>
parents: 20181
diff changeset
1836 neval += effex.numel ();
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1837 for (i = 0; i < n[d] / 2; i++)
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1838 {
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1839 j = (2*i + 1) * skip[d];
15995
906ae1705522 quadcc.cc: Use heap instead of stack for large temporary variables.
Rik <rik@octave.org>
parents: 15994
diff changeset
1840 iv->fx[j] = effex(i);
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1841 if (wrap)
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1842 {
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1843 xw = ex(i);
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1844 iv->fx[j] *= (1.0 + xw*xw) * M_PI/2;
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1845 }
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1846 }
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1847 }
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1848 nnans = 0;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1849 for (i = 0; i <= 32; i += skip[d])
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1850 {
29961
7d6709900da7 eliminate octave:: namespace tags in DEFUN and DEFMETHOD and more
John W. Eaton <jwe@octave.org>
parents: 29958
diff changeset
1851 if (! math::isfinite (iv->fx[i]))
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1852 {
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1853 nans[nnans++] = i;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1854 iv->fx[i] = 0.0;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1855 }
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1856 }
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1857
20910
359476667c4c * quadcc.cc: Style fixes.
John W. Eaton <jwe@octave.org>
parents: 20909
diff changeset
1858 // Compute the new coefficients.
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1859 Vinvfx (iv->fx, &(iv->c[idx[d]]), d);
20910
359476667c4c * quadcc.cc: Style fixes.
John W. Eaton <jwe@octave.org>
parents: 20909
diff changeset
1860 // Downdate any NaNs.
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1861 if (nnans > 0)
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1862 {
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1863 downdate (&(iv->c[idx[d]]), n[d], d, nans, nnans);
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1864 for (i = 0; i < nnans; i++)
29961
7d6709900da7 eliminate octave:: namespace tags in DEFUN and DEFMETHOD and more
John W. Eaton <jwe@octave.org>
parents: 29958
diff changeset
1865 iv->fx[nans[i]] = numeric_limits<double>::NaN ();
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1866 }
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1867
20910
359476667c4c * quadcc.cc: Style fixes.
John W. Eaton <jwe@octave.org>
parents: 20909
diff changeset
1868 // Compute the error estimate.
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1869 nc = 0.0;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1870 for (i = n[d - 1] + 1; i <= n[d]; i++)
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1871 {
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1872 temp = iv->c[idx[d] + i];
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1873 nc += temp * temp;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1874 }
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1875 ncdiff = nc;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1876 for (i = 0; i <= n[d - 1]; i++)
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1877 {
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1878 temp = iv->c[idx[d - 1] + i] - iv->c[idx[d] + i];
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1879 ncdiff += temp * temp;
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1880 temp = iv->c[idx[d] + i];
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1881 nc += temp * temp;
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1882 }
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1883 ncdiff = sqrt (ncdiff);
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1884 nc = sqrt (nc);
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1885 iv->err = ncdiff * 2 * h;
20910
359476667c4c * quadcc.cc: Style fixes.
John W. Eaton <jwe@octave.org>
parents: 20909
diff changeset
1886 // Compute the local integral.
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1887 iv->igral = 2 * h * w * iv->c[idx[d]];
20910
359476667c4c * quadcc.cc: Style fixes.
John W. Eaton <jwe@octave.org>
parents: 20909
diff changeset
1888 // Split the interval prematurely?
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1889 split = (nc > 0 && ncdiff / nc > 0.1);
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1890 }
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1891 else
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1892 {
20910
359476667c4c * quadcc.cc: Style fixes.
John W. Eaton <jwe@octave.org>
parents: 20909
diff changeset
1893 // Maximum degree reached, just split.
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1894 split = 1;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1895 }
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1896
20910
359476667c4c * quadcc.cc: Style fixes.
John W. Eaton <jwe@octave.org>
parents: 20909
diff changeset
1897 // Should we drop this interval?
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1898 if ((m + h*xi[0]) >= (m + h*xi[1])
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1899 || (m + h*xi[31]) >= (m + h*xi[32])
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1900 || iv->err < fabs (iv->igral) * DROP_RELTOL)
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1901 {
15995
906ae1705522 quadcc.cc: Use heap instead of stack for large temporary variables.
Rik <rik@octave.org>
parents: 15994
diff changeset
1902 #if (DEBUG_QUADCC)
17787
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1903 printf ("quadcc: dropping ival %i (of %i) with [%e,%e] int=%e, err=%e, depth=%i\n",
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
1904 heap[0], nivals, iv->a, iv->b, iv->igral, iv->err, iv->depth);
15995
906ae1705522 quadcc.cc: Use heap instead of stack for large temporary variables.
Rik <rik@octave.org>
parents: 15994
diff changeset
1905 #endif
906ae1705522 quadcc.cc: Use heap instead of stack for large temporary variables.
Rik <rik@octave.org>
parents: 15994
diff changeset
1906
20910
359476667c4c * quadcc.cc: Style fixes.
John W. Eaton <jwe@octave.org>
parents: 20909
diff changeset
1907 // Keep this interval's contribution.
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1908 err_final += iv->err;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1909 igral_final += iv->igral;
20910
359476667c4c * quadcc.cc: Style fixes.
John W. Eaton <jwe@octave.org>
parents: 20909
diff changeset
1910 // Swap with the last element on the heap.
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1911 std::swap (heap[nivals - 1], heap[0]);
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1912 nivals--;
20910
359476667c4c * quadcc.cc: Style fixes.
John W. Eaton <jwe@octave.org>
parents: 20909
diff changeset
1913 // Fix up the heap.
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1914 i = 0;
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1915 while (2*i + 1 < nivals)
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1916 {
20910
359476667c4c * quadcc.cc: Style fixes.
John W. Eaton <jwe@octave.org>
parents: 20909
diff changeset
1917 // Get the kids.
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1918 j = 2*i + 1;
20910
359476667c4c * quadcc.cc: Style fixes.
John W. Eaton <jwe@octave.org>
parents: 20909
diff changeset
1919 // If the j+1st entry exists and is larger than the jth,
359476667c4c * quadcc.cc: Style fixes.
John W. Eaton <jwe@octave.org>
parents: 20909
diff changeset
1920 // use it instead.
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1921 if (j + 1 < nivals
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1922 && ivals[heap[j + 1]].err >= ivals[heap[j]].err)
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1923 j++;
20910
359476667c4c * quadcc.cc: Style fixes.
John W. Eaton <jwe@octave.org>
parents: 20909
diff changeset
1924 // Do we need to move the ith entry up?
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1925 if (ivals[heap[j]].err <= ivals[heap[i]].err)
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1926 break;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1927 else
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1928 {
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1929 std::swap (heap[j], heap[i]);
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1930 i = j;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1931 }
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1932 }
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1933 }
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1934 else if (split)
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1935 {
20910
359476667c4c * quadcc.cc: Style fixes.
John W. Eaton <jwe@octave.org>
parents: 20909
diff changeset
1936 // Some values we will need often...
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1937 d = iv->depth;
20910
359476667c4c * quadcc.cc: Style fixes.
John W. Eaton <jwe@octave.org>
parents: 20909
diff changeset
1938 // Generate the interval on the left.
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1939 ivl = &(ivals[heap[nivals++]]);
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1940 ivl->a = iv->a;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1941 ivl->b = m;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1942 ml = (ivl->a + ivl->b) / 2;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1943 hl = h / 2;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1944 ivl->depth = 0;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1945 ivl->rdepth = iv->rdepth + 1;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1946 ivl->fx[0] = iv->fx[0];
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1947 ivl->fx[32] = iv->fx[16];
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1948 {
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1949 ColumnVector ex (n[0] - 1);
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1950 if (wrap)
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1951 {
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1952 for (i = 0; i < n[0] - 1; i++)
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1953 ex(i) = tan (M_PI/2 * (ml + xi[(i + 1) * skip[0]] * hl));
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1954 }
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1955 else
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1956 {
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1957 for (i = 0; i < n[0] - 1; i++)
15995
906ae1705522 quadcc.cc: Use heap instead of stack for large temporary variables.
Rik <rik@octave.org>
parents: 15994
diff changeset
1958 ex(i) = ml + xi[(i + 1) * skip[0]] * hl;
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1959 }
12614
4e11a87d86e6 quadcc.cc: Recode input validation and add tests.
Rik <octave@nomad.inbox5.com>
parents: 12612
diff changeset
1960 fargs(0) = ex;
31730
610a85b0ff62 use interpreter::feval instead of global feval function
John W. Eaton <jwe@octave.org>
parents: 31706
diff changeset
1961 fvals = interp.feval (fcn, fargs, 1);
15995
906ae1705522 quadcc.cc: Use heap instead of stack for large temporary variables.
Rik <rik@octave.org>
parents: 15994
diff changeset
1962 if (fvals.length () != 1 || ! fvals(0).is_real_matrix ())
20831
35241c4b696c eliminate return statements after calls to error
John W. Eaton <jwe@octave.org>
parents: 20801
diff changeset
1963 error ("quadcc: integrand F must return a single, real-valued vector");
35241c4b696c eliminate return statements after calls to error
John W. Eaton <jwe@octave.org>
parents: 20801
diff changeset
1964
12614
4e11a87d86e6 quadcc.cc: Recode input validation and add tests.
Rik <octave@nomad.inbox5.com>
parents: 12612
diff changeset
1965 Matrix effex = fvals(0).matrix_value ();
20232
a9574e3c6e9e Deprecate Array::length() and Sparse::length() in favour of ::numel().
Carnë Draug <carandraug@octave.org>
parents: 20181
diff changeset
1966 if (effex.numel () != ex.numel ())
20831
35241c4b696c eliminate return statements after calls to error
John W. Eaton <jwe@octave.org>
parents: 20801
diff changeset
1967 error ("quadcc: integrand F must return a single, real-valued vector of the same size as the input");
35241c4b696c eliminate return statements after calls to error
John W. Eaton <jwe@octave.org>
parents: 20801
diff changeset
1968
20232
a9574e3c6e9e Deprecate Array::length() and Sparse::length() in favour of ::numel().
Carnë Draug <carandraug@octave.org>
parents: 20181
diff changeset
1969 neval += effex.numel ();
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1970 for (i = 0; i < n[0] - 1; i++)
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1971 {
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1972 j = (i + 1) * skip[0];
15995
906ae1705522 quadcc.cc: Use heap instead of stack for large temporary variables.
Rik <rik@octave.org>
parents: 15994
diff changeset
1973 ivl->fx[j] = effex(i);
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1974 if (wrap)
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1975 {
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1976 xw = ex(i);
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
1977 ivl->fx[j] *= (1.0 + xw*xw) * M_PI/2;
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1978 }
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1979 }
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1980 }
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1981 nnans = 0;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1982 for (i = 0; i <= 32; i += skip[0])
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1983 {
29961
7d6709900da7 eliminate octave:: namespace tags in DEFUN and DEFMETHOD and more
John W. Eaton <jwe@octave.org>
parents: 29958
diff changeset
1984 if (! math::isfinite (ivl->fx[i]))
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1985 {
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1986 nans[nnans++] = i;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1987 ivl->fx[i] = 0.0;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1988 }
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1989 }
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1990 Vinvfx (ivl->fx, ivl->c, 0);
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1991 if (nnans > 0)
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1992 {
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1993 downdate (ivl->c, n[0], 0, nans, nnans);
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1994 for (i = 0; i < nnans; i++)
29961
7d6709900da7 eliminate octave:: namespace tags in DEFUN and DEFMETHOD and more
John W. Eaton <jwe@octave.org>
parents: 29958
diff changeset
1995 ivl->fx[nans[i]] = numeric_limits<double>::NaN ();
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1996 }
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1997 for (i = 0; i <= n[d]; i++)
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1998 {
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
1999 ivl->c[idx[d] + i] = 0.0;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2000 for (j = i; j <= n[d]; j++)
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
2001 ivl->c[idx[d] + i] += Tleft[i*33 + j] * iv->c[idx[d] + j];
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2002 }
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2003 ncdiff = 0.0;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2004 for (i = 0; i <= n[0]; i++)
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2005 {
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2006 temp = ivl->c[i] - ivl->c[idx[d] + i];
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2007 ncdiff += temp * temp;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2008 }
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2009 for (i = n[0] + 1; i <= n[d]; i++)
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2010 {
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2011 temp = ivl->c[idx[d] + i];
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2012 ncdiff += temp * temp;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2013 }
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2014 ncdiff = sqrt (ncdiff);
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2015 ivl->err = ncdiff * h;
20910
359476667c4c * quadcc.cc: Style fixes.
John W. Eaton <jwe@octave.org>
parents: 20909
diff changeset
2016 // Check for divergence.
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2017 ivl->ndiv = iv->ndiv + (fabs (iv->c[0]) > 0
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2018 && ivl->c[0] / iv->c[0] > 2);
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
2019 if (ivl->ndiv > ndiv_max && 2*ivl->ndiv > ivl->rdepth)
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2020 {
29961
7d6709900da7 eliminate octave:: namespace tags in DEFUN and DEFMETHOD and more
John W. Eaton <jwe@octave.org>
parents: 29958
diff changeset
2021 igral = std::copysign (numeric_limits<double>::Inf (), igral);
11590
4ced6b90fffb style fixes for warning and error messages in source files
John W. Eaton <jwe@octave.org>
parents: 11586
diff changeset
2022 warning ("quadcc: divergent integral detected");
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2023 break;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2024 }
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2025
20910
359476667c4c * quadcc.cc: Style fixes.
John W. Eaton <jwe@octave.org>
parents: 20909
diff changeset
2026 // Compute the local integral.
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2027 ivl->igral = h * w * ivl->c[0];
11586
12df7854fa7c strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents: 11572
diff changeset
2028
20910
359476667c4c * quadcc.cc: Style fixes.
John W. Eaton <jwe@octave.org>
parents: 20909
diff changeset
2029 // Generate the interval on the right.
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2030 ivr = &(ivals[heap[nivals++]]);
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2031 ivr->a = m;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2032 ivr->b = iv->b;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2033 mr = (ivr->a + ivr->b) / 2;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2034 hr = h / 2;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2035 ivr->depth = 0;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2036 ivr->rdepth = iv->rdepth + 1;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2037 ivr->fx[0] = iv->fx[16];
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2038 ivr->fx[32] = iv->fx[32];
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2039 {
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2040 ColumnVector ex (n[0] - 1);
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2041 if (wrap)
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2042 {
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2043 for (i = 0; i < n[0] - 1; i++)
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
2044 ex(i) = tan (M_PI/2 * (mr + xi[(i + 1) * skip[0]] * hr));
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2045 }
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2046 else
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2047 {
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2048 for (i = 0; i < n[0] - 1; i++)
15995
906ae1705522 quadcc.cc: Use heap instead of stack for large temporary variables.
Rik <rik@octave.org>
parents: 15994
diff changeset
2049 ex(i) = mr + xi[(i + 1) * skip[0]] * hr;
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2050 }
12614
4e11a87d86e6 quadcc.cc: Recode input validation and add tests.
Rik <octave@nomad.inbox5.com>
parents: 12612
diff changeset
2051 fargs(0) = ex;
31730
610a85b0ff62 use interpreter::feval instead of global feval function
John W. Eaton <jwe@octave.org>
parents: 31706
diff changeset
2052 fvals = interp.feval (fcn, fargs, 1);
15995
906ae1705522 quadcc.cc: Use heap instead of stack for large temporary variables.
Rik <rik@octave.org>
parents: 15994
diff changeset
2053 if (fvals.length () != 1 || ! fvals(0).is_real_matrix ())
20831
35241c4b696c eliminate return statements after calls to error
John W. Eaton <jwe@octave.org>
parents: 20801
diff changeset
2054 error ("quadcc: integrand F must return a single, real-valued vector");
35241c4b696c eliminate return statements after calls to error
John W. Eaton <jwe@octave.org>
parents: 20801
diff changeset
2055
12614
4e11a87d86e6 quadcc.cc: Recode input validation and add tests.
Rik <octave@nomad.inbox5.com>
parents: 12612
diff changeset
2056 Matrix effex = fvals(0).matrix_value ();
20232
a9574e3c6e9e Deprecate Array::length() and Sparse::length() in favour of ::numel().
Carnë Draug <carandraug@octave.org>
parents: 20181
diff changeset
2057 if (effex.numel () != ex.numel ())
20831
35241c4b696c eliminate return statements after calls to error
John W. Eaton <jwe@octave.org>
parents: 20801
diff changeset
2058 error ("quadcc: integrand F must return a single, real-valued vector of the same size as the input");
35241c4b696c eliminate return statements after calls to error
John W. Eaton <jwe@octave.org>
parents: 20801
diff changeset
2059
20232
a9574e3c6e9e Deprecate Array::length() and Sparse::length() in favour of ::numel().
Carnë Draug <carandraug@octave.org>
parents: 20181
diff changeset
2060 neval += effex.numel ();
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2061 for (i = 0; i < n[0] - 1; i++)
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2062 {
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2063 j = (i + 1) * skip[0];
15995
906ae1705522 quadcc.cc: Use heap instead of stack for large temporary variables.
Rik <rik@octave.org>
parents: 15994
diff changeset
2064 ivr->fx[j] = effex(i);
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2065 if (wrap)
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2066 {
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2067 xw = ex(i);
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
2068 ivr->fx[j] *= (1.0 + xw*xw) * M_PI/2;
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2069 }
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2070 }
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2071 }
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2072 nnans = 0;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2073 for (i = 0; i <= 32; i += skip[0])
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2074 {
29961
7d6709900da7 eliminate octave:: namespace tags in DEFUN and DEFMETHOD and more
John W. Eaton <jwe@octave.org>
parents: 29958
diff changeset
2075 if (! math::isfinite (ivr->fx[i]))
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2076 {
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2077 nans[nnans++] = i;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2078 ivr->fx[i] = 0.0;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2079 }
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2080 }
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2081 Vinvfx (ivr->fx, ivr->c, 0);
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2082 if (nnans > 0)
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2083 {
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2084 downdate (ivr->c, n[0], 0, nans, nnans);
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2085 for (i = 0; i < nnans; i++)
29961
7d6709900da7 eliminate octave:: namespace tags in DEFUN and DEFMETHOD and more
John W. Eaton <jwe@octave.org>
parents: 29958
diff changeset
2086 ivr->fx[nans[i]] = numeric_limits<double>::NaN ();
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2087 }
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2088 for (i = 0; i <= n[d]; i++)
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2089 {
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2090 ivr->c[idx[d] + i] = 0.0;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2091 for (j = i; j <= n[d]; j++)
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
2092 ivr->c[idx[d] + i] += Tright[i*33 + j] * iv->c[idx[d] + j];
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2093 }
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2094 ncdiff = 0.0;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2095 for (i = 0; i <= n[0]; i++)
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2096 {
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2097 temp = ivr->c[i] - ivr->c[idx[d] + i];
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2098 ncdiff += temp * temp;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2099 }
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2100 for (i = n[0] + 1; i <= n[d]; i++)
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2101 {
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2102 temp = ivr->c[idx[d] + i];
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2103 ncdiff += temp * temp;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2104 }
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2105 ncdiff = sqrt (ncdiff);
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2106 ivr->err = ncdiff * h;
20910
359476667c4c * quadcc.cc: Style fixes.
John W. Eaton <jwe@octave.org>
parents: 20909
diff changeset
2107 // Check for divergence.
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2108 ivr->ndiv = iv->ndiv + (fabs (iv->c[0]) > 0
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2109 && ivr->c[0] / iv->c[0] > 2);
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
2110 if (ivr->ndiv > ndiv_max && 2*ivr->ndiv > ivr->rdepth)
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2111 {
29961
7d6709900da7 eliminate octave:: namespace tags in DEFUN and DEFMETHOD and more
John W. Eaton <jwe@octave.org>
parents: 29958
diff changeset
2112 igral = std::copysign (numeric_limits<double>::Inf (), igral);
11590
4ced6b90fffb style fixes for warning and error messages in source files
John W. Eaton <jwe@octave.org>
parents: 11586
diff changeset
2113 warning ("quadcc: divergent integral detected");
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2114 break;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2115 }
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2116
20910
359476667c4c * quadcc.cc: Style fixes.
John W. Eaton <jwe@octave.org>
parents: 20909
diff changeset
2117 // Compute the local integral.
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2118 ivr->igral = h * w * ivr->c[0];
11586
12df7854fa7c strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents: 11572
diff changeset
2119
20910
359476667c4c * quadcc.cc: Style fixes.
John W. Eaton <jwe@octave.org>
parents: 20909
diff changeset
2120 // Fix-up the heap: we now have one interval on top that we
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
2121 // don't need any more and two new, unsorted ones at the bottom.
11586
12df7854fa7c strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents: 11572
diff changeset
2122
20910
359476667c4c * quadcc.cc: Style fixes.
John W. Eaton <jwe@octave.org>
parents: 20909
diff changeset
2123 // Flip the last interval to the top of the heap and sift down.
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
2124 std::swap (heap[nivals - 1], heap[0]);
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2125 nivals--;
20910
359476667c4c * quadcc.cc: Style fixes.
John W. Eaton <jwe@octave.org>
parents: 20909
diff changeset
2126 // Sift this interval back down the heap.
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2127 i = 0;
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
2128 while (2*i + 1 < nivals - 1)
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2129 {
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
2130 j = 2*i + 1;
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2131 if (j + 1 < nivals - 1
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2132 && ivals[heap[j + 1]].err >= ivals[heap[j]].err)
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2133 j++;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2134 if (ivals[heap[j]].err <= ivals[heap[i]].err)
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2135 break;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2136 else
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2137 {
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
2138 std::swap (heap[j], heap[i]);
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2139 i = j;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2140 }
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2141 }
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2142
20910
359476667c4c * quadcc.cc: Style fixes.
John W. Eaton <jwe@octave.org>
parents: 20909
diff changeset
2143 // Now grab the last interval and sift it up the heap.
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2144 i = nivals - 1;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2145 while (i > 0)
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2146 {
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2147 j = (i - 1) / 2;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2148 if (ivals[heap[j]].err < ivals[heap[i]].err)
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2149 {
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
2150 std::swap (heap[j], heap[i]);
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2151 i = j;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2152 }
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2153 else
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2154 break;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2155 }
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2156 }
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2157 else
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2158 {
20910
359476667c4c * quadcc.cc: Style fixes.
John W. Eaton <jwe@octave.org>
parents: 20909
diff changeset
2159 // Otherwise, just fix-up the heap.
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2160 i = 0;
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
2161 while (2*i + 1 < nivals)
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2162 {
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
2163 j = 2*i + 1;
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2164 if (j + 1 < nivals
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2165 && ivals[heap[j + 1]].err >= ivals[heap[j]].err)
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2166 j++;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2167 if (ivals[heap[j]].err <= ivals[heap[i]].err)
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2168 break;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2169 else
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2170 {
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
2171 std::swap (heap[j], heap[i]);
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2172 i = j;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2173 }
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2174 }
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2175 }
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2176
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
2177 // If the heap is about to overflow, remove the last two intervals.
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2178 while (nivals > cquad_heapsize - 2)
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2179 {
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2180 iv = &(ivals[heap[nivals - 1]]);
15995
906ae1705522 quadcc.cc: Use heap instead of stack for large temporary variables.
Rik <rik@octave.org>
parents: 15994
diff changeset
2181 #if (DEBUG_QUADCC)
17787
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
2182 printf ("quadcc: dropping ival %i (of %i) with [%e,%e] int=%e, err=%e, depth=%i\n",
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
2183 heap[0], nivals, iv->a, iv->b, iv->igral, iv->err, iv->depth);
15995
906ae1705522 quadcc.cc: Use heap instead of stack for large temporary variables.
Rik <rik@octave.org>
parents: 15994
diff changeset
2184 #endif
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2185 err_final += iv->err;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2186 igral_final += iv->igral;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2187 nivals--;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2188 }
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2189
20910
359476667c4c * quadcc.cc: Style fixes.
John W. Eaton <jwe@octave.org>
parents: 20909
diff changeset
2190 // Collect the value of the integral and error.
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2191 igral = igral_final;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2192 err = err_final;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2193 for (i = 0; i < nivals; i++)
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2194 {
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2195 igral += ivals[heap[i]].igral;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2196 err += ivals[heap[i]].err;
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2197 }
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2198 }
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2199
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
2200 #if (DEBUG_QUADCC)
20910
359476667c4c * quadcc.cc: Style fixes.
John W. Eaton <jwe@octave.org>
parents: 20909
diff changeset
2201 // Dump the contents of the heap.
15995
906ae1705522 quadcc.cc: Use heap instead of stack for large temporary variables.
Rik <rik@octave.org>
parents: 15994
diff changeset
2202 for (i = 0; i < nivals; i++)
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2203 {
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2204 iv = &(ivals[heap[i]]);
17787
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
2205 printf ("quadcc: ival %i (%i) with [%e,%e], int=%e, err=%e, depth=%i, rdepth=%i, ndiv=%i\n",
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
2206 i, heap[i], iv->a, iv->b, iv->igral, iv->err, iv->depth,
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
2207 iv->rdepth, iv->ndiv);
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2208 }
15995
906ae1705522 quadcc.cc: Use heap instead of stack for large temporary variables.
Rik <rik@octave.org>
parents: 15994
diff changeset
2209 #endif
906ae1705522 quadcc.cc: Use heap instead of stack for large temporary variables.
Rik <rik@octave.org>
parents: 15994
diff changeset
2210
31607
aac27ad79be6 maint: Re-indent code after switch to using namespace macros.
Rik <rik@octave.org>
parents: 31605
diff changeset
2211 if (nargout < 2 && err > std::max (abstol, reltol * std::abs (igral)))
30989
347fd0653508 quadcc: Add a warning if error tolerance is not met (bug #62412)
Nicholas R. Jankowski <jankowski.nicholas@gmail.com>
parents: 30564
diff changeset
2212 warning ("quadcc: Error tolerance not met. Estimated error: %g\n", err);
347fd0653508 quadcc: Add a warning if error tolerance is not met (bug #62412)
Nicholas R. Jankowski <jankowski.nicholas@gmail.com>
parents: 30564
diff changeset
2213
24157
5fc5c1a49aa1 quadcc: Preserve output of type single when input is single (bug #52243).
Rik <rik@octave.org>
parents: 24098
diff changeset
2214 if (issingle)
5fc5c1a49aa1 quadcc: Preserve output of type single when input is single (bug #52243).
Rik <rik@octave.org>
parents: 24098
diff changeset
2215 return ovl (static_cast<float> (igral), err, neval);
5fc5c1a49aa1 quadcc: Preserve output of type single when input is single (bug #52243).
Rik <rik@octave.org>
parents: 24098
diff changeset
2216 else
5fc5c1a49aa1 quadcc: Preserve output of type single when input is single (bug #52243).
Rik <rik@octave.org>
parents: 24098
diff changeset
2217 return ovl (igral, err, neval);
10944
a7655cdba470 add the cquad integrator, by Pedro Gonnet
Jaroslav Hajek <highegg@gmail.com>
parents:
diff changeset
2218 }
12614
4e11a87d86e6 quadcc.cc: Recode input validation and add tests.
Rik <octave@nomad.inbox5.com>
parents: 12612
diff changeset
2219
13141
e81ddf9cacd5 maint: untabify and remove trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents: 12653
diff changeset
2220 /*
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
2221 %!assert (quadcc (@sin, -pi, pi), 0, 1e-10)
30989
347fd0653508 quadcc: Add a warning if error tolerance is not met (bug #62412)
Nicholas R. Jankowski <jankowski.nicholas@gmail.com>
parents: 30564
diff changeset
2222 %!test
347fd0653508 quadcc: Add a warning if error tolerance is not met (bug #62412)
Nicholas R. Jankowski <jankowski.nicholas@gmail.com>
parents: 30564
diff changeset
2223 %! warning ("off", "Octave:legacy-function", "local");
347fd0653508 quadcc: Add a warning if error tolerance is not met (bug #62412)
Nicholas R. Jankowski <jankowski.nicholas@gmail.com>
parents: 30564
diff changeset
2224 %! assert (quadcc (inline ("sin"), -pi, pi), 0, 1e-10);
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
2225 %!assert (quadcc ("sin", -pi, pi), 0, 1e-10)
12614
4e11a87d86e6 quadcc.cc: Recode input validation and add tests.
Rik <octave@nomad.inbox5.com>
parents: 12612
diff changeset
2226
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
2227 %!assert (quadcc (@sin, -pi, 0), -2, 1e-10)
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
2228 %!assert (quadcc (@sin, 0, pi), 2, 1e-10)
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
2229 %!assert (quadcc (@(x) 1./sqrt (x), 0, 1), 2, -1e-6)
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
2230 %!assert (quadcc (@(x) 1./(sqrt (x).*(x+1)), 0, Inf), pi, -1e-6)
30989
347fd0653508 quadcc: Add a warning if error tolerance is not met (bug #62412)
Nicholas R. Jankowski <jankowski.nicholas@gmail.com>
parents: 30564
diff changeset
2231 %!assert (quadcc (@(x) 1./(sqrt (x).*(x+1)), 0, Inf, [0, 2e-7]), pi, -2e-7)
12614
4e11a87d86e6 quadcc.cc: Recode input validation and add tests.
Rik <octave@nomad.inbox5.com>
parents: 12612
diff changeset
2232
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
2233 %!assert (quadcc (@(x) exp (-x .^ 2), -Inf, Inf), sqrt (pi), 1e-10)
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
2234 %!assert (quadcc (@(x) exp (-x .^ 2), -Inf, 0), sqrt (pi)/2, 1e-10)
12614
4e11a87d86e6 quadcc.cc: Recode input validation and add tests.
Rik <octave@nomad.inbox5.com>
parents: 12612
diff changeset
2235
17787
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
2236 ## Test function with NaNs in interval
15437
c9954a15bc03 Fix quadcc when there are NaNs in the integrand (bug #37414)
Rik <rik@octave.org>
parents: 14151
diff changeset
2237 %!function y = __nansin (x)
c9954a15bc03 Fix quadcc when there are NaNs in the integrand (bug #37414)
Rik <rik@octave.org>
parents: 14151
diff changeset
2238 %! nan_locs = [-3*pi/4, -pi/4, 0, pi/3, pi/2, pi];
c9954a15bc03 Fix quadcc when there are NaNs in the integrand (bug #37414)
Rik <rik@octave.org>
parents: 14151
diff changeset
2239 %! y = sin (x);
17787
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
2240 %! idx = min (abs (bsxfun (@minus, x(:), nan_locs)), [], 2);
15437
c9954a15bc03 Fix quadcc when there are NaNs in the integrand (bug #37414)
Rik <rik@octave.org>
parents: 14151
diff changeset
2241 %! y(idx < 1e-10) = NaN;
17787
175b392e91fe Use GNU style coding conventions for code in libinterp/
Rik <rik@octave.org>
parents: 17744
diff changeset
2242 %!endfunction
15437
c9954a15bc03 Fix quadcc when there are NaNs in the integrand (bug #37414)
Rik <rik@octave.org>
parents: 14151
diff changeset
2243
c9954a15bc03 Fix quadcc when there are NaNs in the integrand (bug #37414)
Rik <rik@octave.org>
parents: 14151
diff changeset
2244 %!test
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
2245 %! [q, err, npoints] = quadcc ("__nansin", -pi, pi, [0, 1e-6]);
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
2246 %! assert (q, 0, -1e-6);
15437
c9954a15bc03 Fix quadcc when there are NaNs in the integrand (bug #37414)
Rik <rik@octave.org>
parents: 14151
diff changeset
2247 %! assert (err, 0, 15*eps);
c9954a15bc03 Fix quadcc when there are NaNs in the integrand (bug #37414)
Rik <rik@octave.org>
parents: 14151
diff changeset
2248
24157
5fc5c1a49aa1 quadcc: Preserve output of type single when input is single (bug #52243).
Rik <rik@octave.org>
parents: 24098
diff changeset
2249 %!test
5fc5c1a49aa1 quadcc: Preserve output of type single when input is single (bug #52243).
Rik <rik@octave.org>
parents: 24098
diff changeset
2250 %! assert (class (quadcc (@sin, 0, 1)), "double");
5fc5c1a49aa1 quadcc: Preserve output of type single when input is single (bug #52243).
Rik <rik@octave.org>
parents: 24098
diff changeset
2251 %! assert (class (quadcc (@sin, single (0), 1)), "single");
5fc5c1a49aa1 quadcc: Preserve output of type single when input is single (bug #52243).
Rik <rik@octave.org>
parents: 24098
diff changeset
2252 %! assert (class (quadcc (@sin, 0, single (1))), "single");
5fc5c1a49aa1 quadcc: Preserve output of type single when input is single (bug #52243).
Rik <rik@octave.org>
parents: 24098
diff changeset
2253 %! assert (class (quadcc (@sin, single (0), single (1))), "single");
5fc5c1a49aa1 quadcc: Preserve output of type single when input is single (bug #52243).
Rik <rik@octave.org>
parents: 24098
diff changeset
2254
30995
1fcfe9443917 quadgk.m: Don't warn about failing to converge if second output ERR is requested (bug #62412)
Rik <rik@octave.org>
parents: 30989
diff changeset
2255 %!test <*62412>
30989
347fd0653508 quadcc: Add a warning if error tolerance is not met (bug #62412)
Nicholas R. Jankowski <jankowski.nicholas@gmail.com>
parents: 30564
diff changeset
2256 %! f = @(t) -1 ./ t.^1.1;
347fd0653508 quadcc: Add a warning if error tolerance is not met (bug #62412)
Nicholas R. Jankowski <jankowski.nicholas@gmail.com>
parents: 30564
diff changeset
2257 %! fail ("quadcc (f, 1, Inf)", "warning", "Error tolerance not met");
347fd0653508 quadcc: Add a warning if error tolerance is not met (bug #62412)
Nicholas R. Jankowski <jankowski.nicholas@gmail.com>
parents: 30564
diff changeset
2258 %! [q, err] = quadcc (f, 1, Inf);
30995
1fcfe9443917 quadgk.m: Don't warn about failing to converge if second output ERR is requested (bug #62412)
Rik <rik@octave.org>
parents: 30989
diff changeset
2259 %! assert (err > 1e-5);
30989
347fd0653508 quadcc: Add a warning if error tolerance is not met (bug #62412)
Nicholas R. Jankowski <jankowski.nicholas@gmail.com>
parents: 30564
diff changeset
2260
22737
7abc25e6206a maint: Clean up code base to follow Octave coding conventions.
Rik <rik@octave.org>
parents: 22407
diff changeset
2261 ## Test input validation
28930
2883b3d08b7e maint: Remove unnecessary parentheses bracketing %!error BIST tests.
Rik <rik@octave.org>
parents: 27923
diff changeset
2262 %!error quadcc ()
2883b3d08b7e maint: Remove unnecessary parentheses bracketing %!error BIST tests.
Rik <rik@octave.org>
parents: 27923
diff changeset
2263 %!error quadcc (@sin)
2883b3d08b7e maint: Remove unnecessary parentheses bracketing %!error BIST tests.
Rik <rik@octave.org>
parents: 27923
diff changeset
2264 %!error quadcc (@sin, 0)
24098
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
2265 %!error <lower limit .* must be a .* scalar> (quadcc (@sin, ones (2), pi))
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
2266 %!error <lower limit .* must be a real scalar> (quadcc (@sin, -i, pi))
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
2267 %!error <upper limit .* must be a .* scalar> (quadcc (@sin, 0, ones (2)))
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
2268 %!error <upper limit .* must be a real scalar> (quadcc (@sin, 0, i))
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
2269 %!error <TOL must be a 1- or 2-element vector> (quadcc (@sin, 0, pi, {1}))
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
2270 %!error <TOL must be a 1- or 2-element vector> (quadcc (@sin, 0, pi, [1,2,3]))
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
2271 %!error <absolute tolerance must be .=0> (quadcc (@sin, 0, pi, -1))
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
2272 %!error <relative tolerance must be .=0> (quadcc (@sin, 0, pi, [1, -1]))
71dad5be765a quadcc.cc: Use an Absolute Tolerance, as well as RelTol (Bug #46349).
Rik <rik@octave.org>
parents: 23577
diff changeset
2273 %!error <SING.* must be .* real values> (quadcc (@sin, 0, pi, 1e-6, [ i ]))
12614
4e11a87d86e6 quadcc.cc: Recode input validation and add tests.
Rik <octave@nomad.inbox5.com>
parents: 12612
diff changeset
2274 */
29958
32c3a5805893 move DEFUN and DEFMETHOD functions inside octave namespace
John W. Eaton <jwe@octave.org>
parents: 29359
diff changeset
2275
31605
e88a07dec498 maint: Use macros to begin/end C++ namespaces.
Rik <rik@octave.org>
parents: 31190
diff changeset
2276 OCTAVE_END_NAMESPACE(octave)