Services & Resources / Wolfram Forums
MathGroup Archive
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2007

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Mathematica 6 and normal distribution?

  • To: mathgroup at
  • Subject: [mg77839] Re: Mathematica 6 and normal distribution?
  • From: nazdrovje at
  • Date: Mon, 18 Jun 2007 06:54:17 -0400 (EDT)
  • References: <f532e5$33l$>

On Jun 17, 12:29 pm, sean_in_c... at wrote:
> Has Mathematica 6 fixed the problems discussed in this thread?
> From their website it seems like they are saying NormalDistribution is
> new in Mathematica 6.
> Has anyone run the codes to check?  Last time the problem was in the
> 25th bin in the code below--with the value at 25th bin being lower
> than the rest.
> SeedRandom[1111111 ];
> vec1=Table[Random[Real,{0,1000}],{10^6}];
> vec2=Map[If[#<44,1,0]&,vec1];
> ones=Flatten[Position[vec2,1]];
> plotvec=Map[Length,Split[Sort[Drop[ones-RotateRight[ones,1],1]]]];
> ListPlot[Log[plotvec],PlotRange->All]
> ListPlot[plotvec,PlotRange->All]
> Thanks for checking.

Using the new RandomReal function to create the whole array seems to
have killed the bug. The old code still produces a lower value in the
bin (haven't counted whether it's the 25th).


  • Prev by Date: Re: Crinkled Hyperbola (ContourPlot in Manipulate)
  • Next by Date: Rule and Module not working together
  • Previous by thread: Mathematica 6 and normal distribution?
  • Next by thread: Re: Mathematica 6 and normal distribution?