To run
To run
sigs[n_]:=DeleteDuplicates[Sort/@((Rule@@@Partition[#,2])&/@Catenate[Permutations@*Reverse/@Select[IntegerPartitions[n],EvenQ@*Length]])]
In[]:=
sigs[4]
In[]:=
{{13},{31},{22},{11,11}}
Out[]=
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}]
In[]:=
/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}
»
574
»
{21,41}
»
574
»
{11,33}
»
610
»
{13,13}
»
610
»
{13,31}
»
610
»
{31,31}
»
610
»
{12,23}
»
574
»
{12,32}
»
574
»
{13,22}
»
574
»
{21,23}
»
574
»
{21,32}
»
574
»
{22,31}
»
574
»
{11,11,13}
»
730
»
{11,11,31}
»
730
»
{22,22}
»
574
»
{11,11,22}
»
610
»
{11,12,12}
»
610
»
{11,12,21}
»
610
»
{11,21,21}
»
610
»
{11,11,11,11}
»
1094
»
/Users/sw/Dropbox/Physics/Data/MWCausalInvariance-k3/8.wxf
»
{18}
»
1681
»
{81}
»
1681
»
{27}
»
1681
»
{72}
»
1681
»
{36}
»
1681
»
{63}
»
1681
»
{11,16}
»
1708
»
{11,61}
»
1708
»
{45}
»
1681
»
{54}
»
1681
»
{11,25}
»
1708
»
{11,52}
»
1708
»
{12,15}
»
1708
»
{12,51}
»
1708
»
{15,21}
»
1708
»
{21,51}
»
1708
»
{11,34}
»
1708
»
{11,43}
»
1708
»
{13,14}
»
1708
»
{13,41}
»
1708
»
{14,31}
»
1708
»
{31,41}
»
1708
»
{12,24}
»
1681
»
{12,42}
»
1681
»
{14,22}
»
1681
»
{21,24}
»
1681
»
{21,42}
»
1681
»
{22,41}
»
1681
»
{11,11,14}
»
1825
»
{11,11,41}
»
1825
»
{12,33}
»
1708
»
{13,23}
»
1708
»
{13,32}
»
1708
»
{21,33}
»
1708
»
{23,31}
»
1708
»
{31,32}
»
1708
»
{22,23}
»
1681
»
{22,32}
»
1681
»
{11,11,23}
»
1825
»
{11,11,32}
»
1825
»
{11,12,13}
»
1825
»
{11,12,31}
»
1825
»
{11,13,21}
»
1825
»
{11,21,31}
»
1825
»
{11,12,22}
»
1708
»
{11,21,22}
»
1708
»
{12,12,12}
»
1708
»
{12,12,21}
»
1708
»
{12,21,21}
»
1708
»
{21,21,21}
»
1708
»
{11,11,11,12}
»
2188
»
{11,11,11,21}
»
2188
»
/Users/sw/Dropbox/Physics/Data/MWCausalInvariance-k3/9.wxf
»
{19}
»
5002
»
{91}
»
5002
»
{28}
»
5002
»
{82}
»
5002
»
{37}
»
5002
»
{73}
»
5002
»
{11,17}
»
5110
»
{11,71}
»
5110
»
{46}
»
5002
»
{64}
»
5002
»
{11,26}
»
5002
»
{11,62}
»
5002
»
{12,16}
»
5002
»
{12,61}
»
5002
»
{16,21}
»
5002
»
{21,61}
»
5002
»
{55}
»
5002
»
{11,35}
»
5110
»
{11,53}
»
5110
»
{13,15}
»
5110
»
{13,51}
»
5110
»
{15,31}
»
5110
»
{31,51}
»
5110
»
{12,25}
»
5002
»
{12,52}
»
5002
»
{15,22}
»
5002
»
{21,25}
»
5002
»
{21,52}
»
5002
»
{22,51}
»
5002
»
{11,11,15}
»
5470
»
{11,11,51}
»
5470
»
{11,44}
»
5002
»
{14,14}
»
5002
»
{14,41}
»
5002
»
{41,41}
»
5002
»
{12,34}
»
5002
»
{12,43}
»
5002
»
{13,24}
»
5002
»
{13,42}
»