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

Re: Mathematica 6 and normal distribution?

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

On Jun 17, 12:29 pm, sean_in_c... at yahoo.com wrote:
> Has Mathematica 6 fixed the problems discussed in this thread?
>
> http://groups.google.com/group/comp.soft-sys.math.mathematica/browse_...
>
> 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).

Naz