Mercurial > octave-nkf

comparison scripts/statistics/distributions/exprnd.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 20c48710b2c7
children 6304d9ea0a30
comparison
equal deleted inserted replaced
6776:d388a35a9481 6777:4775fc1aa728
67 endif 67 endif
68 68
69 69
70 if (isscalar (l)) 70 if (isscalar (l))
71 if ((l > 0) && (l < Inf)) 71 if ((l > 0) && (l < Inf))
72 rnd = rande(sz) / l; 72 rnd = rande(sz) * l;
73 else 73 else
74 rnd = NaN * ones (sz); 74 rnd = NaN * ones (sz);
75 endif 75 endif
76 else 76 else
77 rnd = zeros (sz); 77 rnd = zeros (sz);
79 if (any (k)) 79 if (any (k))
80 rnd(k) = NaN; 80 rnd(k) = NaN;
81 endif 81 endif
82 k = find ((l > 0) & (l < Inf)); 82 k = find ((l > 0) & (l < Inf));
83 if (any (k)) 83 if (any (k))
84 rnd(k) = rande(size(k)) / l(k); 84 rnd(k) = rande(size(k)) .* l(k);
85 endif 85 endif
86 endif 86 endif
87 87
88 endfunction 88 endfunction