Mercurial > octave-nkf

comparison scripts/statistics/distributions/hygepdf.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 3306cfcb856e
children 1740012184f9
comparison
equal deleted inserted replaced
10548:479536c5bb10 10549:95c3e38098bf
60 endif 60 endif
61 k = find (!i1 & !i2); 61 k = find (!i1 & !i2);
62 if (any (k)) 62 if (any (k))
63 if (isscalar (t) && isscalar (m) && isscalar (n)) 63 if (isscalar (t) && isscalar (m) && isscalar (n))
64 pdf (k) = (bincoeff (m, x(k)) .* bincoeff (t-m, n-x(k)) 64 pdf (k) = (bincoeff (m, x(k)) .* bincoeff (t-m, n-x(k))
65 / bincoeff (t, n)); 65 / bincoeff (t, n));
66 else 66 else
67 pdf (k) = (bincoeff (m(k), x(k)) .* bincoeff (t(k)-m(k), n(k)-x(k)) 67 pdf (k) = (bincoeff (m(k), x(k)) .* bincoeff (t(k)-m(k), n(k)-x(k))
68 ./ bincoeff (t(k), n(k))); 68 ./ bincoeff (t(k), n(k)));
69 endif 69 endif
70 endif 70 endif
71 71
72 endfunction 72 endfunction