Mercurial > octave-nkf

comparison scripts/statistics/distributions/exprnd.m @ 6016:bd22133332bd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2006-10-02 13:48:46 by jwe]
author jwe
date Mon, 02 Oct 2006 13:48:47 +0000
parents 2a16423e4aa0
children 34f96dd5441b
comparison
equal deleted inserted replaced
6015:a104f362b5d4 6016:bd22133332bd
42 error ("exprnd: c must be a positive integer"); 42 error ("exprnd: c must be a positive integer");
43 endif 43 endif
44 sz = [r, c]; 44 sz = [r, c];
45 45
46 if (any (size (l) != 1) && 46 if (any (size (l) != 1) &&
47 ((length (size (nl)) != length (sz)) || any (size (l) != sz))) 47 (length (size (l)) != length (sz) || any (size (l) != sz)))
48 error ("exprnd: lambda must be scalar or of size [r, c]"); 48 error ("exprnd: lambda must be scalar or of size [r, c]");
49 endif 49 endif
50 elseif (nargin == 2) 50 elseif (nargin == 2)
51 if (isscalar (r) && (r > 0)) 51 if (isscalar (r) && (r > 0))
52 sz = [r, r]; 52 sz = [r, r];