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[]:=
Flatten[EnumerateSubstitutionSystemRules[{22},2]]
Out[]=
{AAAA,AAAB,AABB,ABAA,ABAB,ABBA}
In[]:=
MultiwaySystem[Flatten[EnumerateSubstitutionSystemRules[{22},2]],StringTuples["AB",3],2,"StatesGraph"]
Out[]=
In[]:=
MultiwaySystem[Flatten[EnumerateSubstitutionSystemRules[{22},2]],StringTuples["AB",3],4,"StatesGraph"]
Out[]=
In[]:=
MultiwaySystem[Flatten[EnumerateSubstitutionSystemRules[{22},2]],StringTuples["AB",4],4,"StatesGraph"]//LayeredGraphPlot
Out[]=
In[]:=
CausalInvariantQ[{"AA""AA","AA""AB","AA""BB","AB""AA","AB""AB","AB""BA"},"AAAA",2]
Out[]=
True
In[]:=
MultiwaySystem[Flatten[EnumerateSubstitutionSystemRules[{22},2]],StringTuples["AB",4],4,"EvolutionEventsGraph"]
Out[]=
In[]:=
MultiwaySystem[Flatten[EnumerateSubstitutionSystemRules[{22},2]],StringTuples["AB",4],3,"EvolutionEventsGraph"]
Out[]=
In[]:=
MultiwaySystem[Flatten[EnumerateSubstitutionSystemRules[{22},2]],StringTuples["AB",4],4,"EvolutionCausalGraph"]
Out[]=