Mercurial > octave-nkf
diff scripts/statistics/distributions/nbinrnd.m @ 10549:95c3e38098bf
Untabify .m scripts
author | Rik <code@nomad.inbox5.com> |
---|---|
date | Fri, 23 Apr 2010 11:28:50 -0700 |
parents | 3306cfcb856e |
children | be55736a0783 |
line wrap: on
line diff
--- a/scripts/statistics/distributions/nbinrnd.m Fri Apr 23 11:13:48 2010 -0700 +++ b/scripts/statistics/distributions/nbinrnd.m Fri Apr 23 11:28:50 2010 -0700 @@ -37,7 +37,7 @@ if (!isscalar(n) || !isscalar(p)) [retval, n, p] = common_size (n, p); if (retval > 0) - error ("nbinrnd: n and p must be of common size or scalar"); + error ("nbinrnd: n and p must be of common size or scalar"); endif endif endif @@ -52,7 +52,7 @@ sz = [r, c]; if (any (size (n) != 1) && - ((length (size (n)) != length (sz)) || any (size (n) != sz))) + ((length (size (n)) != length (sz)) || any (size (n) != sz))) error ("nbinrnd: n and p must be scalar or of size [r, c]"); endif @@ -66,7 +66,7 @@ endif if (any (size (n) != 1) && - ((length (size (n)) != length (sz)) || any (size (n) != sz))) + ((length (size (n)) != length (sz)) || any (size (n) != sz))) error ("nbinrnd: n and p must be scalar or of size sz"); endif elseif (nargin == 2) @@ -79,7 +79,7 @@ if ((n < 1) || (n == Inf) || (n != round (n)) || (p <= 0) || (p > 1)); rnd = NaN (sz); elseif ((n > 0) && (n < Inf) && (n == round (n)) && - (p > 0) && (p <= 1)) + (p > 0) && (p <= 1)) rnd = randp ((1 - p) ./ p .* randg (n, sz)); else rnd = zeros (sz); @@ -88,7 +88,7 @@ rnd = zeros (sz); k = find ((n < 1) || (n == Inf) || (n != round (n)) || - (p <= 0) || (p > 1)); + (p <= 0) || (p > 1)); if (any (k)) rnd(k) = NaN; endif