Function[r,Graph[MultiwaySystem[r,{"A"},7,#],GraphLayout"LayeredDigraphEmbedding",AspectRatio1/2]&/@{"EvolutionCausalGraphStructure","StatesGraphStructure","CausalGraphStructure"}]/@EnumerateSubstitutionSystemRules[{12,11},2]
causals=Import["/Users/sw/Dropbox/Physics/Data/MWCausalInvariantSamples/samples-01.wxf"];
In[]:=
Length/@causals
In[]:=
{0,2,5,22,45,188,417,1572,3844,12991,33568,111229}
Out[]=
InteractiveListSelectorSW[ParallelMapMonitored[MultiwaySystem[#,{"A"},6,"CausalGraphStructure"]#&,causals[[2]]]]
In[]:=
Out[]=
InteractiveListSelectorSW[ParallelMapMonitored[MultiwaySystem[#,{"A"},6,"CausalGraphStructure"]#&,causals[[3]]]]
In[]:=
Out[]=
{{AAA}}
InteractiveListSelectorSW[ParallelMapMonitored[Graph[MultiwaySystem[#,{"A"},6,"CausalGraphStructure"],AspectRatio1/2]#&,causals[[4]]]]
In[]:=
Out[]=
InteractiveListSelectorSW[ParallelMapMonitored[TimeConstrained[Graph[MultiwaySystem[#,{"A"},6,"CausalGraphStructure"],AspectRatio1/2],1]#&,causals[[5]]]]
In[]:=
Out[]=
InteractiveListSelectorSW[ParallelMapMonitored[TimeConstrained[Graph[MultiwaySystem[#,{"A"},6,"CausalGraphStructure"],AspectRatio1/2],1]#&,causals[[6]]]]
In[]:=
Out[]=
InteractiveListSelectorSW[ParallelMapMonitored[TimeConstrained[Graph[MultiwaySystem[#,{"A"},8,"CausalGraphStructure"],AspectRatio1/2],1]#&,{{"A""B","B""BAB"},{"A""B","B""ABB"},{"A""B","B""ABA"},{"A""B","B""AAB"},{"A""B","B""AAA"},{"A""AB","B""AB"},{"A""AB","A""BA"},{"A""AB","AB""A"}}]]
In[]:=
Out[]=
GraphGrowthPlots[rule_,init_,{t1_,t2_,t3_,t4_}]:={ListLinePlot[Most[RaggedMeanAround[Values[GraphNeighborhoodVolumes[MultiwaySystem[rule,init,t1,"StatesGraph"]]]]],FrameTrue,EpilogText[Subscript["M","t"],Scaled[{.2,.8}]]],ListLinePlot[RaggedMeanAround[Values[GraphNeighborhoodVolumes[MultiwaySystem[rule,init,t2,"BranchialGraph"]]]],FrameTrue,EpilogText[Subscript["B","b"],Scaled[{.2,.8}]]],ListLinePlot[Most[RaggedMeanAround[Values[GraphNeighborhoodVolumes[SubstitutionSystemCausalGraph[rule,init,t3]]]]],FrameTrue,EpilogText[Subscript["C","t"],Scaled[{.2,.8}]]],ListLinePlot[Most[RaggedMeanAround[Values[GraphNeighborhoodVolumes[MultiwaySystem[rule,init,t4,"CausalGraph"]]]]],FrameTrue,EpilogText[Subsuperscript["C","t","M"],Scaled[{.2,.8}]]]}
In[]:=
GraphGrowthPlots[{"A""B","B""AAA"},"A",{7,7,7,7}]
In[]:=
StandardDeviation
:The argument {44} should have at least two elements.
StandardDeviation
:The argument {2186} should have at least two elements.
StandardDeviation
:The argument {113} should have at least two elements.
General
:Further output of StandardDeviation::shlen will be suppressed during this calculation.
Out[]=
GraphGrowthPlots[{"A""B","B""AAA"},"A",Table[9,4]]
In[]:=
StandardDeviation
:The argument {116} should have at least two elements.
StandardDeviation
:The argument {19682} should have at least two elements.
StandardDeviation
:The argument {393} should have at least two elements.
General
:Further output of StandardDeviation::shlen will be suppressed during this calculation.
Out[]=
GraphGrowthPlots[{"A""AB","A""BA"},"A",Table[9,4]]
In[]:=
StandardDeviation
:The argument {55} should have at least two elements.
StandardDeviation
:The argument {18} should have at least two elements.
Out[]=
MultiwaySystem[{"A""AB","A""BA"},"A",9,"StatesGraphStructure"]
In[]:=
Out[]=
MultiwaySystem[{"A""AB","A""BA"},"A",9,"BranchialGraphStructure"]
In[]:=
Out[]=
Table[MultiwaySystem[{"A""AB","A""BA"},"A",t,"BranchialGraphStructure"],{t,9}]
In[]:=
Out[]=
VertexCount/@%
In[]:=
{2,3,4,5,6,7,8,9,10}
Out[]=
MultiwaySystem[{"A""AB","A""BA"},"A",9,"CausalGraphStructure"]
In[]:=
Out[]=
MultiwaySystem[{"A""AB","A""BA"},"A",9,"CausalGraphStructure"]//LayeredGraphPlot
In[]:=
Out[]=
LayeredGraphPlot3D[%13,FaceGrids"Layers"]
In[]:=
Out[]=
Graph[SubstitutionSystemCausalGraph[{"A""AB","A""BA"},"A",4],VertexLabelsAutomatic]
In[]:=
Out[]=
SubstitutionSystem[{"A""AB","A""BA"},"A",6]
In[]:=
{A,AB,ABB,ABBB,ABBBB,ABBBBB,ABBBBBB}
Out[]=
MultiwaySystem[{"A""AB","A""BA"},"A",3,"EvolutionCausalGraph"]//LayeredGraphPlot3D
In[]:=
Out[]=
MultiwaySystem[{"A""AB","A""BA"},"A",4,"EvolutionCausalGraph"]//LayeredGraphPlot3D
In[]:=
Out[]=
MultiwaySystem[{"A""AB","A""BA"},"A",4,"EvolutionCausalGraph"]
In[]:=
Out[]=
Graph[MultiwaySystem[{"A""AB","A""BA"},"AA",4,#],GraphLayout"LayeredDigraphEmbedding",AspectRatio1/2,ImageSize300]&/@{"StatesGraphStructure","CausalGraphStructure"}
In[]:=
Out[]=
Graph[MultiwaySystem[{"A""AB","A""BA"},"AA",5,#],GraphLayout"LayeredDigraphEmbedding",AspectRatio1/2,ImageSize300]&/@{"StatesGraphStructure","CausalGraphStructure"}
In[]:=
Out[]=
Graph3D[MultiwaySystem[{"AA""AAA"},"AA",#,"CausalGraphStructure"],GraphLayout"SpringElectricalEmbedding"]&/@{8,9}
In[]:=
Out[]=
Graph3D[%]
In[]:=
Out[]=
Graph[MultiwaySystem[{"AA""AAA"},"AA",3,"CausalGraph"],GraphLayout"SpringElectricalEmbedding"]
In[]:=
Out[]=
MultiwaySystem[{"AA""AAA"},"AA",6,"CausalGraphStructure"]//LayeredGraphPlot3D
In[]:=
Out[]=
SubstitutionSystemCausalGraph["AA""AAA","AA",14]
In[]:=
Out[]=
EdgeList

In[]:=
Out[]=