In[]:=
Graph[WolframModel[{{x,y},{x,z}}{{y,z},{y,w},{z,w},{x,w}},{{0,0},{0,0}},7,"LayeredCausalGraph"],VertexLabelsAutomatic,AspectRatio1/2]
Out[]=
In[]:=
ggg=Graph[WolframModel[{{x,y},{x,z}}{{y,z},{y,w},{z,w},{x,w}},{{0,0},{0,0}},6,"LayeredCausalGraph"],VertexLabelsAutomatic,AspectRatio1/2]
Out[]=
In[]:=
VertexDelete[ggg,{40,27,45,25}]
Out[]=
In[]:=
Graph[WolframModel[{{x,y},{x,z}}{{y,z},{y,w},{z,w},{x,w}},Table[{0,0},{i,5}],7,"LayeredCausalGraph"],VertexLabelsAutomatic,AspectRatio1/2]
Out[]=
In[]:=
LayeredGraphPlot[SubstitutionSystemCausalGraph["AA""AAA","AA",11],AspectRatio1/2]
Out[]=
In[]:=
LayeredGraphPlot[SubstitutionSystemCausalGraph["AA""AAA",StringRepeat["A",20],6],AspectRatio1/2]
Out[]=