Wolfram Function Repository
Instantuse addon functions for the Wolfram Language
Function Repository Resource:
Generates the evolution of a cyclic tag system
ResourceFunction["CyclicTagSystemEvolveList"][rules,init,t] returns the list of states attained from evolving init, using cyclic tag system rules over t steps. 

ResourceFunction["CyclicTagSystemEvolveList"][rules,init,t,dt] returns the states attained at every step dt. 

ResourceFunction["CyclicTagSystemEvolveList"][rules,init,t,dt,prop] returns the specified prop of states attained at every step. 
"States"  the list of tape configurations throughout the cyclic tag system evolution 
"Lengths"  the list of tape lengths throughout the cyclic tag system evolution 
Generate the tape states in 25 evolution steps of a cyclic tag system:
In[1]:= 

Out[1]= 

Return only every fifth state in that same evolution:
In[2]:= 

Out[2]= 

Find the length of every tenth state in the cyclic tag evolution:
In[3]:= 

Out[3]= 

Visualize the successive tape states in the evolution of a cyclic tag system:
In[4]:= 

Out[4]= 

Plot how tape length changes across the evolution of the same cyclic tag system:
In[5]:= 

Out[5]= 

Visualize the successive tape states in the evolution of a slightly more complicated cyclic tag system:
In[6]:= 

Out[6]= 

Plot how tape length changes across the evolution of the same cyclic tag system (which in this case demonstrates that the system eventually halts):
In[7]:= 

Out[7]= 

This work is licensed under a Creative Commons Attribution 4.0 International License