MultiwaySystem[{"BA""AB","AC""CA"},"AABAAAAAAAAACAA",5]
In[]:=
{{AABAAAAAAAAACAA},{AAABAAAAAAAACAA,AABAAAAAAAACAAA},{AAAABAAAAAAACAA,AAABAAAAAAACAAA,AABAAAAAAACAAAA},{AAAAABAAAAAACAA,AAAABAAAAAACAAA,AAABAAAAAACAAAA,AABAAAAAACAAAAA},{AAAAAABAAAAACAA,AAAAABAAAAACAAA,AAAABAAAAACAAAA,AAABAAAAACAAAAA,AABAAAAACAAAAAA},{AAAAAAABAAAACAA,AAAAAABAAAACAAA,AAAAABAAAACAAAA,AAAABAAAACAAAAA,AAABAAAACAAAAAA,AABAAAACAAAAAAA}}
Out[]=
MultiwaySystem[{"BA""AB","AC""CA"},"AABAAAAAAAAACAA",20,"CausalGraphStructure"]
In[]:=
Out[]=
MultiwaySystem[{"BA""AB","AC""CA"},"AABAAAAAAAAACAA",5,"CausalGraph"]
In[]:=
Out[]=
MultiwaySystem[{"BA""AB","AC""CA"},"AABAAAAAAAAACAA",2,"EvolutionEventsGraph"]
In[]:=
Out[]=
MultiwaySystem[{"BA""AB","AC""CA"},"AABAAAAAAAAACAA",5,"EvolutionEventsGraph"]
In[]:=
Out[]=
MultiwaySystem[{"BA""AB","AC""CA"},"AABAAAAAAAAACAA",5,"StatesGraph"]
In[]:=
Out[]=
MultiwaySystem[{"BA""AB"},"AABAAAAAAAAAAA",20,"CausalGraphStructure"]
In[]:=
Out[]=
MultiwaySystem[{"BA""AB"},"AABAAAAAAAAAAA",5,"CausalGraph"]
In[]:=
Out[]=

Preserve “background space”

