MathGroup Archive 2007

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

Search the Archive

Mathematica 6 and normal distribution?


Has Mathematica 6 fixed the problems discussed in this thread?

http://groups.google.com/group/comp.soft-sys.math.mathematica/browse_frm/thread/f3d8f7cf40057943/350a024cc20c290b?lnk=gst&q=normal+distribution&rnum=2&hl=en#350a024cc20c290b

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.



  • Prev by Date: question
  • Next by Date: Re: Manipulate a complex expression
  • Previous by thread: Re: Crinkled Hyperbola (ContourPlot in Manipulate)
  • Next by thread: Re: Mathematica 6 and normal distribution?