In[]:=
causals[[3]]
Out[]=
{{AAA},{AAB},{ABB},{AAA},{ABA}}
In[]:=
Select[causals[[3]],(!ConnectedGraphQ[MultiwaySystem[#,StringJoin[#[[1,1]],#[[1,1]]],4,"BranchialGraphStructure"]])&]
Out[]=
{}
In[]:=
Select[causals[[4]],(!ConnectedGraphQ[MultiwaySystem[#,StringJoin[#[[1,1]],#[[1,1]]],4,"BranchialGraphStructure"]])&]
Out[]=
{}
In[]:=
Select[causals[[5]],(!ConnectedGraphQ[MultiwaySystem[#,StringJoin[#[[1,1]],#[[1,1]]],4,"BranchialGraphStructure"]])&]
Out[]=
{}
In[]:=
Select[causals[[6]],(!ConnectedGraphQ[MultiwaySystem[#,StringJoin[#[[1,1]],#[[1,1]]],4,"BranchialGraphStructure"]])&]
Out[]=
{}
In[]:=
Select[causals[[7]],(!ConnectedGraphQ[MultiwaySystem[#,StringJoin[#[[1,1]],#[[1,1]]],4,"BranchialGraphStructure"]])&]
Out[]=
{{ABB,BBAA}}
In[]:=
Table[MultiwaySystem[#,StringJoin[#[[1,1]],#[[1,1]]],t,"BranchialGraphStructure"],{t,8}]&/@%139
Out[]=
In[]:=
Table[MultiwaySystem[#,#[[1,1]],t,"BranchialGraphStructure"],{t,10}]&/@%139
Out[]=
In[]:=
Select[causals[[8]],(!ConnectedGraphQ[MultiwaySystem[#,StringJoin[#[[1,1]],#[[1,1]]],4,"BranchialGraphStructure"]])&]
Out[]=
{{AA,AAAAAB},{ABAAB,AAA},{AAA,AABAB},{ABB,BBAAA},{ABB,BBAAB},{ABB,BBABA},{ABB,BBBAA},{AABB,BBAB},{AB,AAB,BBA}}
In[]:=
ParallelMapMonitored[Table[TimeConstrained[MultiwaySystem[#,StringJoin[#[[1,1]],#[[1,1]]],t,"BranchialGraphStructure"],5],{t,8}]&,%140]
Out[]=
In[]:=
LayeredGraphPlot[SubstitutionSystemCausalGraph[#,StringJoin[#[[1,1]],#[[1,1]]],6]]&/@{{"A""A","AA""AAAB"},{"A""BAAB","AA""A"},{"A""AA","AA""BAB"},{"A""BB","BB""AAA"},{"A""BB","BB""AAB"},{"A""BB","BB""ABA"},{"A""BB","BBB""AA"},{"AA""BB","BB""AB"},{"A""B","A""AB","BB""A"}}
Out[]=
In[]:=
ParallelMapMonitored[Table[TimeConstrained[MultiwaySystem[#,#[[1,1]],t,"BranchialGraphStructure"],1],{t,8}]&,%140]
Out[]=