Wolfram Cloud Document

WOLFRAM NOTEBOOK

Out[]=

2,23,2 complete

In[]:=

rules=Import["/Users/sw/Dropbox/Physics/Data/RuleEnumerations/22-32c.wxf"];

In[]:=

Length[rules]

Out[]=

4702

In[]:=

res=ParallelMapMonitored[WolframModelTest[#,{{0,0},{0,0}}]&,rules];

[ 4198 hangs up ]

In[]:=

Counts[Head/@res]

Out[]=

Association4702

In[]:=

resc=Select[res,ConnectedHypergraphQ[#FinalState]&];

In[]:=

Length[resc]

Out[]=

1799

In[]:=

rules[[200]]

Out[]=

{{1,1},{1,2}}{{2,2},{3,2},{3,1}}

In[]:=

Level[%,{-1}]

Out[]=

{1,1,1,2,2,2,3,2,3,1}

In[]:=

ListLinePlot[%]

Out[]=

In[]:=

Counts[Max[Level[#,{-1}]]&/@rules]

Out[]=

11,286,3832,41924,51489,6370

In[]:=

BarChart[%74]

Out[]=

In[]:=

res2=DeleteDuplicatesBy[resc,#FinalState&];

In[]:=

Length[res2]

Out[]=

618

In[]:=

Counts[WMFilter5/@res2]

{0,2}

{1,1,-1,1,-1,1,-1}

{0,2}

{1,0,1}

{1,0,1,-1,1}

{1,0,0,0,0,2,-1}

{1,0,1}

{1,-1,2}

{2,-1,0,-1,2}

{0,1,1}

{0,2}

{1,0,0,0,0,2,-1}

{2,-1,0,0,0,0,1,-2,1}

{0,1,1}

{1,-1,2}

{1,1,0,-2,0,2}

{0,1,1}

{0,2}

{1,-1,2}

{0,2}

{0,1,1}

{0,2}

{1,-1,2}

{0,2}

{1,-1,2}

{0,2}

{2,0,-2,1}

{0,1,1}

Out[]=

FewEvents219,BoringDifferences129,DiedFast97,TooMuchOfAVertex22,BoringDifferencesAfterTransient11,LinearRecurrenceGrowth37,MaybeInteresting103

In[]:=

Counts[#Sizes&/@%80]

Out[]=

In[]:=

ParallelMapMonitored[FindSequenceFunction[#,n]&,Keys[%]]

Out[]=

$Aborted

Lots of results for this:

In[]:=

ParallelMapMonitored[TimeConstrained[Echo@FindSequenceFunction[#,n],15]&,Keys[%97]]

In[]:=

gres=GroupBy[res2,WMFilter5];

{0,2}

{1,1,-1,1,-1,1,-1}

{0,2}

{1,0,1}

{1,0,1,-1,1}

{1,0,0,0,0,2,-1}

{1,0,1}

{1,-1,2}

{2,-1,0,-1,2}

{0,1,1}

Nothing beyond trees.....

[ 4198 hangs up ]

Disconnected rules

From previous run:

Terminating Cases

2,24,2 complete

You are using a browser not supported by the Wolfram Cloud

Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.

I understand and wish to continue anyway »