WOLFRAM NOTEBOOK

No overlaps test

In[]:=
Labeled[IsomorphicGraphQ[MultiwaySystem[{"AAB"#},StringTuples["AB",4],4,"StatesGraphStructure"],Graph[MultiwaySystem[{"AAB"#},StringTuples["AB",4],4,"EvolutionGraph"],VertexShapeFunctionAutomatic]],#]&/@RandomSample[StringTuples["AB",5],20]
Out[]=
In[]:=
Labeled[IsomorphicGraphQ[MultiwaySystem[{"AAB"#},StringTuples["AB",4],4,"StatesGraphStructure"],Graph[MultiwaySystem[{"AAB"#},StringTuples["AB",4],4,"EvolutionGraph"],VertexShapeFunctionAutomatic]],#]&/@StringTuples["AB",3]
Out[]=
In[]:=
MultiwaySystem[{"AAB""AAA"},StringTuples["AB",4],4,"StatesGraph"]
Out[]=
In[]:=
MultiwaySystem[{"AAB""AAA"},StringTuples["AB",4],4,"EvolutionGraph"]
Out[]=
In[]:=
ConnectedGraphComponents[%]
Out[]=
In[]:=
Labeled[IsomorphicGraphQ[MultiwaySystem[{"ABA"#},StringTuples["AB",4],4,"StatesGraphStructure"],Graph[MultiwaySystem[{"ABA"#},StringTuples["AB",4],4,"EvolutionGraph"],VertexShapeFunctionAutomatic]],#]&/@RandomSample[StringTuples["AB",5],20]
Out[]=

1,1 ; 1,1

In[]:=
TestMW[{{11,11},2}]
Out[]=
In[]:=
TestMW[{{11,11},3}]
Out[]=

1,2; 1,1

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.