Mercurial > hg > octave-lyh

diff scripts/deprecated/exponential_rnd.m @ 6777:4775fc1aa728

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-07-18 16:32:51 by dbateman]
author dbateman
date Wed, 18 Jul 2007 16:32:52 +0000
parents 2a16423e4aa0
children 93c65f2a5668
line wrap: on
line diff
--- a/scripts/deprecated/exponential_rnd.m
+++ b/scripts/deprecated/exponential_rnd.m
@@ -34,6 +34,10 @@
 
 function rnd = exponential_rnd (varargin)
 
+ if (nargin > 0)
+   varargin{1} = 1 ./ varargin{1};
+ endif
+
  rnd =  exprnd (varargin{:});
 
 endfunction