bimodal ditribution form counting signs of Pi digits differences
- To: mathgroup at smc.vnet.net
- Subject: [mg51684] bimodal ditribution form counting signs of Pi digits differences
- From: Roger Bagula <tftn at earthlink.net>
- Date: Fri, 29 Oct 2004 03:39:06 -0400 (EDT)
- Reply-to: tftn at earthlink.net
- Sender: owner-wri-mathgroup at wolfram.com
This program is real slow on my machine.
Show a lean toward positive differences that is "slight" at 2000 digits.
Digits=2000
$MaxExtraPrecision = Digits
(* Sum of the sign of the differences between the first 2000 digits of Pi*)
f[m_]=Sum[Sign[Floor[Mod[10^(n+1)*Pi,10]]-Floor[Mod[10^n*Pi,10]]],{n,0,m}]
a=Table[{n,f[n]},{n,0,Digits-1}];
ListPlot[a,PlotJoined->True]
b=Table[a[[n]][[2]],{n,1,Dimensions[a][[1]]}];
(* distribution of the noise that results*)
c=Table[Count[b,m],{m,-12,12}]
ListPlot[c,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
- Follow-Ups:
- Re: bimodal ditribution form counting signs of Pi digits differences
- From: DrBob <drbob@bigfoot.com>
- Re: bimodal ditribution form counting signs of Pi digits differences
- From: DrBob <drbob@bigfoot.com>
- Re: bimodal ditribution form counting signs of Pi digits differences