Mercurial > hg > octave-nkf

comparison scripts/deprecated/exponential_rnd.m @ 7696:0a362fa8f3c8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add warning to rest of deprecated functions
author David Bateman <dbateman@free.fr>
date Fri, 04 Apr 2008 10:18:35 -0400
parents 8e5371d47da6
children 1cdb42b372e8 72830070a17b
comparison
equal deleted inserted replaced
7695:eacf87a24f55 7696:0a362fa8f3c8
33 33
34 ## Deprecated in version 3.0 34 ## Deprecated in version 3.0
35 35
36 function rnd = exponential_rnd (varargin) 36 function rnd = exponential_rnd (varargin)
37 37
38 persistent warned = false;
39 if (! warned)
40 warned = true;
41 warning ("Octave:deprecated-function",
42 ["exponential_rnd is obsolete and will be removed from a future\n",
43 "version of Octave, please use exprnd instead"]);
44 endif
45
38 if (nargin > 0) 46 if (nargin > 0)
39 varargin{1} = 1 ./ varargin{1}; 47 varargin{1} = 1 ./ varargin{1};
40 endif 48 endif
41 49
42 rnd = exprnd (varargin{:}); 50 rnd = exprnd (varargin{:});