No overlaps test
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
1,1 ; 1,1
In[]:=
TestMW[{{11,11},2}]
Out[]=
In[]:=
TestMW[{{11,11},3}]
Out[]=
1,2; 1,1
1,2; 1,1