Mercurial > octave-nkf

comparison scripts/general/randperm.m @ 5500:709307492cd7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2005-10-18 19:18:21 by jwe]
author jwe
date Tue, 18 Oct 2005 19:18:22 +0000
parents 4c8a2e4e0717
children 34f96dd5441b
comparison
equal deleted inserted replaced
5499:9e3efbc3070a 5500:709307492cd7
27 ## Adapted-By: jwe 27 ## Adapted-By: jwe
28 28
29 function retval = randperm (n) 29 function retval = randperm (n)
30 30
31 if (nargin == 1 && isscalar (n) && floor (n) == n) 31 if (nargin == 1 && isscalar (n) && floor (n) == n)
32 if (n > 0) 32 if (n >= 0)
33 [junk, retval] = sort (rand (1, n)); 33 [junk, retval] = sort (rand (1, n));
34 else 34 else
35 error ("randperm: argument must be positive"); 35 error ("randperm: argument must be non-negative");
36 endif 36 endif
37 else 37 else
38 usage ("randperm (n)"); 38 usage ("randperm (n)");
39 endif 39 endif
40 40