Mercurial > octave-nkf
diff scripts/statistics/distributions/poissrnd.m @ 14593:f4acb362b513
maint: Periodic merge of stable to default
author | Jordi Gutiérrez Hermoso <jordigh@octave.org> |
---|---|
date | Thu, 03 May 2012 00:50:03 -0400 |
parents | f3d52523cde1 89504d0a5c5b |
children | 57569a35765c |
line wrap: on
line diff
--- a/scripts/statistics/distributions/poissrnd.m Wed May 02 17:13:56 2012 -0400 +++ b/scripts/statistics/distributions/poissrnd.m Thu May 03 00:50:03 2012 -0400 @@ -76,7 +76,7 @@ endif if (isscalar (lambda)) - if (lambda > 0 && lambda < Inf) + if (lambda >= 0 && lambda < Inf) rnd = randp (lambda, sz); if (strcmp (cls, "single")) rnd = single (rnd); @@ -87,7 +87,7 @@ else rnd = NaN (sz, cls); - k = (lambda > 0) & (lambda < Inf); + k = (lambda >= 0) & (lambda < Inf); rnd(k) = randp (lambda(k)); endif @@ -118,3 +118,6 @@ %!error poissrnd (ones (2,2), [3, 2]) %!error poissrnd (ones (2,2), 2, 3) +%!assert (poissrnd (0, 1, 1), 0) +%!assert (poissrnd ([0, 0, 0], [1, 3]), [0 0 0]) +