WOLFRAM NOTEBOOK

In[]:=
GetRules[{n1_,k1_}{n2_,k2_}]:=Import[StringJoin["/Users/sw/Dropbox/Physics/Data/RuleEnumerations/",ToString[n1],ToString[k1],"-",ToString[n2],ToString[k2],"c.wxf"]]
In[]:=
ParallelMapMonitored[TotalCausalInvariantQ[{#},1]&,GetRules[{2,2}{3,2}]]
Out[]=
In[]:=
Counts[%]
Out[]=
True2669,False2033
In[]:=
ParallelMapMonitored[TotalCausalInvariantQ[{#},2]&,GetRules[{2,2}{3,2}]]
Out[]=
Wolfram Cloud

You are using a browser not supported by the Wolfram Cloud

Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.


I understand and wish to continue anyway »

You are using a browser not supported by the Wolfram Cloud. Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.