Mercurial > octave-nkf
diff scripts/statistics/distributions/wblpdf.m @ 10549:95c3e38098bf
Untabify .m scripts
author | Rik <code@nomad.inbox5.com> |
---|---|
date | Fri, 23 Apr 2010 11:28:50 -0700 |
parents | 3306cfcb856e |
children | a8ce6bdecce5 |
line wrap: on
line diff
--- a/scripts/statistics/distributions/wblpdf.m Fri Apr 23 11:13:48 2010 -0700 +++ b/scripts/statistics/distributions/wblpdf.m Fri Apr 23 11:28:50 2010 -0700 @@ -71,12 +71,12 @@ if (any (k)) if (isscalar (shape) && isscalar (scale)) pdf(k) = (shape .* (scale .^ -shape) - .* (x(k) .^ (shape - 1)) - .* exp(- (x(k) / scale) .^ shape)); + .* (x(k) .^ (shape - 1)) + .* exp(- (x(k) / scale) .^ shape)); else pdf(k) = (shape(k) .* (scale(k) .^ -shape(k)) - .* (x(k) .^ (shape(k) - 1)) - .* exp(- (x(k) ./ scale(k)) .^ shape(k))); + .* (x(k) .^ (shape(k) - 1)) + .* exp(- (x(k) ./ scale(k)) .^ shape(k))); endif endif