Mercurial > octave-nkf

diff scripts/statistics/distributions/gaminv.m @ 6777:4775fc1aa728

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-07-18 16:32:51 by dbateman]
author dbateman
date Wed, 18 Jul 2007 16:32:52 +0000
parents 34f96dd5441b
children 93c65f2a5668
line wrap: on
line diff
--- a/scripts/statistics/distributions/gaminv.m	Tue Jul 17 15:22:47 2007 +0000
+++ b/scripts/statistics/distributions/gaminv.m	Wed Jul 18 16:32:52 2007 +0000
@@ -59,9 +59,9 @@
     if (!isscalar(a) || !isscalar(b))
       a = a (k);
       b = b (k);
-      y = a ./ b;
+      y = a .* b;
     else
-      y = a / b * ones (size (k));
+      y = a * b * ones (size (k));
     endif
     x = x (k);
     l = find (x < eps);