Mercurial > hg > octave-lyh

diff 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
line wrap: on
line diff
--- a/scripts/deprecated/hypergeometric_rnd.m
+++ b/scripts/deprecated/hypergeometric_rnd.m
@@ -33,9 +33,15 @@
 ## with @var{m} and @var{n} not greater than @var{t}.
 ## @end deftypefn
 
-## function rnd = hypergeometric_rnd (N, m, t, n)
-function rnd = hypergeometric_rnd (varargin)
+function rnd = hypergeometric_rnd (N, m, t, n)
 
-  rnd = hygernd (varargin{:});
+  switch (nargin)
+    case 3
+      rnd = hygernd (m, t, N);
+    case 4
+      rnd = hygernd (m, t, N, n);
+    otherwise
+      usage ("rnd = hypergeometric_rnd (N, m, t, n)");
+  endswitch
 
 endfunction