Mercurial > octave-nkf

diff scripts/statistics/distributions/expinv.m @ 6777:4775fc1aa728

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-07-18 16:32:51 by dbateman]
author dbateman
date Wed, 18 Jul 2007 16:32:52 +0000
parents 34f96dd5441b
children 93c65f2a5668
line wrap: on
line diff
--- a/scripts/statistics/distributions/expinv.m	Tue Jul 17 15:22:47 2007 +0000
+++ b/scripts/statistics/distributions/expinv.m	Wed Jul 18 16:32:52 2007 +0000
@@ -61,11 +61,11 @@
   k = find ((x > 0) & (x < 1) & (l > 0));
   if (any (k))
     if isscalar (l)
-      inv(k) = - log (1 - x(k)) ./ l;
+      inv(k) = - l .* log (1 - x(k));
     elseif isscalar (x)
-      inv(k) = - log (1 - x) ./ l(k);
+      inv(k) = - l(k) .* log (1 - x);
     else
-      inv(k) = - log (1 - x(k)) ./ l(k);
+      inv(k) = - l(k) .* log (1 - x(k));
     endif
   endif