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