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