Mercurial > octave-nkf

comparison scripts/statistics/distributions/finv.m @ 10549:95c3e38098bf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Untabify .m scripts
author Rik <code@nomad.inbox5.com>
date Fri, 23 Apr 2010 11:28:50 -0700
parents a1dbe9d80eee
children 1740012184f9
comparison
equal deleted inserted replaced
10548:479536c5bb10 10549:95c3e38098bf
56 if (any (k)) 56 if (any (k))
57 if (isscalar (m) && isscalar (n)) 57 if (isscalar (m) && isscalar (n))
58 inv(k) = ((1 ./ betainv (1 - x(k), n / 2, m / 2) - 1) .* n ./ m); 58 inv(k) = ((1 ./ betainv (1 - x(k), n / 2, m / 2) - 1) .* n ./ m);
59 else 59 else
60 inv(k) = ((1 ./ betainv (1 - x(k), n(k) / 2, m(k) / 2) - 1) 60 inv(k) = ((1 ./ betainv (1 - x(k), n(k) / 2, m(k) / 2) - 1)
61 .* n(k) ./ m(k)); 61 .* n(k) ./ m(k));
62 endif 62 endif
63 endif 63 endif
64 64
65 endfunction 65 endfunction