From 0d27bd8dea4634f76a5fa36265f96cdfa06a462a Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?St=C3=A9phane=20Adjemian=28Charybdis=29?= Date: Tue, 17 Jul 2018 15:32:07 +0200 Subject: [PATCH] Fixed unit tests on Weibull pdf (Octave testsuite). (cherry picked from commit bc962a91c0749e6c9f108c867acde134e6bb80fc) --- matlab/distributions/lpdfgweibull.m | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/matlab/distributions/lpdfgweibull.m b/matlab/distributions/lpdfgweibull.m index f09791903..cd8c8fd5c 100644 --- a/matlab/distributions/lpdfgweibull.m +++ b/matlab/distributions/lpdfgweibull.m @@ -206,7 +206,7 @@ end %$ %$ try %$ if isoctave -%$ s = quadv(density, .0000000001, 100000,1e-10); +%$ s = quadl(density, .0000000001, 100000, 1e-10); %$ else %$ s = integral(density, 0, 100000); %$ end @@ -229,7 +229,7 @@ end %$ %$ try %$ if isoctave -%$ s = quadv(density, .0000000001, 100000,1e-10); +%$ s = quadl(density, .0000000001, 100000, 1e-10); %$ else %$ s = integral(density, 0, 100000); %$ end @@ -252,7 +252,7 @@ end %$ %$ try %$ if isoctave -%$ s = quadv(density, .0000000001, 100000,1e-10); +%$ s = quadl(density, .0000000001, 100000, 1e-10); %$ else %$ s = integral(density, 0, 100000); %$ end @@ -279,7 +279,7 @@ end %$ %$ try %$ if isoctave -%$ s = quadv(xdens, .0000000001, 20,1e-10); +%$ s = quadgk(xdens, .0000000001, 100000, 1e-10); %$ else %$ s = integral(xdens, 0, 100000); %$ end @@ -302,7 +302,7 @@ end %$ %$ try %$ if isoctave -%$ s = quadv(xdens, .0000000001, 100000,1e-10); +%$ s = quadl(xdens, .0000000001, 100000, 1e-10); %$ else %$ s = integral(xdens, 0, 100000); %$ end @@ -325,7 +325,7 @@ end %$ %$ try %$ if isoctave -%$ s = quadv(xdens, .0000000001, 100000,1e-10); +%$ s = quadl(xdens, .0000000001, 100000, 1e-10); %$ else %$ s = integral(xdens, 0, 100000); %$ end @@ -351,7 +351,7 @@ end %$ s = NaN(n, 1); %$ for i=1:n %$ if isoctave() -%$ s(i) = quadv(density, .0000000001, .1*i,1e-10); +%$ s(i) = quadl(density, .0000000001, .1*i, 1e-10); %$ else %$ s(i) = integral(density, 0, .1*i); %$ end @@ -382,7 +382,7 @@ end %$ s = NaN(n, 1); %$ for i=1:n %$ if isoctave() -%$ s(i) = quadv(density, .0000000001, .1*i,1e-10); +%$ s(i) = quadl(density, .0000000001, .1*i, 1e-10); %$ else %$ s(i) = integral(density, 0, .1*i); %$ end @@ -413,7 +413,7 @@ end %$ s = NaN(n, 1); %$ for i=1:n %$ if isoctave() -%$ s(i) = quadv(density, .0000000001, .1*i,1e-10); +%$ s(i) = quadl(density, .0000000001, .1*i, 1e-10); %$ else %$ s(i) = integral(density, 0, .1*i); %$ end