Mercurial > octave-nkf

changeset 5691:9be68956e450

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2006-03-17 15:14:41 by jwe]
author jwe
date Fri, 17 Mar 2006 15:14:41 +0000
parents 161ebd1f3410
children fe226f54d259
files scripts/ChangeLog scripts/deprecated/hypergeometric_rnd.m scripts/deprecated/t_rnd.m scripts/statistics/distributions/hygernd.m
diffstat 4 files changed, 15 insertions(+), 27 deletions(-) [+]
line wrap: on
line diff
--- a/scripts/ChangeLog	Fri Mar 17 06:17:25 2006 +0000
+++ b/scripts/ChangeLog	Fri Mar 17 15:14:41 2006 +0000
@@ -1,5 +1,10 @@
 2006-03-17  John W. Eaton  <jwe@octave.org>
 
+	* deprecated/hypergeometric_rnd.m: Update interface to match
+	current 2.1.x version.
+
+	* deprecated/t_rnd.m: Call trnd, not t_rnd.
+
 	* miscellaneous/dir.m: Use readdir instead of glob.
 	Special case for "." to avoid globbing.  Use list_in_columns.
 	Eliminate unused variables len and finfo.
--- a/scripts/deprecated/hypergeometric_rnd.m	Fri Mar 17 06:17:25 2006 +0000
+++ b/scripts/deprecated/hypergeometric_rnd.m	Fri Mar 17 15:14:41 2006 +0000
@@ -18,30 +18,18 @@
 ## 02110-1301, USA.
 
 ## -*- texinfo -*-
-## @deftypefn {Function File} {} hypergeometric_rnd (@var{n_size}, @var{m}, @var{t}, @var{n})
-## @deftypefnx {Function File} {} hypergeometric_rnd (@var{m}, @var{t}, @var{n}, @var{r}, @var{c})
-## @deftypefnx {Function File} {} hypergeometric_rnd (@var{m}, @var{t}, @var{n}, @var{sz})
-## Generate a row vector containing a random sample of size @var{n_size}
-## from the hypergeometric distribution with parameters @var{m}, @var{t},
+## @deftypefn {Function File} {} hypergeometric_rnd (@var{m}, @var{t}, @var{n}, @var{r}, @var{c})
+## @deftypefnx {Function File} {} hygernd (@var{m}, @var{t}, @var{n}, @var{sz})
+## Return an @var{r} by @var{c} matrix of random samples from the
+## hypergeometric distribution with parameters @var{m}, @var{t},
 ## and @var{n}.
 ##
-## If  @var{r} and @var{c} are given create a matrix with @var{r} rows and
-## @var{c} columns. Or if @var{sz} is a vector, create a matrix of size
-## @var{sz}.
-##
 ## The parameters @var{m}, @var{t}, and @var{n} must positive integers
 ## 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)
 
-  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
+  rnd = hygernd (varargin{:});
 
 endfunction
--- a/scripts/deprecated/t_rnd.m	Fri Mar 17 06:17:25 2006 +0000
+++ b/scripts/deprecated/t_rnd.m	Fri Mar 17 15:14:41 2006 +0000
@@ -34,6 +34,6 @@
 
 function rnd = t_rnd (varargin)
 
- rnd =  t_rnd (varargin{:});
+ rnd =  trnd (varargin{:});
 
 endfunction
--- a/scripts/statistics/distributions/hygernd.m	Fri Mar 17 06:17:25 2006 +0000
+++ b/scripts/statistics/distributions/hygernd.m	Fri Mar 17 15:14:41 2006 +0000
@@ -18,17 +18,12 @@
 ## 02110-1301, USA.
 
 ## -*- texinfo -*-
-## @deftypefn {Function File} {} hygernd (@var{n_size}, @var{m}, @var{t}, @var{n})
-## @deftypefnx {Function File} {} hygernd (@var{m}, @var{t}, @var{n}, @var{r}, @var{c})
+## @deftypefn {Function File} {} hygernd (@var{m}, @var{t}, @var{n}, @var{r}, @var{c})
 ## @deftypefnx {Function File} {} hygernd (@var{m}, @var{t}, @var{n}, @var{sz})
-## Generate a row vector containing a random sample of size @var{n_size}
-## from the hypergeometric distribution with parameters @var{m}, @var{t},
+## Return an @var{r} by @var{c} matrix of random samples from the
+## hypergeometric distribution with parameters @var{m}, @var{t},
 ## and @var{n}.
 ##
-## If  @var{r} and @var{c} are given create a matrix with @var{r} rows and
-## @var{c} columns. Or if @var{sz} is a vector, create a matrix of size
-## @var{sz}.
-##
 ## The parameters @var{m}, @var{t}, and @var{n} must positive integers
 ## with @var{m} and @var{n} not greater than @var{t}.
 ## @end deftypefn