{1,2}{2,2}
{1,2}{2,2}
In[]:=
rules=Import["https://www.wolframcloud.com/obj/wolframphysics/Data/RuleEnumerations/12-22c.wxf"];
In[]:=
gres={#[[1]],If[Head[#[[2]]]=!=Graph,#[[2]],CanonicalGraph[#[[2]]]]}&/@ResourceFunction["ParallelMapMonitored"][Function[ru,TimeConstrained[With[{gs=CausalConnectionGraph[ResourceFunction["WolframModel"][ru,Automatic,#,"LayeredCausalGraph"]&,7,13]},{ru,IndexGraph[gs]}],5]],rules];
In[]:=
CountsFramedGraphLast[#],ImageSize{80,80},EdgeStyleDirective,Thickness[Large],VertexStyle,VertexSize.15,FrameStyleLightGray&/@gres
Out[]=
In[]:=
Length[rules]
Out[]=
73
{1,2}{3,2}
{1,2}{3,2}
In[]:=
rules=Import["https://www.wolframcloud.com/obj/wolframphysics/Data/RuleEnumerations/12-32c.wxf"];
In[]:=
gres={#[[1]],If[Head[#[[2]]]=!=Graph,#[[2]],CanonicalGraph[#[[2]]]]}&/@ResourceFunction["ParallelMapMonitored"][Function[ru,TimeConstrained[With[{gs=CausalConnectionGraph[ResourceFunction["WolframModel"][ru,Automatic,#,"LayeredCausalGraph"]&,3,8]},{ru,IndexGraph[gs]}],5]],rules];
In[]:=
CountsFramedGraphLast[#],ImageSize{80,80},EdgeStyleDirective,Thickness[Large],VertexStyle,VertexSize.15,FrameStyleLightGray&/@gres
Out[]=
{2,2}{4,2}
{2,2}{4,2}
In[]:=
rules=Import["https://www.wolframcloud.com/obj/wolframphysics/Data/RuleEnumerations/22-42c.wxf"];
In[]:=
gres={#[[1]],If[Head[#[[2]]]=!=Graph,#[[2]],CanonicalGraph[#[[2]]]]}&/@ResourceFunction["ParallelMapMonitored"][Function[ru,TimeConstrained[With[{gs=CausalConnectionGraph[ResourceFunction["WolframModel"][ru,Automatic,#,"LayeredCausalGraph"]&,3,8]},{ru,IndexGraph[gs]}],5]],rules];
(kernel 13)
General::cdir:Cannot set current directory to 1ee.
In[]:=
Length[gres]
Out[]=
40405
In[]:=
Count[gres,{_Rule,_}]
Out[]=
39607
In[]:=
CountsFramedGraphLast[#],ImageSize{80,80},EdgeStyleDirective,Thickness[Large],VertexStyle,VertexSize.15,FrameStyleLightGray&/@Cases[gres,{_Rule,_}]
Out[]=
In[]:=
(#[[1,2]]->ResourceFunction["InteractiveListSelector"][ResourceFunction["ParallelMapMonitored"][ResourceFunction["WolframModel"][#,Automatic,10,{"LayeredCausalGraph","FinalStatePlot"}]#&,First/@#]])&/@Select[GatherBy[gres,Last],Length[#]<200&]
Out[]=
summary
summary
“Interesting Rules”
“Interesting Rules”
String Systems
String Systems
This has a hyperbolicity issue......
Causal Invariant
Causal Invariant