Mercurial > octave-nkf

comparison scripts/statistics/distributions/trnd.m @ 11149:fe3c3dfc07eb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
style fix: break lines before && and ||, not after
author John W. Eaton <jwe@octave.org>
date Sat, 23 Oct 2010 03:00:31 -0400
parents be55736a0783
children 1740012184f9
comparison
equal deleted inserted replaced
11148:c9ec943ebe65 11149:fe3c3dfc07eb
40 if (! (isscalar (c) && (c > 0) && (c == round (c)))) 40 if (! (isscalar (c) && (c > 0) && (c == round (c))))
41 error ("trnd: c must be a positive integer"); 41 error ("trnd: c must be a positive integer");
42 endif 42 endif
43 sz = [r, c]; 43 sz = [r, c];
44 44
45 if (any (size (n) != 1) && 45 if (any (size (n) != 1)
46 ((length (size (n)) != length (sz)) || any (size (n) != sz))) 46 && ((length (size (n)) != length (sz)) || any (size (n) != sz)))
47 error ("trnd: n must be scalar or of size sz"); 47 error ("trnd: n must be scalar or of size sz");
48 endif 48 endif
49 elseif (nargin == 2) 49 elseif (nargin == 2)
50 if (isscalar (r) && (r > 0)) 50 if (isscalar (r) && (r > 0))
51 sz = [r, r]; 51 sz = [r, r];
53 sz = r(:)'; 53 sz = r(:)';
54 else 54 else
55 error ("trnd: r must be a positive integer or vector"); 55 error ("trnd: r must be a positive integer or vector");
56 endif 56 endif
57 57
58 if (any (size (n) != 1) && 58 if (any (size (n) != 1)
59 ((length (size (n)) != length (sz)) || any (size (n) != sz))) 59 && ((length (size (n)) != length (sz)) || any (size (n) != sz)))
60 error ("trnd: n must be scalar or of size sz"); 60 error ("trnd: n must be scalar or of size sz");
61 endif 61 endif
62 elseif (nargin == 1) 62 elseif (nargin == 1)
63 sz = size (n); 63 sz = size (n);
64 else 64 else