MultiwaySystem["SubstitutionSystem"->{"BA""AA","AB""BA"},{"AAABAAA"},6,"EvolutionCausalGraph"]
In[]:=
Out[]=
MultiwaySystem["SubstitutionSystem"->{"AA""","BA""ABB","BB""A"},{"BBA"},4,"EvolutionCausalGraph"]
In[]:=
Out[]=
LayeredGraphPlot[MultiwaySystem["SubstitutionSystem"->{"AA""","BA""ABB","BB""A"},{"BBA"},4,"EvolutionCausalGraph"],VertexLabelsAutomatic]
In[]:=
Out[]=
MultiwaySystem["SubstitutionSystem"->{"AA""","BA""ABB","BB""A"},{"BBA"},6,"EvolutionCausalGraph"]
In[]:=
Out[]=
LayeredGraphPlot[%]
In[]:=
Out[]=
Out[]=
MultiwaySystem["SubstitutionSystem"->{"AA""","BA""ABB","BB""A"},{"BBA"},4,"StatesGraph"]
In[]:=
Out[]=
Inset
vf1[{xc_,yc_},name_,{w_,h_}]:=Rectangle[{xc-w,yc-h},{xc+w,yc+h}]
In[]:=
Graph[{12,23,31},VertexSize0.2,VertexShapeFunctionvf1]
In[]:=
Out[]=
vf2[{xc_,yc_},name_,{w_,h_}]:=Inset[Graphics[RegularPolygon[5]],{xc,yc},Center,{w,h}]
In[]:=
Graph[{12,23,31},VertexSize0.2,VertexShapeFunctionvf2]
In[]:=
Out[]=
vf3[{xc_,yc_},name_,{w_,h_}]:=Inset[Framed[HypergraphPlot[{{8,9},{10,9,6},{7,5,7},{6,5,1},{10,8,10}},BackgroundWhite]],{xc,yc},Center,{w,h}]
In[]:=
Graph[{12,23,31},VertexShapeFunctionvf3,VertexSize.5]
In[]:=
Out[]=
​