Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2004
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2004

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

Search the Archive

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


  • Prev by Date: Re: weird page breaks when printing
  • Next by Date: Re: How to force Mathematica to treat a number as positive and real?
  • Previous by thread: Re: Showing Complete Solution.
  • Next by thread: Re: normal digits base 10 ( used to be: bimodal ditribution form counting signs of Pi digits differences)