Mercurial > hg > octave-nkf

comparison scripts/deprecated/lognormal_rnd.m @ 5692:fe226f54d259

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2006-03-17 17:02:32 by jwe]
author jwe
date Fri, 17 Mar 2006 17:02:32 +0000
parents 2a16423e4aa0
children 93c65f2a5668
comparison
equal deleted inserted replaced
5691:9be68956e450 5692:fe226f54d259
32 ## Author: KH <Kurt.Hornik@wu-wien.ac.at> 32 ## Author: KH <Kurt.Hornik@wu-wien.ac.at>
33 ## Description: Random deviates from the log normal distribution 33 ## Description: Random deviates from the log normal distribution
34 34
35 function rnd = lognormal_rnd (varargin) 35 function rnd = lognormal_rnd (varargin)
36 36
37 rnd = lognrnd (varargin{:}); 37 if (nargin > 1)
38 a = varargin{2};
39 idx = a >= 0;
40 a(idx) = log (a(idx));
41 a(!idx) = NaN;
42 varargin{2} = a;
43 endif
44
45 if (nargin > 2)
46 v = varargin{3};
47 idx = v >= 0;
48 v(idx) = sqrt (v(idx));
49 v(!idx) = NaN;
50 varargin{3} = v;
51 endif
52
53 rnd = lognrnd (varargin{:});
38 54
39 endfunction 55 endfunction