Mercurial > octave-nkf
diff scripts/statistics/distributions/poissinv.m @ 10549:95c3e38098bf
Untabify .m scripts
author | Rik <code@nomad.inbox5.com> |
---|---|
date | Fri, 23 Apr 2010 11:28:50 -0700 |
parents | a1dbe9d80eee |
children | c776f063fefe |
line wrap: on
line diff
--- a/scripts/statistics/distributions/poissinv.m Fri Apr 23 11:13:48 2010 -0700 +++ b/scripts/statistics/distributions/poissinv.m Fri Apr 23 11:28:50 2010 -0700 @@ -62,11 +62,11 @@ m = find (cdf < x(k)); if (any (m)) inv(k(m)) = inv(k(m)) + 1; - if (isscalar (l)) + if (isscalar (l)) cdf(m) = cdf(m) + poisspdf (inv(k(m)), l); - else + else cdf(m) = cdf(m) + poisspdf (inv(k(m)), l(k(m))); - endif + endif else break; endif