WOLFRAM NOTEBOOK

In[]:=
ResourceFunction["MultiwaySystem"][{"A""AB","BB""A"},"A",7,"StatesGraph"]
Out[]=
In[]:=
ResourceFunction["MultiwaySystem"][{"A""AB","BB""A"},"A",8,"BranchialGraphStructure"]
Out[]=
In[]:=
ResourceFunction["MultiwaySystem"][{"A""AB","BB""A"},"A",9,"BranchialGraphStructure"]
Out[]=
​
In[]:=
GridGraph[{10,10}]
Out[]=
In[]:=
KaryTree[100]
Out[]=
Orthmodular lattice
In[]:=
ResourceFunction["MultiwaySystem"][{"BA""AB","BA""AB"},"BBBAAA",7,"StatesGraphStructure"]
Out[]=
In[]:=
NestGraph[{f[#],g[#]}&,1,3,VertexLabelsAutomatic]
Out[]=
Join numbers that you get by swapping 3 for 2, i.e. multiplying by 3/2
I.e. a grid wrt exponents
Wolfram Cloud

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 »

You are using a browser not supported by the Wolfram Cloud. Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.