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