Wolfram Cloud Page

WOLFRAM NOTEBOOK

In[]:=

Graph[ResourceFunction["MultiwaySystem"][Flatten[ResourceFunction["EnumerateSubstitutionSystemRules"][{22},2]],ResourceFunction["StringTuples"]["AB",4],1,"BranchialGraph"],EdgeStyleResourceFunction["WolframPhysicsProjectStyleData"]["RulialGraph","EdgeStyle"]]

Out[]=

In[]:=

Graph[ResourceFunction["MultiwaySystem"][Flatten[ResourceFunction["EnumerateSubstitutionSystemRules"][{22},2]],ResourceFunction["StringTuples"]["AB",3],1,"BranchialGraph"],EdgeStyleResourceFunction["WolframPhysicsProjectStyleData"]["RulialGraph","EdgeStyle"]]

Out[]=

In[]:=

Out[]=

In[]:=

Graph[ResourceFunction["MultiwaySystem"][Flatten[ResourceFunction["EnumerateSubstitutionSystemRules"][{22},2]],{"ABA"},2,"BranchialGraph"],EdgeStyleResourceFunction["WolframPhysicsProjectStyleData"]["RulialGraph","EdgeStyle"]]

Out[]=

In[]:=

Graph[ResourceFunction["MultiwaySystem"][Flatten[ResourceFunction["EnumerateSubstitutionSystemRules"][{22},2]],{"ABA"},3,"BranchialGraph"],EdgeStyleResourceFunction["WolframPhysicsProjectStyleData"]["RulialGraph","EdgeStyle"]]

Out[]=

In[]:=

Graph[ResourceFunction["MultiwaySystem"][Flatten[ResourceFunction["EnumerateSubstitutionSystemRules"][{22},2]],ResourceFunction["StringTuples"]["AB",4],1,"StatesGraph"]]

Out[]=

In[]:=

Graph[ResourceFunction["MultiwaySystem"][Flatten[ResourceFunction["EnumerateSubstitutionSystemRules"][{22},2]],ResourceFunction["StringTuples"]["AB",4],2,"StatesGraph"]]

Out[]=

In[]:=

Graph[ResourceFunction["MultiwaySystem"][Flatten[ResourceFunction["EnumerateSubstitutionSystemRules"][{22},2]],ResourceFunction["StringTuples"]["AB",4],3,"StatesGraph"]]

Out[]=

12 rules

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 »