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[]:=
"A""A"
Out[]=
AA
One step tree
{"A""AA"}
Two step tree:
{"A""A","A""AA"}
In[]:=
InteractiveListSelectorSW[PopupWindow[SubstitutionSystemCausalGraph[#,"A",5],#]#&/@{{"A""AB","BB""B"}}]
Out[]=
In[]:=
InteractiveListSelectorSW[PopupWindow[SubstitutionSystemCausalGraph[#,"A",5],#]#&/@{{"A""AA","AAA""A"},{"A""AB","BBB""A"},{"A""AAB","AB""A"},{"A""AAB","BA""A"},{"A""AAB","BB""A"},{"A""ABA","AB""A"},{"A""BAB","BB""A"},{"A""BAB","BB""B"},{"A""AA","AA""AA"},{"A""AB","AB""AA"}}]
Out[]=
{{AAAB,BAA},{ABAB,BBA},{AAA,AAAA}}
In[]:=
InteractiveListSelectorSW[PopupWindow[SubstitutionSystemCausalGraph[#,"A",5],#]#&/@{{"A""AAAB","BA""A"},{"A""AABB","BA""A"},{"A""ABAB","BA""A"},{"A""ABAB","BB""A"},{"A""ABAB","BB""B"},{"A""ABBA","AB""A"},{"A""BAAB","BB""A"},{"A""AAB","BA""AA"}}]
Out[]=
In[]:=
InteractiveListSelectorSW[Labeled[SubstitutionSystemCausalGraph[#,"A",4],#]#&/@{{"A""ABBA","AB""A"},{"A""AABB","BB""B"},{"A""ABAB","BB""B"},{"A""BAAB","BB""A"},{"A""BAAB","BB""B"},{"A""BAB","BBB""A"},{"A""AAA","AA""AA"},{"A""B","B""AB","BA""A"}}]
Out[]=
In[]:=
InteractiveListSelectorSW[Labeled[SubstitutionSystemCausalGraph[#,"A",4],#]#&/@{{"A""ABBA","AB""A"},{"A""AABB","BB""B"},{"A""ABAB","BB""B"},{"A""BAAB","BB""A"}}]
Out[]=
In[]:=
InteractiveListSelectorSW[Labeled[SubstitutionSystemCausalGraph[#,"A",6],#]#&/@{{"A""BAB","BBB""A"},{"A""AAA","AA""AA"},{"A""B","B""AB","BA""A"}}]
Out[]=
Other ICs
Other ICs