Causal Invariance
Causal Invariance
In[]:=
rules=Import["/Users/sw/Dropbox/Physics/Data/RuleEnumerations/22-32c.wxf"];
In[]:=
Length[rules]
Out[]=
4702
In[]:=
<<SetReplace`
In[]:=
Get["/Users/sw/Dropbox/Physics/CodeDevelopment/FunctionRepositorySources/MultiwaySystem-New.wl"]
In[]:=
ParallelEvaluate[<<SetReplace`]
Out[]=
{Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null}
In[]:=
ParallelEvaluate[Get["/Users/sw/Dropbox/Physics/CodeDevelopment/FunctionRepositorySources/MultiwaySystem-New.wl"]]
Out[]=
{Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null}
In[]:=
RandomChoice[rules]
Out[]=
{{1,2},{1,3}}{{4,2},{4,5},{4,6}}
In[]:=
MultiwaySystem[WolframModel[{{{1,2},{1,3}}{{4,2},{4,5},{4,6}}}],{{{0,0},{0,0}}},3,"CausallyInvariantQ"]
In[]:=
MultiwaySystem[{"A""BBB","BB""A"},{"A"},3,"CausallyInvariantQ"]
Out[]=
True
In[]:=
ParallelMapMonitored[MultiwaySystem[WolframModel[{#}],{{{0,0},{0,0}}},3,"CausallyInvariantQ"]&,Take[rules,10]]
Out[]=
{True,True,True,True,True,True,True,True,True,True}
ParallelMapMonitored[TimeConstrained[MultiwaySystem[WolframModel[{#}],{{{0,0},{0,0}}},3,"CausallyInvariantQ"],15]&,rules]
ParallelMapMonitored[WolframModelTest[#,{{0,0},{0,0}}]&,rules];
In[]:=
RandomSample[rules,10]
Out[]=
In[]:=
ParallelMapMonitored[MultiwaySystem[WolframModel[{#}],{{{0,0},{0,0}}},3,"StatesGraph"]&,%6]
Out[]=
In[]:=
ParallelMapMonitored[MultiwaySystem[WolframModel[{#}],{{{0,0},{0,0}}},6,"StatesGraph"]&,%6]
Out[]=
In[]:=
ParallelMapMonitored[MultiwaySystem[WolframModel[{#}],{{{0,0},{0,0}}},7,"StatesGraph"]&,%6]
Out[]=
In[]:=
ParallelMapMonitored[MultiwaySystem[WolframModel[{#}],{{{0,0},{0,0}}},7,"StatesGraph"]&,RandomSample[rules,100]]
Out[]=
2,2 4,2
2,2 4,2
In[]:=
rules4=Import["/Users/sw/Dropbox/Physics/Data/RuleEnumerations/22-42c.wxf"];
In[]:=
ParallelMapMonitored[TimeConstrained[MultiwaySystem[WolframModel[{#}],{{{0,0},{0,0}}},5,"StatesGraph"],10]&,RandomSample[rules4,100]]
Out[]=