In[]:=
Graph[ResourceFunction["MultiwaySystem"][Flatten[ResourceFunction["EnumerateSubstitutionSystemRules"][{22},2]],ResourceFunction["StringTuples"]["AB",4],1,"BranchialGraph"],EdgeStyleResourceFunction["WolframPhysicsProjectStyleData"]["RulialGraph","EdgeStyle"]]
Out[]=
In[]:=
Graph[ResourceFunction["MultiwaySystem"][Flatten[ResourceFunction["EnumerateSubstitutionSystemRules"][{22},2]],ResourceFunction["StringTuples"]["AB",3],1,"BranchialGraph"],EdgeStyleResourceFunction["WolframPhysicsProjectStyleData"]["RulialGraph","EdgeStyle"]]
Out[]=
In[]:=
Graph[ResourceFunction["MultiwaySystem"][Flatten[ResourceFunction["EnumerateSubstitutionSystemRules"][{22},2]],ResourceFunction["StringTuples"]["AB",4],1,"BranchialGraph"],EdgeStyleResourceFunction["WolframPhysicsProjectStyleData"]["RulialGraph","EdgeStyle"]]
Out[]=
In[]:=
Graph[ResourceFunction["MultiwaySystem"][Flatten[ResourceFunction["EnumerateSubstitutionSystemRules"][{22},2]],{"ABA"},2,"BranchialGraph"],EdgeStyleResourceFunction["WolframPhysicsProjectStyleData"]["RulialGraph","EdgeStyle"]]
Out[]=
In[]:=
Graph[ResourceFunction["MultiwaySystem"][Flatten[ResourceFunction["EnumerateSubstitutionSystemRules"][{22},2]],{"ABA"},3,"BranchialGraph"],EdgeStyleResourceFunction["WolframPhysicsProjectStyleData"]["RulialGraph","EdgeStyle"]]
Out[]=
In[]:=
Graph[ResourceFunction["MultiwaySystem"][Flatten[ResourceFunction["EnumerateSubstitutionSystemRules"][{22},2]],ResourceFunction["StringTuples"]["AB",4],1,"StatesGraph"]]
Out[]=
In[]:=
Graph[ResourceFunction["MultiwaySystem"][Flatten[ResourceFunction["EnumerateSubstitutionSystemRules"][{22},2]],ResourceFunction["StringTuples"]["AB",4],2,"StatesGraph"]]
Out[]=
In[]:=
Graph[ResourceFunction["MultiwaySystem"][Flatten[ResourceFunction["EnumerateSubstitutionSystemRules"][{22},2]],ResourceFunction["StringTuples"]["AB",4],3,"StatesGraph"]]
Out[]=
12 rules
12 rules