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[]:=
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[]=