Mercurial > octave-nkf
diff scripts/statistics/distributions/nbinpdf.m @ 10549:95c3e38098bf
Untabify .m scripts
author | Rik <code@nomad.inbox5.com> |
---|---|
date | Fri, 23 Apr 2010 11:28:50 -0700 |
parents | a1dbe9d80eee |
children | 1740012184f9 |
line wrap: on
line diff
--- a/scripts/statistics/distributions/nbinpdf.m Fri Apr 23 11:13:48 2010 -0700 +++ b/scripts/statistics/distributions/nbinpdf.m Fri Apr 23 11:28:50 2010 -0700 @@ -46,20 +46,20 @@ pdf = zeros (size (x)); k = find (isnan (x) | (n < 1) | (n == Inf) | (n != round (n)) - | (p < 0) | (p > 1)); + | (p < 0) | (p > 1)); if (any (k)) pdf(k) = NaN; endif ## Just for the fun of it ... k = find ((x == Inf) & (n > 0) & (n < Inf) & (n == round (n)) - & (p == 0)); + & (p == 0)); if (any (k)) pdf(k) = 1; endif k = find ((x >= 0) & (x < Inf) & (x == round (x)) & (n > 0) - & (n < Inf) & (n == round (n)) & (p > 0) & (p <= 1)); + & (n < Inf) & (n == round (n)) & (p > 0) & (p <= 1)); if (any (k)) if (isscalar (n) && isscalar (p)) pdf(k) = bincoeff (-n, x(k)) .* (p ^ n) .* ((p - 1) .^ x(k));