{1,3}{2,3}
{1,3}{2,3}
In[]:=
rules3=Import["https://www.wolframcloud.com/obj/wolframphysics/Data/RuleEnumerations/13-23c.wxf"];
In[]:=
Length[rules3]
Out[]=
9373
In[]:=
fdex=ResourceFunction["ParallelMapMonitored"][Function[ru,TimeConstrained[FindDeadEndsX[ResourceFunction["WolframModel"][ru,Automatic,#,"LayeredCausalGraph"]&,10],5]],rules3];
In[]:=
Position[fdex,{p_/;Length[p]>0,n_/;n>10}]//Flatten
Out[]=
{346,347,348,349,350,351,352,353,1836,1838,1847,1849,1851,1853,1862,1864,2004,2006,2011,2012,2022,2024,2027,2029}
In[]:=
ResourceFunction["InteractiveListSelector"][ResourceFunction["ParallelMapMonitored"][Function[ru,TimeConstrained[HighlightGraph[ResourceFunction["WolframModel"][ru,Automatic,20,"LayeredCausalGraph"],FindDeadEnds[ResourceFunction["WolframModel"][ru,Automatic,#,"LayeredCausalGraph"]&,20],VertexSize1,ImageSize{200,200}],5]ru],rules3[[%312]]],"PerformanceGoal""Speed"]
Out[]=
{2,2}{4,2}
{2,2}{4,2}
In[]:=
rules24=Import["https://www.wolframcloud.com/obj/wolframphysics/Data/RuleEnumerations/22-42c.wxf"];
In[]:=
Length[rules24]
Out[]=
40405
In[]:=
fdex24=ResourceFunction["ParallelMapMonitored"][Function[ru,TimeConstrained[FindDeadEndsX[ResourceFunction["WolframModel"][ru,Automatic,#,"LayeredCausalGraph"]&,10],5]],rules24];
In[]:=
Position[fdex24,{p_/;Length[p]>0,n_/;n>10}]//Flatten
Out[]=
In[]:=
ResourceFunction["InteractiveListSelector"][ResourceFunction["ParallelMapMonitored"][Function[ru,TimeConstrained[HighlightGraph[ResourceFunction["WolframModel"][ru,Automatic,20,"LayeredCausalGraph"],FindDeadEnds[ResourceFunction["WolframModel"][ru,Automatic,#,"LayeredCausalGraph"]&,20],VertexSize1,ImageSize{200,200}],5]ru],rules24[[%]]],"PerformanceGoal""Speed"]
Out[]=