{1,3}{2,3}
{1,3}{2,3}
rules3=Import["https://www.wolframcloud.com/obj/wolframphysics/Data/RuleEnumerations/13-23c.wxf"];
In[]:=
Length[rules3]
In[]:=
9373
Out[]=
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
In[]:=
{346,347,348,349,350,351,352,353,1836,1838,1847,1849,1851,1853,1862,1864,2004,2006,2011,2012,2022,2024,2027,2029}
Out[]=
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"]
In[]:=
Out[]=
{2,2}{4,2}
{2,2}{4,2}
rules24=Import["https://www.wolframcloud.com/obj/wolframphysics/Data/RuleEnumerations/22-42c.wxf"];
In[]:=
Length[rules24]
In[]:=
40405
Out[]=
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
In[]:=
Out[]=
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"]
In[]:=
Out[]=