Re: bimodal ditribution form counting signs of Pi digits differences

• To: mathgroup at smc.vnet.net
• Subject: [mg51773] Re: bimodal ditribution form counting signs of Pi digits differences
• From: Roger Bagula <tftn at earthlink.net>
• Date: Mon, 1 Nov 2004 02:53:28 -0500 (EST)
• References: <clst68\$3nf\$1@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

```A second crack at a null hypothesis using an
independent pseudorandom generator.
Results from this generator are more variable than the Mathematica built in
as you can change both the seed start number and the irrational it is
based on.
It too gives a different result than the Pi digits.

Mathematica code:
Clear[r,s,a,c1,d1]
s=5
(*Pseudorandom number algorithm from Forcasting on Your
Microcomuter,nickell, tab books, 1983*)
SeedRandom
r[n_Integer]:=r[n]=Mod[(E+r[n-1])^s,1]
r=Random[]
digits =50000
a=Table[Mod[Floor[10*r[n]],10],{n,1,digits}];
c1=Drop[FoldList[Plus,0,Sign[Drop[a,1]-Drop[a,-1]]],1];
ListPlot[c1,PlotJoined->True];
(* Rowe Count*)
d1=Flatten@{0,Length/@Split[Sort@c1], 0}
ListPlot[d1,PlotJoined->True];

Roger Bagula wrote:

>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]][],{n,1,Dimensions[a][]}];
>(* distribution of the noise that results*)
>c=Table[Count[b,m],{m,-12,12}]
>ListPlot[c,PlotJoined->True]
>
>Respectfully, Roger L. Bagula
>alternative email: rlbtftn at netscape.net
>
>
>

--
Respectfully, Roger L. Bagula
{"ft_lang_label":"__label__en","ft_lang_prob":0.61357373,"math_prob":0.971317,"size":2093,"snap":"2019-51-2020-05","text_gpt3_token_len":702,"char_repetition_ratio":0.09765438,"word_repetition_ratio":0.08510638,"special_character_ratio":0.33205923,"punctuation_ratio":0.22222222,"nsfw_num_words":0,"has_unicode_error":false,"math_prob_llama3":0.9942397,"pos_list":[0,1,2,3,4,5,6,7,8,9,10,11,12,13,14],"im_url_duplicate_count":[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null],"WARC_HEADER":"{\"WARC-Type\":\"response\",\"WARC-Date\":\"2020-01-27T22:31:14Z\",\"WARC-Record-ID\":\"<urn:uuid:e23503bf-4c97-4c77-86f6-b38ddd85c19f>\",\"Content-Length\":\"45983\",\"Content-Type\":\"application/http; msgtype=response\",\"WARC-Warcinfo-ID\":\"<urn:uuid:da5d1162-8ef1-4ff5-86fd-0d998757a243>\",\"WARC-Concurrent-To\":\"<urn:uuid:8aa8abca-9022-4d5c-afef-ea3385cd5488>\",\"WARC-IP-Address\":\"140.177.205.73\",\"WARC-Target-URI\":\"http://forums.wolfram.com/mathgroup/archive/2004/Nov/msg00016.html\",\"WARC-Payload-Digest\":\"sha1:DJLW57GP5DQYKQT2MCE27X6JRKIVCBFI\",\"WARC-Block-Digest\":\"sha1:UTYILYQ2EJJNUXVH6E63J6J5V6TDAAK3\",\"WARC-Identified-Payload-Type\":\"text/html\",\"warc_filename\":\"/cc_download/warc_2020/CC-MAIN-2020-05/CC-MAIN-2020-05_segments_1579251728207.68_warc_CC-MAIN-20200127205148-20200127235148-00430.warc.gz\"}"}