2,2  2,2

allrules=Import["/Users/sw/Dropbox/Physics/Data/RuleEnumerations/22-22c.wxf"];
In[]:=
Length[allrules]
In[]:=
562
Out[]=
ans=ParallelMapMonitored[TotalCausalInvariantQ[WolframModel[#],1]&,allrules];//AbsoluteTiming
In[]:=
{7.42152,Null}
Out[]=
Counts[ans]
In[]:=
False562
Out[]=
ans=ParallelMapMonitored[TotalCausalInvariantQ[WolframModel[#],2]&,allrules];//AbsoluteTiming
In[]:=
{3.52724,Null}
Out[]=
Counts[ans]
In[]:=
False562
Out[]=
ans=ParallelMapMonitored[TotalCausalInvariantQ[WolframModel[#],3]&,allrules];//AbsoluteTiming
In[]:=
{4.00348,Null}
Out[]=
Counts[ans]
In[]:=
False562
Out[]=

2,3  2,3

allrules3=Import["/Users/sw/Dropbox/Physics/Data/RuleEnumerations/23-23c.wxf"];
In[]:=
Length[allrules3]
In[]:=
772696
Out[]=
rsamp=RandomSample[allrules3,200];
In[]:=
ans=ParallelMapMonitored[TotalCausalInvariantQ[WolframModel[#],1]&,rsamp];//AbsoluteTiming
In[]:=
{1.73137,Null}
Out[]=
Counts[ans]
In[]:=
False200
Out[]=

2,3  3,3 (random)

samp23=ParallelTable[RandomWolframModelRule[{{2,3}}{{3,3}}],100];
In[]:=
ans=ParallelMapMonitored[TotalCausalInvariantQ[WolframModel[#],1]&,samp23];//AbsoluteTiming
In[]:=
{1.06897,Null}
Out[]=
Counts[ans]
In[]:=
False100
Out[]=
samp23=ParallelTable[RandomWolframModelRule[{{2,3}}{{3,3}}],1000];
In[]:=
ans=ParallelMapMonitored[TotalCausalInvariantQ[WolframModel[#],1]&,samp23];//AbsoluteTiming
In[]:=
{8.93259,Null}
Out[]=
Counts[ans]
In[]:=
False992,True8
Out[]=
Pick[samp23,ans,True]
In[]:=
Out[]=
ParallelMapMonitored[FinalPicture[#,5]&,%]
In[]:=
Out[]=
samp23=ParallelTable[RandomWolframModelRule[{{2,3}}{{3,3}}],1000];
In[]:=
ans=ParallelMapMonitored[TotalCausalInvariantQ[WolframModel[#],1]&,samp23];//AbsoluteTiming
In[]:=
{9.27581,Null}
Out[]=
Counts[ans]
In[]:=
False991,True9
Out[]=
Pick[samp23,ans,True]
In[]:=
Out[]=
ParallelMapMonitored[FinalPicture[#,5]&,%]
In[]:=
Out[]=
ans=ParallelMapMonitored[TotalCausalInvariantQ[WolframModel[#],3]&,samp23];//AbsoluteTiming
In[]:=
{318.751,Null}
Out[]=
Counts[ans]
In[]:=
False968,True32
Out[]=
Pick[samp23,ans]
In[]:=
Out[]=
InteractiveListSelectorSW[ParallelMapMonitored[FinalPicture[#,5]#&,%83]]
In[]:=
Out[]=
{{{1,2,3},{3,4,5}}{{6,7,8},{8,9,10},{10,5,4}},{{1,2,3},{4,5,3}}{{6,7,2},{7,8,2},{1,6,4}}}
EvolutionPicture[#,6]&/@{{{1,2,3},{3,4,5}}{{6,7,8},{8,9,10},{10,5,4}},{{1,2,3},{4,5,3}}{{6,7,2},{7,8,2},{1,6,4}}}
In[]:=
Out[]=
RulePlot[WolframModel[#]]&/@{{{1,2,3},{3,4,5}}{{6,7,8},{8,9,10},{10,5,4}},{{1,2,3},{4,5,3}}{{6,7,2},{7,8,2},{1,6,4}}}
In[]:=
Out[]=
WolframModel[#,{{0,0,0},{0,0,0}},10,"CausalGraph"]&/@{{{1,2,3},{3,4,5}}{{6,7,8},{8,9,10},{10,5,4}},{{1,2,3},{4,5,3}}{{6,7,2},{7,8,2},{1,6,4}}}
In[]:=
Out[]=

[[ check completion; no time constraint ... ]]