Mercurial > octave-nkf

diff scripts/statistics/distributions/wblinv.m @ 12695:c9e1a2f8d7f8 stable

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
wblinv.m: Bug fix to return 0 for input 0 and not -Inf. * wblinv.m: Bug fix to return 0 for input 0 and not -Inf.
author Rik <octave@nomad.inbox5.com>
date Tue, 31 May 2011 22:52:18 -0700
parents fd0a3ac60b0e
children 19b9f17d22af
line wrap: on
line diff
--- a/scripts/statistics/distributions/wblinv.m	Tue May 31 11:50:38 2011 -0700
+++ b/scripts/statistics/distributions/wblinv.m	Tue May 31 22:52:18 2011 -0700
@@ -53,7 +53,7 @@
 
   k = find ((x == 0) & ok);
   if (any (k))
-    inv(k) = -Inf;
+    inv(k) = 0;
   endif
 
   k = find ((x > 0) & (x < 1) & ok);