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 »
WOLFRAM NOTEBOOK
Function[r,Graph[MultiwaySystem[r,{"A"},7,#],GraphLayout"LayeredDigraphEmbedding",AspectRatio1/2]&/@{"EvolutionCausalGraphStructure","StatesGraphStructure","CausalGraphStructure"}]/@EnumerateSubstitutionSystemRules[{12,11},2]
In[]:=
causals=Import["/Users/sw/Dropbox/Physics/Data/MWCausalInvariantSamples/samples-01.wxf"];
In[]:=
Length/@causals
Out[]=
{0,2,5,22,45,188,417,1572,3844,12991,33568,111229}
In[]:=
InteractiveListSelectorSW[ParallelMapMonitored[MultiwaySystem[#,{"A"},6,"CausalGraphStructure"]#&,causals[[2]]]]
Out[]=
In[]:=
InteractiveListSelectorSW[ParallelMapMonitored[MultiwaySystem[#,{"A"},6,"CausalGraphStructure"]#&,causals[[3]]]]
Out[]=
{{AAA}}
In[]:=
InteractiveListSelectorSW[ParallelMapMonitored[Graph[MultiwaySystem[#,{"A"},6,"CausalGraphStructure"],AspectRatio1/2]#&,causals[[4]]]]
Out[]=
In[]:=
InteractiveListSelectorSW[ParallelMapMonitored[TimeConstrained[Graph[MultiwaySystem[#,{"A"},6,"CausalGraphStructure"],AspectRatio1/2],1]#&,causals[[5]]]]
Out[]=
In[]:=
InteractiveListSelectorSW[ParallelMapMonitored[TimeConstrained[Graph[MultiwaySystem[#,{"A"},6,"CausalGraphStructure"],AspectRatio1/2],1]#&,causals[[6]]]]
Out[]=