scripts/general/dblquad.m

@(
)
@(
)
@(
)
@(
)
@(
)
@(
)
@(
)
author	Ben Abbott <bpabbott@mac.com>
date	Mon, 26 Jul 2010 07:41:23 -0400
parents	95c3e38098bf
children	fd0a3ac60b0e
rev	line source
8920 eb63fbe60fab update copyright notices John W. Eaton <jwe@octave.org> parents: 8507 diff changeset	1 ## Copyright (C) 2008, 2009 David Bateman
7771 680631e787aa Add quadv, quadgk, dblquad and triplequad functions David Bateman <dbateman@free.fr> parents: diff changeset	2 ##
680631e787aa Add quadv, quadgk, dblquad and triplequad functions David Bateman <dbateman@free.fr> parents: diff changeset	3 ## This file is part of Octave.
680631e787aa Add quadv, quadgk, dblquad and triplequad functions David Bateman <dbateman@free.fr> parents: diff changeset	4 ##
680631e787aa Add quadv, quadgk, dblquad and triplequad functions David Bateman <dbateman@free.fr> parents: diff changeset	5 ## Octave is free software; you can redistribute it and/or modify it
680631e787aa Add quadv, quadgk, dblquad and triplequad functions David Bateman <dbateman@free.fr> parents: diff changeset	6 ## under the terms of the GNU General Public License as published by
680631e787aa Add quadv, quadgk, dblquad and triplequad functions David Bateman <dbateman@free.fr> parents: diff changeset	7 ## the Free Software Foundation; either version 3 of the License, or (at
680631e787aa Add quadv, quadgk, dblquad and triplequad functions David Bateman <dbateman@free.fr> parents: diff changeset	8 ## your option) any later version.
680631e787aa Add quadv, quadgk, dblquad and triplequad functions David Bateman <dbateman@free.fr> parents: diff changeset	9 ##
680631e787aa Add quadv, quadgk, dblquad and triplequad functions David Bateman <dbateman@free.fr> parents: diff changeset	10 ## Octave is distributed in the hope that it will be useful, but
680631e787aa Add quadv, quadgk, dblquad and triplequad functions David Bateman <dbateman@free.fr> parents: diff changeset	11 ## WITHOUT ANY WARRANTY; without even the implied warranty of
680631e787aa Add quadv, quadgk, dblquad and triplequad functions David Bateman <dbateman@free.fr> parents: diff changeset	12 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
680631e787aa Add quadv, quadgk, dblquad and triplequad functions David Bateman <dbateman@free.fr> parents: diff changeset	13 ## General Public License for more details.
680631e787aa Add quadv, quadgk, dblquad and triplequad functions David Bateman <dbateman@free.fr> parents: diff changeset	14 ##
680631e787aa Add quadv, quadgk, dblquad and triplequad functions David Bateman <dbateman@free.fr> parents: diff changeset	15 ## You should have received a copy of the GNU General Public License
680631e787aa Add quadv, quadgk, dblquad and triplequad functions David Bateman <dbateman@free.fr> parents: diff changeset	16 ## along with Octave; see the file COPYING. If not, see
680631e787aa Add quadv, quadgk, dblquad and triplequad functions David Bateman <dbateman@free.fr> parents: diff changeset	17 ## <http://www.gnu.org/licenses/>.
680631e787aa Add quadv, quadgk, dblquad and triplequad functions David Bateman <dbateman@free.fr> parents: diff changeset	18
680631e787aa Add quadv, quadgk, dblquad and triplequad functions David Bateman <dbateman@free.fr> parents: diff changeset	19 ## -- texinfo --
680631e787aa Add quadv, quadgk, dblquad and triplequad functions David Bateman <dbateman@free.fr> parents: diff changeset	20 ## @deftypefn {Function File} {} dblquad (@var{f}, @var{xa}, @var{xb}, @var{ya}, @var{yb}, @var{tol}, @var{quadf}, @dots{})
9051 1bf0ce0930be Grammar check TexInfo in all .m files Rik <rdrider0-list@yahoo.com> parents: 8920 diff changeset	21 ## Numerically evaluate a double integral. The function over with to
7771 680631e787aa Add quadv, quadgk, dblquad and triplequad functions David Bateman <dbateman@free.fr> parents: diff changeset	22 ## integrate is defined by @code{@var{f}}, and the interval for the
680631e787aa Add quadv, quadgk, dblquad and triplequad functions David Bateman <dbateman@free.fr> parents: diff changeset	23 ## integration is defined by @code{[@var{xa}, @var{xb}, @var{ya},
9051 1bf0ce0930be Grammar check TexInfo in all .m files Rik <rdrider0-list@yahoo.com> parents: 8920 diff changeset	24 ## @var{yb}]}. The function @var{f} must accept a vector @var{x} and a
7771 680631e787aa Add quadv, quadgk, dblquad and triplequad functions David Bateman <dbateman@free.fr> parents: diff changeset	25 ## scalar @var{y}, and return a vector of the same length as @var{x}.
680631e787aa Add quadv, quadgk, dblquad and triplequad functions David Bateman <dbateman@free.fr> parents: diff changeset	26 ##
680631e787aa Add quadv, quadgk, dblquad and triplequad functions David Bateman <dbateman@free.fr> parents: diff changeset	27 ## If defined, @var{tol} defines the absolute tolerance to which to
680631e787aa Add quadv, quadgk, dblquad and triplequad functions David Bateman <dbateman@free.fr> parents: diff changeset	28 ## which to integrate each sub-integral.
680631e787aa Add quadv, quadgk, dblquad and triplequad functions David Bateman <dbateman@free.fr> parents: diff changeset	29 ##
9051 1bf0ce0930be Grammar check TexInfo in all .m files Rik <rdrider0-list@yahoo.com> parents: 8920 diff changeset	30 ## Additional arguments, are passed directly to @var{f}. To use the default
7771 680631e787aa Add quadv, quadgk, dblquad and triplequad functions David Bateman <dbateman@free.fr> parents: diff changeset	31 ## value for @var{tol} one may pass an empty matrix.
680631e787aa Add quadv, quadgk, dblquad and triplequad functions David Bateman <dbateman@free.fr> parents: diff changeset	32 ## @seealso{triplequad, quad, quadv, quadl, quadgk, trapz}
680631e787aa Add quadv, quadgk, dblquad and triplequad functions David Bateman <dbateman@free.fr> parents: diff changeset	33 ## @end deftypefn
680631e787aa Add quadv, quadgk, dblquad and triplequad functions David Bateman <dbateman@free.fr> parents: diff changeset	34
8507 cadc73247d65 style fixes John W. Eaton <jwe@octave.org> parents: 7771 diff changeset	35 function q = dblquad(f, xa, xb, ya, yb, tol, quadf, varargin)
7771 680631e787aa Add quadv, quadgk, dblquad and triplequad functions David Bateman <dbateman@free.fr> parents: diff changeset	36 if (nargin < 5)
680631e787aa Add quadv, quadgk, dblquad and triplequad functions David Bateman <dbateman@free.fr> parents: diff changeset	37 print_usage ();
680631e787aa Add quadv, quadgk, dblquad and triplequad functions David Bateman <dbateman@free.fr> parents: diff changeset	38 endif
680631e787aa Add quadv, quadgk, dblquad and triplequad functions David Bateman <dbateman@free.fr> parents: diff changeset	39 if (nargin < 6 \|\| isempty (tol))
680631e787aa Add quadv, quadgk, dblquad and triplequad functions David Bateman <dbateman@free.fr> parents: diff changeset	40 tol = 1e-6;
680631e787aa Add quadv, quadgk, dblquad and triplequad functions David Bateman <dbateman@free.fr> parents: diff changeset	41 endif
680631e787aa Add quadv, quadgk, dblquad and triplequad functions David Bateman <dbateman@free.fr> parents: diff changeset	42 if (nargin < 7 \|\| isempty (quadf))
680631e787aa Add quadv, quadgk, dblquad and triplequad functions David Bateman <dbateman@free.fr> parents: diff changeset	43 quadf = @quadgk;
680631e787aa Add quadv, quadgk, dblquad and triplequad functions David Bateman <dbateman@free.fr> parents: diff changeset	44 endif
680631e787aa Add quadv, quadgk, dblquad and triplequad functions David Bateman <dbateman@free.fr> parents: diff changeset	45
680631e787aa Add quadv, quadgk, dblquad and triplequad functions David Bateman <dbateman@free.fr> parents: diff changeset	46 inner = @__dblquad_inner__;
680631e787aa Add quadv, quadgk, dblquad and triplequad functions David Bateman <dbateman@free.fr> parents: diff changeset	47 if (ischar (f))
680631e787aa Add quadv, quadgk, dblquad and triplequad functions David Bateman <dbateman@free.fr> parents: diff changeset	48 f = @(x,y) feval (f, x, y, varargin{:});
680631e787aa Add quadv, quadgk, dblquad and triplequad functions David Bateman <dbateman@free.fr> parents: diff changeset	49 varargin = {};
680631e787aa Add quadv, quadgk, dblquad and triplequad functions David Bateman <dbateman@free.fr> parents: diff changeset	50 endif
680631e787aa Add quadv, quadgk, dblquad and triplequad functions David Bateman <dbateman@free.fr> parents: diff changeset	51
8507 cadc73247d65 style fixes John W. Eaton <jwe@octave.org> parents: 7771 diff changeset	52 q = feval (quadf, @(y) inner (y, f, xa, xb, tol, quadf,
10549 95c3e38098bf Untabify .m scripts Rik <code@nomad.inbox5.com> parents: 9051 diff changeset	53 varargin{:}), ya, yb, tol);
7771 680631e787aa Add quadv, quadgk, dblquad and triplequad functions David Bateman <dbateman@free.fr> parents: diff changeset	54 endfunction
680631e787aa Add quadv, quadgk, dblquad and triplequad functions David Bateman <dbateman@free.fr> parents: diff changeset	55
8507 cadc73247d65 style fixes John W. Eaton <jwe@octave.org> parents: 7771 diff changeset	56 function q = __dblquad_inner__ (y, f, xa, xb, tol, quadf, varargin)
cadc73247d65 style fixes John W. Eaton <jwe@octave.org> parents: 7771 diff changeset	57 q = zeros (size(y));
7771 680631e787aa Add quadv, quadgk, dblquad and triplequad functions David Bateman <dbateman@free.fr> parents: diff changeset	58 for i = 1 : length (y)
8507 cadc73247d65 style fixes John W. Eaton <jwe@octave.org> parents: 7771 diff changeset	59 q(i) = feval (quadf, @(x) f(x, y(i), varargin{:}), xa, xb, tol);
7771 680631e787aa Add quadv, quadgk, dblquad and triplequad functions David Bateman <dbateman@free.fr> parents: diff changeset	60 endfor
680631e787aa Add quadv, quadgk, dblquad and triplequad functions David Bateman <dbateman@free.fr> parents: diff changeset	61 endfunction
680631e787aa Add quadv, quadgk, dblquad and triplequad functions David Bateman <dbateman@free.fr> parents: diff changeset	62
680631e787aa Add quadv, quadgk, dblquad and triplequad functions David Bateman <dbateman@free.fr> parents: diff changeset	63 %% Nasty integrand to show quadgk off
680631e787aa Add quadv, quadgk, dblquad and triplequad functions David Bateman <dbateman@free.fr> parents: diff changeset	64 %!assert (dblquad (@(x,y) 1 ./ (x+y), 0, 1, 0, 1), 2*log(2), 1e-6)
680631e787aa Add quadv, quadgk, dblquad and triplequad functions David Bateman <dbateman@free.fr> parents: diff changeset	65
680631e787aa Add quadv, quadgk, dblquad and triplequad functions David Bateman <dbateman@free.fr> parents: diff changeset	66 %!assert (dblquad (@(x,y) exp(-x.^2 - y.^2) , -1, 1, -1, 1, [], @quadgk), pi * erf(1).^2, 1e-6)
680631e787aa Add quadv, quadgk, dblquad and triplequad functions David Bateman <dbateman@free.fr> parents: diff changeset	67 %!assert (dblquad (@(x,y) exp(-x.^2 - y.^2) , -1, 1, -1, 1, [], @quadl), pi * erf(1).^2, 1e-6)
680631e787aa Add quadv, quadgk, dblquad and triplequad functions David Bateman <dbateman@free.fr> parents: diff changeset	68 %!assert (dblquad (@(x,y) exp(-x.^2 - y.^2) , -1, 1, -1, 1, [], @quadv), pi * erf(1).^2, 1e-6)