From: Debian Octave Group Date: Mon, 1 Dec 2014 20:25:52 +0000 (+0000) Subject: dblquad-s390x X-Git-Tag: archive/raspbian/4.4.1-6+rpi1~1^2^2~5 X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=d23879fc415f53e36cba1240bbed4f3521b80797;p=octave.git dblquad-s390x Gbp-Pq: Name dblquad-s390x.diff --- diff --git a/scripts/general/dblquad.m b/scripts/general/dblquad.m index be23bacd..d836ef1b 100644 --- a/scripts/general/dblquad.m +++ b/scripts/general/dblquad.m @@ -75,9 +75,6 @@ function q = __dblquad_inner__ (y, f, xa, xb, tol, quadf, varargin) endfunction -%% Nasty integrand to show quadcc off -%!assert (dblquad (@(x,y) 1 ./ (x+y), 0, 1, 0, 1), 2*log (2), 1e-6) - %!assert (dblquad (@(x,y) exp (-x.^2 - y.^2) , -1, 1, -1, 1, 1e-6, @quadgk), pi * erf (1).^2, 1e-6) %!assert (dblquad (@(x,y) exp (-x.^2 - y.^2) , -1, 1, -1, 1, 1e-6, @quadl), pi * erf (1).^2, 1e-6) %!assert (dblquad (@(x,y) exp (-x.^2 - y.^2) , -1, 1, -1, 1, 1e-6, @quadv), pi * erf (1).^2, 1e-6)