In[]:=
Dimensions[res]
Out[]=
{40001,2}
In[]:=
res=CloudImport[CloudObject[
https://www.wolframcloud.com/obj/322c55dc-95e2-4827-bb6a-955e082075d4
]];
In[]:=
ans=Mean[With[{ra=IndicesToRules[First[Last[res]],{6,8}]},RuleArrayFinalState["Radius"->1/2,"Orientation"->"Both","Neighborhood"->"Alternating"][#,ra,30]&/@Tuples[{1,0},20]]]
Out[]=
0,0,0,
75
1048576
,
247059
524288
,
779
524288
,
125
1048576
,0,0,0,0,0,
33
1048576
,0,
14093
65536
,0,0,0,0,0
In[]:=
ListStepPlot[ans+10^-10,Center,PlotRange->{10^-7,All},ScalingFunctions->"Log",Filling->Axis,Frame->True,AspectRatio->1/4]
Out[]=
In[]:=
Total[outs]
Out[]=
16229943936
In[]:=
Counts[outs]
Out[]=
0438166,32768383315,32115525,32800109854,49152716,16384767,4099271,11472038,4096054,11468837,3289633
In[]:=
IntegerDigits[#,2,20]&/@Flatten[Position[outs,32896]]
Out[]=
{{1,0,0,1,1,1,0,0,1,0,0,0,1,1,1,1,1,0,1,0},{1,0,0,1,1,1,0,0,1,0,0,0,1,1,1,1,1,1,1,0},{1,0,0,1,1,1,0,1,0,0,0,0,1,1,1,1,1,0,1,0},{1,0,0,1,1,1,0,1,0,0,0,0,1,1,1,1,1,1,1,0},{1,0,0,1,1,1,0,1,1,1,0,1,1,0,0,1,0,0,1,0},{1,0,0,1,1,1,0,1,1,1,0,1,1,0,0,1,0,1,1,0},{1,0,0,1,1,1,0,1,1,1,0,1,1,0,1,0,0,0,1,0},{1,0,0,1,1,1,0,1,1,1,0,1,1,0,1,0,0,1,1,0},{1,0,0,1,1,1,0,1,1,1,0,1,1,0,1,0,1,0,1,0},{1,0,0,1,1,1,0,1,1,1,0,1,1,0,1,0,1,1,1,0},{1,0,0,1,1,1,0,1,1,1,0,1,1,0,1,1,1,0,1,0},{1,0,0,1,1,1,0,1,1,1,0,1,1,0,1,1,1,1,1,0},{1,0,1,0,1,1,0,0,1,0,0,0,1,1,1,1,1,0,0,1},{1,0,1,0,1,1,0,0,1,0,0,0,1,1,1,1,1,1,0,1},{1,0,1,0,1,1,0,0,1,0,0,0,1,1,1,1,1,1,1,1},{1,0,1,0,1,1,0,1,0,0,0,0,1,1,1,1,1,0,0,1},{1,0,1,0,1,1,0,1,0,0,0,0,1,1,1,1,1,1,0,1},{1,0,1,0,1,1,0,1,0,0,0,0,1,1,1,1,1,1,1,1},{1,0,1,0,1,1,0,1,1,1,0,1,1,0,0,1,0,0,0,1},{1,0,1,0,1,1,0,1,1,1,0,1,1,0,0,1,0,1,0,1},{1,0,1,0,1,1,0,1,1,1,0,1,1,0,0,1,0,1,1,1},{1,0,1,0,1,1,0,1,1,1,0,1,1,0,1,0,0,0,0,1},{1,0,1,0,1,1,0,1,1,1,0,1,1,0,1,0,0,1,0,1},{1,0,1,0,1,1,0,1,1,1,0,1,1,0,1,0,0,1,1,1},{1,0,1,0,1,1,0,1,1,1,0,1,1,0,1,0,1,0,0,1},{1,0,1,0,1,1,0,1,1,1,0,1,1,0,1,0,1,1,0,1},{1,0,1,0,1,1,0,1,1,1,0,1,1,0,1,0,1,1,1,1},{1,0,1,0,1,1,0,1,1,1,0,1,1,0,1,1,1,0,0,1},{1,0,1,0,1,1,0,1,1,1,0,1,1,0,1,1,1,1,0,1},{1,0,1,0,1,1,0,1,1,1,0,1,1,0,1,1,1,1,1,1},{1,0,1,0,1,1,1,1,0,0,0,0,1,1,1,1,1,0,0,1},{1,0,1,0,1,1,1,1,0,0,0,0,1,1,1,1,1,1,0,1},{1,0,1,0,1,1,1,1,0,0,0,0,1,1,1,1,1,1,1,1}}
In[]:=
ArrayPlot[%]
Out[]=
In[]:=
ArrayPlot[IntegerDigits[#,2,20]&/@RandomSample[Flatten[Position[outs,32768]],100]]
Out[]=
In[]:=
ArrayPlot[IntegerDigits[#,2,20]&/@Take[Sort[Flatten[Position[outs,32768]]],100]]
Out[]=
In[]:=
ListStepPlot[Mean[IntegerDigits[#,2,20]&/@Flatten[Position[outs,32768]]]]
Out[]=
In[]:=
Keys[Counts[outs]]
Out[]=
{0,32768,32,32800,49152,16384,40992,114720,40960,114688,32896}
In[]:=
ListStepPlot[Mean[IntegerDigits[#,2,20]&/@Flatten[Position[outs,#]]]]&/@Keys[Counts[outs]]
Out[]=

,
,
,
,
,
,
,
,
,
,
