Mercurial > hg > octave-lyh

comparison scripts/deprecated/hypergeometric_rnd.m @ 5413:16e6025808fe

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2005-07-13 19:36:52 by jwe]
author jwe
date Wed, 13 Jul 2005 19:36:56 +0000
parents bee21f388110
children 9be68956e450
comparison
equal deleted inserted replaced
5412:48b81cd789f2 5413:16e6025808fe
31 ## 31 ##
32 ## The parameters @var{m}, @var{t}, and @var{n} must positive integers 32 ## The parameters @var{m}, @var{t}, and @var{n} must positive integers
33 ## with @var{m} and @var{n} not greater than @var{t}. 33 ## with @var{m} and @var{n} not greater than @var{t}.
34 ## @end deftypefn 34 ## @end deftypefn
35 35
36 ## function rnd = hypergeometric_rnd (N, m, t, n) 36 function rnd = hypergeometric_rnd (N, m, t, n)
37 function rnd = hypergeometric_rnd (varargin)
38 37
39 rnd = hygernd (varargin{:}); 38 switch (nargin)
39 case 3
40 rnd = hygernd (m, t, N);
41 case 4
42 rnd = hygernd (m, t, N, n);
43 otherwise
44 usage ("rnd = hypergeometric_rnd (N, m, t, n)");
45 endswitch
40 46
41 endfunction 47 endfunction