stepan
/
dynare
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixed unit tests on Weibull pdf (Octave testsuite). 

(cherry picked from commit bc962a91c0749e6c9f108c867acde134e6bb80fc)
time-shift
Stéphane Adjemian(Charybdis) 2018-07-17 15:32:07 +02:00
parent 4154817acc
commit 0d27bd8dea
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
matlab/distributions/lpdfgweibull.m
View File

@ -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