To run
To run
In[]:=
sigs[n_]:=DeleteDuplicates[Sort/@((Rule@@@Partition[#,2])&/@Catenate[Permutations@*Reverse/@Select[IntegerPartitions[n],EvenQ@*Length]])]
In[]:=
sigs[4]
Out[]=
{{13},{31},{22},{11,11}}
In[]:=
allall=Table[Echo@Export[$PhysicsDataDirectory<>"/MWCausalInvariance-k3/"<>ToString[n]<>".wxf",EchoFunction[Length][ParallelMapMonitored[#TimeConstrained[Do[If[TotalCausalInvariantQ[#,t],Return[t]],{t,20}],5]&,EnumerateSubstitutionSystemRules[Echo@#,3]]]&/@sigs[n]],{n,15}]
»
/Users/sw/Dropbox/Physics/Data/MWCausalInvariance-k3/1.wxf
»
{11}
»
2
»
/Users/sw/Dropbox/Physics/Data/MWCausalInvariance-k3/2.wxf
»
{12}
»
4
»
{21}
»
4
»
/Users/sw/Dropbox/Physics/Data/MWCausalInvariance-k3/3.wxf
»
{13}
»
10
»
{31}
»
10
»
{22}
»
10
»
{11,11}
»
14
»
/Users/sw/Dropbox/Physics/Data/MWCausalInvariance-k3/4.wxf
»
{14}
»
25
»
{41}
»
25
»
{23}
»
25
»
{32}
»
25
»
{11,12}
»
28
»
{11,21}
»
28
»
/Users/sw/Dropbox/Physics/Data/MWCausalInvariance-k3/5.wxf
»
{15}
»
70
»
{51}
»
70
»
{24}
»
70
»
{42}
»
70
»
{33}
»
70
»
{11,13}
»
82
»
{11,31}
»
82
»
{11,22}
»
70
»
{12,12}
»
70
»
{12,21}
»
70
»
{21,21}
»
70
»
{11,11,11}
»
122
»
/Users/sw/Dropbox/Physics/Data/MWCausalInvariance-k3/6.wxf
»
{16}
»
196
»
{61}
»
196
»
{25}
»
196
»
{52}
»
196
»
{34}
»
196
»
{43}
»
196
»
{11,14}
»
205
»
{11,41}
»
205
»
{11,23}
»
205
»
{11,32}
»
205
»
{12,13}
»
205
»
{12,31}
»
205
»
{13,21}
»
205
»
{21,31}
»
205
»
{12,22}
»
196
»
{21,22}
»
196
»
{11,11,12}
»
244
»
{11,11,21}
»
244
»
/Users/sw/Dropbox/Physics/Data/MWCausalInvariance-k3/7.wxf
»
{17}
»
574
»
{71}
»
574
»
{26}
»
574
»
{62}
»
574
»
{35}
»
574
»
{53}
»
574
»
{11,15}
»
610
»
{11,51}
»
610
»
{44}
»
574
»
{11,24}
»
574
»
{11,42}
»
574
»
{12,14}
»
574
»
{12,41}
»
574
»
{14,21}