diff --git a/matlab/distributions/lpdfgweibull.m b/matlab/distributions/lpdfgweibull.m index c99cba7cd..3f2df819d 100644 --- a/matlab/distributions/lpdfgweibull.m +++ b/matlab/distributions/lpdfgweibull.m @@ -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 diff --git a/matlab/missing/stats/wblinv.m b/matlab/missing/stats/wblinv.m index f22f9278e..1b87c9fcb 100644 --- a/matlab/missing/stats/wblinv.m +++ b/matlab/missing/stats/wblinv.m @@ -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