Graph[ResourceFunction["MultiwaySystem"][Flatten[ResourceFunction["EnumerateSubstitutionSystemRules"][{22},2]],ResourceFunction["StringTuples"]["AB",4],1,"BranchialGraph"],EdgeStyleResourceFunction["WolframPhysicsProjectStyleData"]["RulialGraph","EdgeStyle"]]
In[]:=
Out[]=
Graph[ResourceFunction["MultiwaySystem"][Flatten[ResourceFunction["EnumerateSubstitutionSystemRules"][{22},2]],ResourceFunction["StringTuples"]["AB",3],1,"BranchialGraph"],EdgeStyleResourceFunction["WolframPhysicsProjectStyleData"]["RulialGraph","EdgeStyle"]]
In[]:=
Out[]=
Graph[ResourceFunction["MultiwaySystem"][Flatten[ResourceFunction["EnumerateSubstitutionSystemRules"][{22},2]],ResourceFunction["StringTuples"]["AB",4],1,"BranchialGraph"],EdgeStyleResourceFunction["WolframPhysicsProjectStyleData"]["RulialGraph","EdgeStyle"]]
In[]:=
Out[]=
Graph[ResourceFunction["MultiwaySystem"][Flatten[ResourceFunction["EnumerateSubstitutionSystemRules"][{22},2]],{"ABA"},2,"BranchialGraph"],EdgeStyleResourceFunction["WolframPhysicsProjectStyleData"]["RulialGraph","EdgeStyle"]]
In[]:=
Out[]=
Graph[ResourceFunction["MultiwaySystem"][Flatten[ResourceFunction["EnumerateSubstitutionSystemRules"][{22},2]],{"ABA"},3,"BranchialGraph"],EdgeStyleResourceFunction["WolframPhysicsProjectStyleData"]["RulialGraph","EdgeStyle"]]
In[]:=
Out[]=
Graph[ResourceFunction["MultiwaySystem"][Flatten[ResourceFunction["EnumerateSubstitutionSystemRules"][{22},2]],ResourceFunction["StringTuples"]["AB",4],1,"StatesGraph"]]
In[]:=
Out[]=
Graph[ResourceFunction["MultiwaySystem"][Flatten[ResourceFunction["EnumerateSubstitutionSystemRules"][{22},2]],ResourceFunction["StringTuples"]["AB",4],2,"StatesGraph"]]
In[]:=
Out[]=
Graph[ResourceFunction["MultiwaySystem"][Flatten[ResourceFunction["EnumerateSubstitutionSystemRules"][{22},2]],ResourceFunction["StringTuples"]["AB",4],3,"StatesGraph"]]
In[]:=
Out[]=
LayeredGraphPlot[ResourceFunction["MultiwaySystem"][Flatten[ResourceFunction["EnumerateSubstitutionSystemRules"][{22},2]],ResourceFunction["StringTuples"]["AB",4],3,"StatesGraph"]]
In[]:=
Out[]=
LayeredGraphPlot[ResourceFunction["MultiwaySystem"][Flatten[ResourceFunction["EnumerateSubstitutionSystemRules"][{22},2]],ResourceFunction["StringTuples"]["AB",4],3,"EvolutionEventsGraph"]]
In[]:=
Out[]=
LayeredGraphPlot[ResourceFunction["MultiwaySystem"][Flatten[ResourceFunction["EnumerateSubstitutionSystemRules"][{22},2]],ResourceFunction["StringTuples"]["AB",4],3,"EvolutionEventsGraphStructure"]]
In[]:=
Out[]=
LayeredGraphPlot[ResourceFunction["MultiwaySystem"][Flatten[ResourceFunction["EnumerateSubstitutionSystemRules"][{22},2]],ResourceFunction["StringTuples"]["AB",4],1,"EvolutionEventsGraphStructure"]]
In[]:=
Out[]=
LayeredGraphPlot[ResourceFunction["MultiwaySystem"][Flatten[ResourceFunction["EnumerateSubstitutionSystemRules"][{22},2]],ResourceFunction["StringTuples"]["AB",1],1,"EvolutionEventsGraphStructure"]]
In[]:=
Out[]=
LayeredGraphPlot[ResourceFunction["MultiwaySystem"][Flatten[ResourceFunction["EnumerateSubstitutionSystemRules"][{22},2]],ResourceFunction["StringTuples"]["AB",2],1,"EvolutionEventsGraphStructure"]]
In[]:=
Out[]=
LayeredGraphPlot[ResourceFunction["MultiwaySystem"][Flatten[ResourceFunction["EnumerateSubstitutionSystemRules"][{22},2]],ResourceFunction["StringTuples"]["AB",2],1,"EvolutionEventsGraph"]]
In[]:=
Out[]=
LayeredGraphPlot[ResourceFunction["MultiwaySystem"][Flatten[ResourceFunction["EnumerateSubstitutionSystemRules"][{22},2]],ResourceFunction["StringTuples"]["AB",3],1,"EvolutionEventsGraph"]]
In[]:=
Out[]=
LayeredGraphPlot[ResourceFunction["MultiwaySystem"][Flatten[ResourceFunction["EnumerateSubstitutionSystemRules"][{22},2]],ResourceFunction["StringTuples"]["AB",4],1,"EvolutionEventsGraph"]]
In[]:=
Out[]=

