Mercurial > octave-nkf

comparison 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
comparison
equal deleted inserted replaced
6776:d388a35a9481 6777:4775fc1aa728
61 endif 61 endif
62 62
63 k = find ((x > 0) & (x < Inf) & (l > 0)); 63 k = find ((x > 0) & (x < Inf) & (l > 0));
64 if (any (k)) 64 if (any (k))
65 if isscalar (l) 65 if isscalar (l)
66 cdf (k) = 1 - exp (- l .* x(k)); 66 cdf (k) = 1 - exp (- x(k) ./ l);
67 elseif isscalar (x) 67 elseif isscalar (x)
68 cdf (k) = 1 - exp (- l(k) .* x); 68 cdf (k) = 1 - exp (- x ./ l(k));
69 else 69 else
70 cdf (k) = 1 - exp (- l(k) .* x(k)); 70 cdf (k) = 1 - exp (- x(k) ./ l(k));
71 endif 71 endif
72 endif 72 endif
73 73
74 endfunction 74 endfunction