Mercurial > octave-nkf
comparison scripts/statistics/distributions/wblrnd.m @ 7007:6304d9ea0a30
[project @ 2007-10-11 16:26:36 by jwe]
author | jwe |
---|---|
date | Thu, 11 Oct 2007 16:26:37 +0000 |
parents | d285f4ee2b0c |
children | 93c65f2a5668 |
comparison
equal
deleted
inserted
replaced
7006:039ef140ac35 | 7007:6304d9ea0a30 |
---|---|
61 if (isscalar (r) && (r > 0)) | 61 if (isscalar (r) && (r > 0)) |
62 sz = [r, r]; | 62 sz = [r, r]; |
63 elseif (isvector(r) && all (r > 0)) | 63 elseif (isvector(r) && all (r > 0)) |
64 sz = r(:)'; | 64 sz = r(:)'; |
65 else | 65 else |
66 error ("wblrnd: r must be a postive integer or vector"); | 66 error ("wblrnd: r must be a positive integer or vector"); |
67 endif | 67 endif |
68 | 68 |
69 if (any (size (scale) != 1) && | 69 if (any (size (scale) != 1) && |
70 ((length (size (scale)) != length (sz)) || | 70 ((length (size (scale)) != length (sz)) || |
71 any (size (scale) != sz))) | 71 any (size (scale) != sz))) |