MultiwaySystem[{"BA""AB","AC""CA","A""AA","AA""A"},"BAAAAAC",2,"CausalGraphStructure"]
In[]:=
Out[]=
MultiwaySystem[{"BA""AB","AC""CA","A""AA","AA""A"},"BAAAAAC",3,"CausalGraphStructure"]
In[]:=
Out[]=
LayeredGraphPlot[%]
In[]:=
Out[]=
MultiwaySystem[{"BA""AB","AC""CA","A""AA","AA""A"},"BAAAAAA",3,"CausalGraphStructure"]
In[]:=
Out[]=
MultiwaySystem[{"A""AA","AA""A"},"AAAAA",3,"CausalGraphStructure"]
In[]:=
Out[]=
MultiwaySystem[{"A""AA"},"AAAAA",3,"CausalGraphStructure"]
In[]:=
Out[]=
MultiwaySystem[{"A""AA","BA""AB"},"BAAAAA",3,"CausalGraphStructure"]
In[]:=
Out[]=
MultiwaySystem[{"A""AA"}"Sequential","AAAAA",3,"CausalGraphStructure"]
In[]:=
Out[]=
MultiwaySystem[{"A""AA","BA""AB"}"Sequential","BAAAAA",3,"CausalGraphStructure"]
In[]:=
Out[]=
MultiwaySystem[{"A""AA","BA""AB"}"Sequential","BAAAAA",10,"CausalGraphStructure"]
In[]:=
Out[]=
WolframModel[{{1},{1,2}}{{1,2},{2}},List@@@EdgeList[PathGraph[Range[10]]],4]
In[]:=
Out[]=
WolframModel[{{1},{1,2}}{{1,2},{2}},Append[List@@@EdgeList[PathGraph[Range[10]]],{1}],4]
In[]:=
Out[]=
HypergraphPlot/@%["StatesList"]
In[]:=
Out[]=
WolframModel[{{{1},{1,2}}{{1,2},{2}},{{1,2}}{{1,3},{3,2}}},Append[List@@@EdgeList[PathGraph[Range[10]]],{1}],4]
In[]:=
Out[]=
HypergraphPlot/@%["StatesList"]
In[]:=
Out[]=
WolframModel[{{{1},{1,2}}{{1,2},{2}},{{1,2},{2,3}}{{1,2},{2,4},{4,3}}},Append[List@@@EdgeList[PathGraph[Range[10]]],{1}],4]
In[]:=
Out[]=
HypergraphPlot/@%["StatesList"]
In[]:=
Out[]=
WolframModelEvolutionObject
Generations count: 4
Events count: 34
["CausalGraph"]
In[]:=
Out[]=
WolframModelEvolutionObject
Generations count: 4
Events count: 34
["CausalGraph",VertexLabelsAutomatic]
In[]:=
Out[]=
WolframModel[{{{1},{1,2}}{{1,2},{2}},{{1,2},{2,3}}{{1,2},{2,4},{4,3}}},List@@@EdgeList[PathGraph[Range[10]]],4]["CausalGraph"]
In[]:=
Out[]=
WolframModel[{{{1},{1,2}}{{1,2},{2}},{{1,2},{2,3}}{{1,2},{2,4},{4,3}}},List@@@EdgeList[PathGraph[Range[20]]],4]["CausalGraph"]
In[]:=
Out[]=
WolframModel[{{{1},{1,2}}{{1,2},{2}},{{1,2},{2,3}}{{1,2},{2,4},{4,3}}},List@@@EdgeList[PathGraph[Range[20]]],6]["CausalGraph"]
In[]:=
Out[]=
LayeredGraphPlot[%]
In[]:=
Out[]=
WolframModel[{{{1},{1,2}}{{1,2},{2}},{{1,2},{2,3}}{{1,2},{2,4},{4,3}}},Append[List@@@EdgeList[PathGraph[Range[20]]],{1}],6]["CausalGraph"]
In[]:=
Out[]=
LayeredGraphPlot[%]
In[]:=
Out[]=
LayeredGraphPlot[WolframModel[{{{1},{1,2}}{{1,2},{2}},{{1,2},{2,3}}{{1,2},{2,4},{4,3}}},Append[List@@@EdgeList[PathGraph[Range[10]]],{1}],8]["CausalGraph"]]
In[]:=
Out[]=
LayeredGraphPlot[WolframModel[{{{1},{1,2}}{{1,2},{2}},{{1,2},{2,3}}{{1,2},{2,4},{4,3}}},Append[List@@@EdgeList[PathGraph[Range[10]]],{5}],8]["CausalGraph"]]
In[]:=
Out[]=
LayeredGraphPlot[WolframModel[{{{1},{1,2}}{{1,2},{2}},{{1,2},{2,3}}{{1,2},{2,4},{4,3}}},Append[List@@@EdgeList[PathGraph[Range[10]]],{5}],10]["CausalGraph"]]
In[]:=
Out[]=
LayeredGraphPlot[WolframModel[{{{1},{1,2}}{{1,2},{2}},{{1,2},{2,3}}{{1,2},{2,4},{4,3}}},Append[List@@@EdgeList[PathGraph[Range[10]]],{2}],10]["CausalGraph"]]
In[]:=
Out[]=
LayeredGraphPlot[WolframModel[{{{1},{1,2}}{{1,2},{2}},{{1,2},{2,3}}{{1,2},{2,4},{4,3}}},List@@@EdgeList[PathGraph[Range[10]]],10]["CausalGraph"]]
In[]:=
Out[]=
HypergraphPlot/@WolframModel[{{{1},{1,2}}{{1,2},{2}},{{1,2},{2,3}}{{1,2},{2,4},{4,3}}},Append[List@@@EdgeList[PathGraph[Range[10]]],{2}],10,"StatesList"]
In[]:=
Out[]=
LayeredGraphPlot[WolframModel[{{{1},{1,2}}{{1,2},{2}},{{1,2},{2,3}}{{1,2},{2,3}}},List@@@EdgeList[PathGraph[Range[20]]],10]["CausalGraph"]]
In[]:=
Out[]=
LayeredGraphPlot[WolframModel[{{{1},{1,2}}{{1,2},{2}},{{1,2},{2,3}}{{1,2},{2,3}}},List@@@EdgeList[PathGraph[Range[20]]],10]["CausalGraph"],VertexLabelsAutomatic]
In[]:=
Out[]=
The above was because the rule picked pairs, but they don’t align....
LayeredGraphPlot[WolframModel[{{{1},{1,2}}{{1,2},{2}},{{1,2},{2,3}}{{1,2},{2,3}}},List@@@EdgeList[PathGraph[Range[19]]],10]["CausalGraph"],VertexLabelsAutomatic]
In[]:=
Out[]=
LayeredGraphPlot[WolframModel[{{{1},{1,2}}{{1,2},{2}},{{1,2},{2,3}}{{1,2},{2,3}}},List@@@EdgeList[PathGraph[Range[19]]],10]["CausalGraph"]]
In[]:=
Out[]=
LayeredGraphPlot[WolframModel[{{{1},{1,2}}{{1,2},{2}},{{1,2},{2,3}}{{1,2},{2,3}}},Append[List@@@EdgeList[PathGraph[Range[19]]],{5}],10]["CausalGraph"]]
In[]:=
Out[]=
WolframModel[{{{1},{1,2}}{{1,2},{2}},{{1,2},{2,3}}{{1,2},{2,3}}},Append[List@@@EdgeList[PathGraph[Range[19]]],{5}],10]["CausalGraph"]
In[]:=
Out[]=
WolframModel[{{{1},{1,2}}{{1,2},{2}},{{1,2},{2,3}}{{1,2},{2,3}}},List@@@EdgeList[PathGraph[Range[19]]],10]["CausalGraph"]
In[]:=
Out[]=
WolframModel[{{{1,1},{1,2}}{{1,2},{2,2}},{{1,2},{2,3}}{{1,2},{2,3}}},Append[List@@@EdgeList[PathGraph[Range[19]]],{5,5}],10]["CausalGraph"]
In[]:=
Out[]=
LayeredGraphPlot[%]
In[]:=
Out[]=
LayeredGraphPlot[WolframModel[{{{1,1},{1,2}}{{1,2},{2,2}},{{1,2},{2,3}}{{1,2},{2,3}}},List@@@EdgeList[PathGraph[Range[19]]],10]["CausalGraph"]]
In[]:=
Out[]=
LayeredGraphPlot[WolframModel[{{{1,1},{1,2}}{{1,2},{2,2}},{{1,2},{2,3}}{{1,2},{2,3}}},Append[List@@@EdgeList[PathGraph[Range[19]]],{2,2}],10]["CausalGraph"]]
In[]:=
Out[]=
LayeredGraphPlot[WolframModel[{{{1,1},{1,2}}{{1,2},{2,2}},{{1,2},{2,3}}{{1,2},{2,3}}},Append[List@@@EdgeList[PathGraph[Range[19]]],{2,2}],10]["CausalGraph"]]
{{1,2,2},{2,3},{3,4,4},
{{1,2},{2,2,2},{2,3},{3,4},{4,4,4},
Catenate[Table[{{i,i+1},{1,1,1}+i,{i+1,i+2}},{i,1,20,2}]]
In[]:=
Out[]=
LayeredGraphPlot[WolframModel[{{{1},{1,2}}{{1,2},{2}},{{1,2},{2,2,2},{2,3}}{{1,2},{2,2,2},{2,3}}},Catenate[Table[{{i,i+1},{1,1,1}+i,{i+1,i+2}},{i,1,20,2}]],10]["CausalGraph"]]
In[]:=
Out[]=
LayeredGraphPlot[WolframModel[{{{1},{1,2}}{{1,2},{2}},{{1,2},{2,2,2},{2,3}}{{1,2},{2,2,2},{2,3}}},Append[Catenate[Table[{{i,i+1},{1,1,1}+i,{i+1,i+2}},{i,1,20,2}]],{2}],10]["CausalGraph"]]
In[]:=
Out[]=
LayeredGraphPlot[WolframModel[{{{1},{1,2}}{{1,2},{2}},{{1,2},{2,2,2},{2,3}}{{1,2},{2,2,2},{2,3}}},Append[Catenate[Table[{{i,i+1},{1,1,1}+i,{i+1,i+2}},{i,1,20,2}]],{5}],30]["CausalGraph"]]
In[]:=
Out[]=
WolframModel[{{{1},{1,2}}{{1,2},{2}},{{1,2},{2,2,2},{2,3}}{{1,2},{2,2,2},{2,3}}},Append[Catenate[Table[{{i,i+1},{1,1,1}+i,{i+1,i+2}},{i,1,20,2}]],{5}],30]["CausalGraph"]
In[]:=
Out[]=
HypergraphPlot/@WolframModel[{{{1},{1,2}}{{1,2},{2}},{{1,2},{2,2,2},{2,3}}{{1,2},{2,2,2},{2,3}}},Append[Catenate[Table[{{i,i+1},{1,1,1}+i,{i+1,i+2}},{i,1,20,2}]],{5}],10,"StatesList"]
In[]:=
Out[]=
HypergraphPlot/@WolframModel[{{{1},{1,2}}{{1,2},{2}},{{1,2},{2,2,2},{2,3}}{{1,2},{2,2,2},{2,3}}},Append[Catenate[Table[{{i,i+1},{1,1,1}+i,{i+1,i+2}},{i,1,20,2}]],{5}],10,"StatesList"]
In[]:=
Out[]=
HypergraphPlot/@WolframModel[{{{1},{1},{1},{1,2}}{{1,2},{2},{2},{2}},{{1,2},{2,2,2},{2,3}}{{1,2},{2,2,2},{2,3}}},Join[Catenate[Table[{{i,i+1},{1,1,1}+i,{i+1,i+2}},{i,1,20,2}]],{{5},{5},{5}}],10,"StatesList"]
In[]:=
Out[]=
HypergraphPlot/@WolframModel[{{{1},{1,2}}{{1,2},{2}},{{1,2},{2,2,2},{2,3}}{{1,2},{2,2,2},{2,3}}},Append[Catenate[Table[{{i,i+1},{1,1,1}+i,{i+1,i+2}},{i,1,5,2}]],{1}],8,"StatesList"]//GraphicsColumn
In[]:=
Out[]=
HypergraphPlot/@WolframModel[{{{1},{1,2}}{{1,2},{2}},{{1,2},{2,2,2},{2,3},{3,4}}{{1,2},{2,2,2},{2,3},{3,4}}},Append[Catenate[Table[{{i,i+1},{1,1,1}+i,{i+1,i+2}},{i,1,5,2}]],{1}],8,"StatesList"]//GraphicsColumn
In[]:=
Out[]=
WolframModel[{{{1},{1,2}}{{1,2},{2}},{{1,2},{2,2,2},{2,3},{3,4}}{{1,2},{2,2,2},{2,3},{3,4}}},Append[Catenate[Table[{{i,i+1},{1,1,1}+i,{i+1,i+2}},{i,1,5,2}]],{1}],8,"CausalGraph"]
In[]:=
Out[]=
WolframModel[{{{1},{1,2}}{{1,2},{2}},{{1,2},{2,2,2},{2,3},{3,4}}{{1,2},{2,2,2},{2,3},{3,4}}},Catenate[Table[{{i,i+1},{1,1,1}+i,{i+1,i+2}},{i,1,5,2}]],8,"CausalGraph"]
In[]:=
Out[]=
WolframModel[{{{1},{1,2}}{{1,2},{2}},{{1,2},{2,2,2},{2,3}}{{1,2},{2,2,2},{2,3}}},Catenate[Table[{{i,i+1},{1,1,1}+i,{i+1,i+2}},{i,1,19,2}]],8,"CausalGraph"]
Out[]=
WolframModel[{{{1},{1,2}}{{1,2},{2}},{{1,2},{2,3}}{{1,2},{2,3}}},List@@@EdgeList[PathGraph[Range[20]]],8,"CausalGraph"]
In[]:=
Out[]=
LayeredGraphPlot[WolframModel[{{{1},{1,2}}{{1,2},{2}},{{1,2},{2,3}}{{1,2},{2,3}}},List@@@EdgeList[PathGraph[Range[20]]],30,"CausalGraph"]]
In[]:=
Out[]=
LayeredGraphPlot[WolframModel[{{{1},{1,2}}{{1,2},{2}},{{1,2},{2,3}}{{1,2},{2,3}}},List@@@EdgeList[PathGraph[Range[40]]],30,"CausalGraph"]]
In[]:=
Out[]=
LayeredGraphPlot[WolframModel[{{{1},{1,2}}{{1,2},{2}},{{1,2},{2,3}}{{1,2},{2,3}}},Append[List@@@EdgeList[PathGraph[Range[20]]],{2}],30,"CausalGraph"]]
In[]:=
Out[]=
LayeredGraphPlot[WolframModel[{{{1},{1,2}}{{1,2},{2}},{{1,2},{2,3}}{{1,2},{2,3}}},Append[List@@@EdgeList[PathGraph[Range[40]]],{2}],30,"CausalGraph"]]
In[]:=
Out[]=
RulePlot[WolframModel[{{{1},{1,2}}{{1,2},{2}},{{1,2},{2,2,2},{2,3}}{{1,2},{2,2,2},{2,3}}}]]
In[]:=
Out[]=
RulePlot[WolframModel[{{{1},{1,2}}{{1,2},{2}},{{1,2},{2,2,2},{2,3}}{{1,2},{3,3,3,3},{2,3}},{{1,2},{2,2,2,2},{2,3}}{{1,2},{1,1,1},{2,3}}}]]
In[]:=
Out[]=
WolframModel[{{{1},{1,2}}{{1,2},{2}},{{1,2},{2,2,2},{2,3}}{{1,2},{3,3,3,3},{2,3}},{{1,2},{2,2,2,2},{2,3}}{{1,2},{1,1,1},{2,3}}},Catenate[Table[{{i,i+1},{1,1,1}+i,{i+1,i+2}},{i,1,19,2}]],20,"CausalGraph"]
In[]:=
Out[]=
LayeredGraphPlot[WolframModel[{{{1},{1,2}}{{1,2},{2}},{{1,2},{2,2,2},{2,3}}{{1,2},{3,3,3,3},{2,3}},{{1,2},{2,2,2,2},{2,3}}{{1,2},{1,1,1},{2,3}}},Catenate[Table[{{i,i+1},{1,1,1}+i,{i+1,i+2}},{i,1,19,2}]],20,"CausalGraph"]]
In[]:=
Out[]=
WolframModel[{{{1},{1,2}}{{1,2},{2}},{{1,2},{2,2,2},{2,3}}{{1,2},{3,3,3,3},{2,3}},{{1,2},{2,2,2,2},{2,3}}{{1,2},{1,1,1},{2,3}}},Append[Catenate[Table[{{i,