commit
1de5ac8ecf
|
@ -279,7 +279,7 @@ end
|
||||||
%$
|
%$
|
||||||
%$ try
|
%$ try
|
||||||
%$ if isoctave
|
%$ if isoctave
|
||||||
%$ s = quadv(xdens, .0000000001, 100000,1e-10)
|
%$ s = quadv(xdens, .0000000001, 20,1e-10)
|
||||||
%$ else
|
%$ else
|
||||||
%$ s = integral(xdens, 0, 100000);
|
%$ s = integral(xdens, 0, 100000);
|
||||||
%$ end
|
%$ end
|
||||||
|
|
|
@ -155,10 +155,14 @@ t = exp(log(scale)+log(-log(1-proba))/shape);
|
||||||
%$ if debug
|
%$ if debug
|
||||||
%$ [s, abs(p-s)]
|
%$ [s, abs(p-s)]
|
||||||
%$ end
|
%$ end
|
||||||
|
%$ if isoctave
|
||||||
|
%$ t(k) = abs(p-s)<1e-10;
|
||||||
|
%$ else
|
||||||
%$ t(k) = abs(p-s)<1e-12;
|
%$ t(k) = abs(p-s)<1e-12;
|
||||||
%$ end
|
%$ end
|
||||||
%$ end
|
%$ end
|
||||||
%$ end
|
%$ end
|
||||||
|
%$ end
|
||||||
%$ T = all(t);
|
%$ T = all(t);
|
||||||
%@eof:4
|
%@eof:4
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue