normal digits base 10 ( used to be: bimodal ditribution form counting signs of Pi digits differences)

*To*: mathgroup at smc.vnet.net*Subject*: [mg51889] normal digits base 10 ( used to be: bimodal ditribution form counting signs of Pi digits differences)*From*: Roger Bagula <tftn at earthlink.net>*Date*: Thu, 4 Nov 2004 01:50:15 -0500 (EST)*Reply-to*: tftn at earthlink.net*Sender*: owner-wri-mathgroup at wolfram.com

This may be a very bad way of doing this but it's what I get to work. The idea is to get a base 10 digit set that is "normal" in randomness and not an equal probability random distribution. (There is probably a better way to do this. It you know a way let me know.) It does give a different type of count distribution, but it is still unlike the Pi digits based distribution. (* Sign[] of normal based distribution of digits*) SeedRandom[123]; Clear[rdpi,c,d] rdpi=Table[Mod[Floor[Abs[10*InverseErf[Random[Real,{-1,1}]]]],10],{n,1,Digits}]; c2=Drop[FoldList[Plus,0,Sign[Drop[rdpi,1]-Drop[rdpi,-1]]],1]; (* Rowe count*) d2=Flatten@{0,Length/@Split[Sort@c2], 0} ListPlot[d2,PlotJoined->True]; Respectfully, Roger L. Bagula tftn at earthlink.net, 11759Waterhill Road, Lakeside,Ca 92040-2905,tel: 619-5610814 : alternative email: rlbtftn at netscape.net URL : http://home.earthlink.net/~tftn