Mercurial > octave-nkf

diff scripts/statistics/distributions/expcdf.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/expcdf.m	Tue Jul 17 15:22:47 2007 +0000
+++ b/scripts/statistics/distributions/expcdf.m	Wed Jul 18 16:32:52 2007 +0000
@@ -63,11 +63,11 @@
   k = find ((x > 0) & (x < Inf) & (l > 0));
   if (any (k))
     if isscalar (l)
-      cdf (k) = 1 - exp (- l .* x(k));
+      cdf (k) = 1 - exp (- x(k) ./ l);
     elseif isscalar (x)
-      cdf (k) = 1 - exp (- l(k) .* x);
+      cdf (k) = 1 - exp (- x ./ l(k));
     else
-      cdf (k) = 1 - exp (- l(k) .* x(k));
+      cdf (k) = 1 - exp (- x(k) ./ l(k));
     endif
   endif