chi2rnd.m prints internal results

[Jaroslav Hajek]

On Thu, Nov 13, 2008 at 6:11 PM, John W. Eaton <jwe at bevo.che.wisc.edu> wrote:
> On 11-Nov-2008, sven.mattisson at insatnet.nu wrote:
>
> | To: bug at octave.org
> | Cc: sven.mattisson at gmail.com
> | Subject: chi2rnd.m prints internal results
> |
> | Bug report for Octave 3.0.2 configured for i686-pc-linux-gnu
> |
> |   * The attached gentoo patch fixes both problems that existed in
> |     versions before 3.0.3.  For 3.0.3 only the last correction is needed,
> |
> |
> | diff -Naur octave-3.0.1/scripts/statistics/distributions/chi2rnd.m octave-3.0.1.new/scripts/statistics/distributions/chi2rnd.m
> | --- octave-3.0.1/scripts/statistics/distributions/chi2rnd.m   2008-04-21 11:58:40.000000000 -0400
> | +++ octave-3.0.1.new/scripts/statistics/distributions/chi2rnd.m       2008-06-02 06:42:34.000000000 -0400
> | @@ -68,7 +68,7 @@
> |       if (find (!(n > 0) | !(n < Inf)))
> |         rnd = NaN * ones (sz);
> |       else
> | -       rnd = 2 * randg(n/2, sz)
> | +       rnd = 2 * randg(n/2, sz);
> |       endif
> |    else
> |      [retval, n, dummy] = common_size (n, ones (sz));
> | @@ -84,7 +84,7 @@
> |
> |      k = find ((n > 0) & (n < Inf));
> |      if (any (k))
> | -      rnd(k) = 2 * randg(n(k)/2, size(k))
> | +      rnd(k) = 2 * randg(n(k)/2, size(k));
> |      endif
> |    endif
>
> I fixed this in the current development sources.
>
> Jaroslav, will you please fix the 3.0.x branch?
>

Done.




-- 
RNDr. Jaroslav Hajek
computing expert
Aeronautical Research and Test Institute (VZLU)
Prague, Czech Republic
url: www.highegg.matfyz.cz