12 rules

Graph[ResourceFunction["MultiwaySystem"][Flatten[ResourceFunction["EnumerateSubstitutionSystemRules"][{12},2]],{"A"},2,"BranchialGraph"],EdgeStyleResourceFunction["WolframPhysicsProjectStyleData"]["RulialGraph","EdgeStyle"]]
In[]:=
Out[]=
Graph[ResourceFunction["MultiwaySystem"][Flatten[ResourceFunction["EnumerateSubstitutionSystemRules"][{12},2]],{"A"},3,"BranchialGraph"],EdgeStyleResourceFunction["WolframPhysicsProjectStyleData"]["RulialGraph","EdgeStyle"]]
In[]:=
Out[]=
Graph[ResourceFunction["MultiwaySystem"][Flatten[ResourceFunction["EnumerateSubstitutionSystemRules"][{12},2]],{"A"},4,"BranchialGraph"],EdgeStyleResourceFunction["WolframPhysicsProjectStyleData"]["RulialGraph","EdgeStyle"]]
In[]:=
Out[]=
Graph3D[%]
In[]:=
Out[]=
Graph[ResourceFunction["MultiwaySystem"][Flatten[ResourceFunction["EnumerateSubstitutionSystemRules"][{12},2]],{"A","B"},4,"BranchialGraph"],EdgeStyleResourceFunction["WolframPhysicsProjectStyleData"]["RulialGraph","EdgeStyle"]]
In[]:=
Out[]=
Graph[ResourceFunction["MultiwaySystem"][Flatten[ResourceFunction["EnumerateSubstitutionSystemRules"][{12},2]],{"A","B"},5,"BranchialGraph"],EdgeStyleResourceFunction["WolframPhysicsProjectStyleData"]["RulialGraph","EdgeStyle"]]
In[]:=
Out[]=
Graph[ResourceFunction["MultiwaySystem"][Flatten[ResourceFunction["EnumerateSubstitutionSystemRules"][{12},2]],{"A","B"},5,"BranchialGraphStructure"],EdgeStyleResourceFunction["WolframPhysicsProjectStyleData"]["RulialGraph","EdgeStyle"]]
In[]:=
Out[]=
LayeredGraphPlot[Graph[ResourceFunction["MultiwaySystem"][Flatten[ResourceFunction["EnumerateSubstitutionSystemRules"][{12},2]],{"A","B"},5,"StatesGraphStructure"]],AspectRatio1/3]
In[]:=
Out[]=
ResourceFunction["MultiwaySystem"][Flatten[ResourceFunction["EnumerateSubstitutionSystemRules"][{12},2]],{"A","B"},5,"CausalInvariantQ"]
In[]:=
False
Out[]=
ResourceFunction["MultiwaySystem"][Flatten[ResourceFunction["EnumerateSubstitutionSystemRules"][{12},2]],{"A","B"},2,"CausalInvariantQ"]
In[]:=
False
Out[]=
LayeredGraphPlot[Graph[ResourceFunction["MultiwaySystem"][Flatten[ResourceFunction["EnumerateSubstitutionSystemRules"][{12},2]],{"A","B"},4,"CausalGraphStructure"]],AspectRatio1/3]
In[]:=
Out[]=