Mercurial > hg > octave-lyh

comparison scripts/statistics/distributions/wblcdf.m @ 10525:3306cfcb856e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Replace constructs like "NaN * one()" with "NaN()" and "Inf * ones ()" with "Inf()"
author David Bateman <dbateman@free.fr>
date Fri, 16 Apr 2010 10:32:07 +0200
parents 16f53d29049f
children be55736a0783
comparison
equal deleted inserted replaced
10524:1c6ff93c025a 10525:3306cfcb856e
56 if (retval > 0) 56 if (retval > 0)
57 error ("wblcdf: x, scale and shape must be of common size or scalar"); 57 error ("wblcdf: x, scale and shape must be of common size or scalar");
58 endif 58 endif
59 endif 59 endif
60 60
61 cdf = NaN * ones (size (x)); 61 cdf = NaN (size (x));
62 62
63 ok = ((shape > 0) & (shape < Inf) & (scale > 0) & (scale < Inf)); 63 ok = ((shape > 0) & (shape < Inf) & (scale > 0) & (scale < Inf));
64 64
65 k = find ((x <= 0) & ok); 65 k = find ((x <= 0) & ok);
66 if (any (k)) 66 if (any (k))