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 »
WOLFRAM NOTEBOOK
In[]:=
MultiwaySystem[#,StringTuples["AB",3],6,"StatesGraphStructure"]&/@{{"A""AB","ABBB""B"},{"A""AB","ABBB""A"},{"A""AA","AAAA""B"},{"A""AB","BABB""B"}}
Out[]=
In[]:=
MultiwaySystem[#,"A",6,"StatesGraphStructure"]&/@{{"A""AB","ABBB""B"},{"A""AB","ABBB""A"},{"A""AA","AAAA""B"},{"A""AB","BABB""B"}}
Out[]=
In[]:=
CausalInvariantQ[#,"A",5]&/@{{"A""AB","ABBB""B"},{"A""AB","ABBB""A"},{"A""AA","AAAA""B"},{"A""AB","BABB""B"}}
Out[]=
{False,True,False,True}
In[]:=
CausalInvariantQ[{"A""AB","ABBB""B"},#,5]&/@StringTuples["AB",3]
Out[]=
{True,True,True,False,True,False,False,True}
In[]:=
ParallelMapMonitored[CausalInvariantQ[{"A""AB","ABBB""B"},#,6]&,StringTuples["AB",3]]
Out[]=
{True,False,False,False,True,False,False,True}
In[]:=
ParallelMapMonitored[CausalInvariantQ[{"A""AB","ABBB""B"},#,7]&,StringTuples["AB",3]]
Out[]=
{True,False,False,False,False,False,False,True}
In[]:=
MultiwaySystem[{"A""AB","ABBB""B"},"AAA",3,"StatesGraphStructure"]
Out[]=
In[]:=
MultiwaySystem[{"A""AB","ABBB""B"},"AAA",3,"CausalInvariantQ"]
Out[]=
True
In[]:=
MultiwaySystem[{"A""AB","ABBB""B"},"AAA",8,"CausalInvariantQ"]
Out[]=
True
{"A""AB","ABBB""B"}
In[]:=
MultiwaySystem[#,StringTuples["AB",3],6,"StatesGraphStructure"]&/@{{"A""AAA","AAA""B"},{"A""AAA","ABA""B"},{"A""ABA","BAB""A"}}
Out[]=
In[]:=
TestMWRules[{{"A""AAA","AAA""B"},{"A""AAA","ABA""B"},{"A""ABA","BAB""A"}},2]
Out[]=
In[]:=
TestMWRules@{{"A""AA","A""BAB"},{"A""AAA","AA""B"},{"A""AAB","AB""B"},{"A""BAB","BB""A"},{"A""AA","AA""BB"},{"A""BAB","BBB""A"},{"A""A","B""BB","AA""B"},{"A""AA","B""AA"},{"A""B","CC""AAB"},{"A""BB","C""BBB"},{"A""BBC","BC""C"},{"A""AA","AA""AB"},{"AB""A","BA""ABA"},{"AB""A","BA""ABB"}}
(kernel 68)
Counts::invl:The argument $Aborted is not a list.
(kernel 65)
Counts::invl:The argument $Aborted is not a list.
Out[]=
In[]:=
LayeredGraphPlot@MultiwaySystem[{"A""AA","AA""AB"},"AAA",5,"StatesGraph"]
Out[]=
In[]:=
LayeredGraphPlot@MultiwaySystem[{"A""AA","AA""AB"},"A",6,"StatesGraph"]
Out[]=