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 »
WOLFRAM NOTEBOOK
In[]:=
PacletInstall["https://82-333562015-gh.circle-artifacts.com/0/BuiltPaclets/PostTagSystem-0.0.2.paclet"]
Out[]=
PacletObject
In[]:=
PacletInstall["https://97-333562015-gh.circle-artifacts.com/0/BuiltPaclets/PostTagSystem-0.0.8.paclet"]
Out[]=
PacletObject
In[]:=
Get["PostTagSystem`"]
In[]:=
AllInits[count_]:=Tuples[{Range[0,2],IntegerDigits[#,2,count]&/@Range[0,2^count-1]}];
In[]:=
AllInits[min_;;max_]:=Catenate[AllInits/@Range[min,max]];
Compressed initialization + phase
In[]:=
AllInits[3]
Out[]=
{{0,{0,0,0}},{0,{0,0,1}},{0,{0,1,0}},{0,{0,1,1}},{0,{1,0,0}},{0,{1,0,1}},{0,{1,1,0}},{0,{1,1,1}},{1,{0,0,0}},{1,{0,0,1}},{1,{0,1,0}},{1,{0,1,1}},{1,{1,0,0}},{1,{1,0,1}},{1,{1,1,0}},{1,{1,1,1}},{2,{0,0,0}},{2,{0,0,1}},{2,{0,1,0}},{2,{0,1,1}},{2,{1,0,0}},{2,{1,0,1}},{2,{1,1,0}},{2,{1,1,1}}}
In[]:=
PostTagSystem[AllInits[0;;5]]["StateGraph"]
Out[]=
In[]:=
Graph[PostTagSystem[AllInits[0;;5]]["StateGraph"],GraphLayout"LayeredDigraphEmbedding",AspectRatio1/2]
Out[]=
In[]:=
PostTagSystem[AllInits[0;;3]]["StateGraph"]
Out[]=
Uncompressing
{1,{0,1,0}}{0,_,_,1,_,_,0,_}
Phase 0:
{XXXX, x, _, _}
{XXXX, x, _, _}
Phase 2:
{XXXX,x}
Phase 1:
{XXXX,x,_}
Phase is the length of the whole uncompressed, mod 3
In[]:=
PostTagSystem[AllInits[0;;5]]["Properties"]
Out[]=
{EvolutionObject,Properties,StateCount,StateGraph,State,CycleSources}
In[]:=
PostTagSystem[AllInits[0;;6]]["StateGraph"]
Out[]=
In[]:=
WeaklyConnectedGraphComponents[PostTagSystem[AllInits[0;;6]]["StateGraph"]]
Out[]=
,
,
,
,
,
,
,
,
,
,
,
Largest components
Largest components
Transient Lengths
Transient Lengths
[[[ We want just the inits; this isn’t that ... ]]]
New Version
New Version
Raw version
Raw version
Indicators
Indicators
Halting time vs. init number
Distribution of cycle times vs. init number
Generational evolution
Running the champion
Running the champion
should be puffed out by interspersing _ , _
NKS implementation
NKS implementation
Compilation
Compilation
Queue version
Queue version
Steps: 20,858,069
More compilation
More compilation