Mercurial > octave-nkf
diff scripts/statistics/distributions/gampdf.m @ 10549:95c3e38098bf
Untabify .m scripts
author | Rik <code@nomad.inbox5.com> |
---|---|
date | Fri, 23 Apr 2010 11:28:50 -0700 |
parents | a1dbe9d80eee |
children | 1740012184f9 |
line wrap: on
line diff
--- a/scripts/statistics/distributions/gampdf.m Fri Apr 23 11:13:48 2010 -0700 +++ b/scripts/statistics/distributions/gampdf.m Fri Apr 23 11:28:50 2010 -0700 @@ -52,10 +52,10 @@ if (any (k)) if (isscalar(a) && isscalar(b)) pdf(k) = (x(k) .^ (a - 1)) ... - .* exp(- x(k) ./ b) ./ gamma (a) ./ (b .^ a); + .* exp(- x(k) ./ b) ./ gamma (a) ./ (b .^ a); else pdf(k) = (x(k) .^ (a(k) - 1)) ... - .* exp(- x(k) ./ b(k)) ./ gamma (a(k)) ./ (b(k) .^ a(k)); + .* exp(- x(k) ./ b(k)) ./ gamma (a(k)) ./ (b(k) .^ a(k)); endif endif @@ -63,10 +63,10 @@ if (any (k)) if (isscalar(a) && isscalar(b)) pdf(k) = exp (- a .* log (b) + (a-1) .* log (x(k)) - - x(k) ./ b - gammaln (a)); + - x(k) ./ b - gammaln (a)); else pdf(k) = exp (- a(k) .* log (b(k)) + (a(k)-1) .* log (x(k)) - - x(k) ./ b(k) - gammaln (a(k))); + - x(k) ./ b(k) - gammaln (a(k))); endif endif