Fixed unit tests on Weibull pdf (Octave testsuite).

(cherry picked from commit bc962a91)
parent 4154817a
...@@ -206,7 +206,7 @@ end ...@@ -206,7 +206,7 @@ end
%$ %$
%$ try %$ try
%$ if isoctave %$ if isoctave
%$ s = quadv(density, .0000000001, 100000,1e-10); %$ s = quadl(density, .0000000001, 100000, 1e-10);
%$ else %$ else
%$ s = integral(density, 0, 100000); %$ s = integral(density, 0, 100000);
%$ end %$ end
...@@ -229,7 +229,7 @@ end ...@@ -229,7 +229,7 @@ end
%$ %$
%$ try %$ try
%$ if isoctave %$ if isoctave
%$ s = quadv(density, .0000000001, 100000,1e-10); %$ s = quadl(density, .0000000001, 100000, 1e-10);
%$ else %$ else
%$ s = integral(density, 0, 100000); %$ s = integral(density, 0, 100000);
%$ end %$ end
...@@ -252,7 +252,7 @@ end ...@@ -252,7 +252,7 @@ end
%$ %$
%$ try %$ try
%$ if isoctave %$ if isoctave
%$ s = quadv(density, .0000000001, 100000,1e-10); %$ s = quadl(density, .0000000001, 100000, 1e-10);
%$ else %$ else
%$ s = integral(density, 0, 100000); %$ s = integral(density, 0, 100000);
%$ end %$ end
...@@ -279,7 +279,7 @@ end ...@@ -279,7 +279,7 @@ end
%$ %$
%$ try %$ try
%$ if isoctave %$ if isoctave
%$ s = quadv(xdens, .0000000001, 20,1e-10); %$ s = quadgk(xdens, .0000000001, 100000, 1e-10);
%$ else %$ else
%$ s = integral(xdens, 0, 100000); %$ s = integral(xdens, 0, 100000);
%$ end %$ end
...@@ -302,7 +302,7 @@ end ...@@ -302,7 +302,7 @@ end
%$ %$
%$ try %$ try
%$ if isoctave %$ if isoctave
%$ s = quadv(xdens, .0000000001, 100000,1e-10); %$ s = quadl(xdens, .0000000001, 100000, 1e-10);
%$ else %$ else
%$ s = integral(xdens, 0, 100000); %$ s = integral(xdens, 0, 100000);
%$ end %$ end
...@@ -325,7 +325,7 @@ end ...@@ -325,7 +325,7 @@ end
%$ %$
%$ try %$ try
%$ if isoctave %$ if isoctave
%$ s = quadv(xdens, .0000000001, 100000,1e-10); %$ s = quadl(xdens, .0000000001, 100000, 1e-10);
%$ else %$ else
%$ s = integral(xdens, 0, 100000); %$ s = integral(xdens, 0, 100000);
%$ end %$ end
...@@ -351,7 +351,7 @@ end ...@@ -351,7 +351,7 @@ end
%$ s = NaN(n, 1); %$ s = NaN(n, 1);
%$ for i=1:n %$ for i=1:n
%$ if isoctave() %$ if isoctave()
%$ s(i) = quadv(density, .0000000001, .1*i,1e-10); %$ s(i) = quadl(density, .0000000001, .1*i, 1e-10);
%$ else %$ else
%$ s(i) = integral(density, 0, .1*i); %$ s(i) = integral(density, 0, .1*i);
%$ end %$ end
...@@ -382,7 +382,7 @@ end ...@@ -382,7 +382,7 @@ end
%$ s = NaN(n, 1); %$ s = NaN(n, 1);
%$ for i=1:n %$ for i=1:n
%$ if isoctave() %$ if isoctave()
%$ s(i) = quadv(density, .0000000001, .1*i,1e-10); %$ s(i) = quadl(density, .0000000001, .1*i, 1e-10);
%$ else %$ else
%$ s(i) = integral(density, 0, .1*i); %$ s(i) = integral(density, 0, .1*i);
%$ end %$ end
...@@ -413,7 +413,7 @@ end ...@@ -413,7 +413,7 @@ end
%$ s = NaN(n, 1); %$ s = NaN(n, 1);
%$ for i=1:n %$ for i=1:n
%$ if isoctave() %$ if isoctave()
%$ s(i) = quadv(density, .0000000001, .1*i,1e-10); %$ s(i) = quadl(density, .0000000001, .1*i, 1e-10);
%$ else %$ else
%$ s(i) = integral(density, 0, .1*i); %$ s(i) = integral(density, 0, .1*i);
%$ end %$ end
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment