In[]:=
MultiwaySystem[{"BA""AB"},{"BBBAAA"},9,"EvolutionCausalGraph"]
Out[]=
In[]:=
MultiwaySystem[{"BA""AB"},{"BBBAAA"},9,"EvolutionEventsGraph"]
Out[]=
In[]:=
MultiwaySystem[{"BA""AB"},{"BBBAAA"},9,"CausalGraph"]
Out[]=
In[]:=
MultiwaySystem[{"BA""AB"},{"BBBAAA"},9,"CausalGraphStructure"]
Out[]=
In[]:=
MultiwaySystem[{"BA""AB"}"Sequential",{"BBBAAA"},9,"CausalGraph"]
Out[]=
In[]:=
MultiwaySystem[{"BA""AB"}({RandomChoice[#]}&),{"BBBAAA"},9,"CausalGraph"]
Out[]=
In[]:=
Table[MultiwaySystem[{"BA""AB"}({RandomChoice[#]}&),{"BBBAAA"},9,"CausalGraph"],4]
Out[]=
Not causal invariant
Not causal invariant
In[]:=
MultiwaySystem[{"BA""AB","BA""B"},{"BBAA"},5,"EvolutionCausalGraph"]
Out[]=
In[]:=
MultiwaySystem[{"BA""AB","BA""B"}->({If[#==={},{},RandomChoice[#]]}&),{"BBAA"},5,"EvolutionCausalGraph"]