WOLFRAM NOTEBOOK

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

This decomposes into sets that have an ordering

Find total orderings

This finds a single chain of orderings
Wolfram Cloud

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 »

You are using a browser not supported by the Wolfram Cloud. Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.