Mercurial > hg > octave-nkf

comparison scripts/deprecated/lognormal_pdf.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
31 ## Author: KH <Kurt.Hornik@wu-wien.ac.at> 31 ## Author: KH <Kurt.Hornik@wu-wien.ac.at>
32 ## Description: PDF of the log normal distribution 32 ## Description: PDF of the log normal distribution
33 33
34 function pdf = lognormal_pdf (varargin) 34 function pdf = lognormal_pdf (varargin)
35 35
36 pdf = lognpdf (varargin{:}); 36 if (nargin > 1)
37 a = varargin{2};
38 idx = a >= 0;
39 a(idx) = log (a(idx));
40 a(!idx) = NaN;
41 varargin{2} = a;
42 endif
43
44 if (nargin > 2)
45 v = varargin{3};
46 idx = v >= 0;
47 v(idx) = sqrt (v(idx));
48 v(!idx) = NaN;
49 varargin{3} = v;
50 endif
51
52 pdf = lognpdf (varargin{:});
37 53
38 endfunction 54 endfunction