In[]:=
TokenEventGraph[{{s_String}:>StringReplaceList[s,{"A"->"BBB","BB"->"A"}]},{"A"},6]
Out[]=
In[]:=
TokenEventGraph[{{s_String}:>StringReplaceList[s,{"BA"->"AB"}]},{"BBBABAB"},10]
Out[]=
In[]:=
CloudGet["https://wolfr.am/KVkTxvC5"];CloudGet["https://wolfr.am/KVl97Tf4"];regularCausalGraphPlot[10,{1,0},{0.0,0.0},lorentz[0]]
Out[]=
Note: total ordering does not follow edges:
Out[]=
Find families of foliations
Find families of foliations
This decomposes into sets that have an ordering
Find total orderings
Find total orderings
This finds a single chain of orderings