In[]:=
GraphPlot3D[HypergraphToGraph@WolframModel[{{x,y},{y,z}}{{w,x},{w,y},{x,y},{y,z}},{{0,0},{0,0}},9,"FinalState"]]
Out[]=
In[]:=
ContourPlot3D[x^2+y^2-z^2-4,{x,-5,5},{y,-5,5},{z,-5,5}]
Out[]=
In[]:=
ContourPlot3D[x^2+y^2-z^24,{x,-5,5},{y,-5,5},{z,-5,5}]
Out[]=
In[]:=
TreePlot[KaryTree[40],Center]
Out[]=
In[]:=
KaryTree[40,GraphLayout"SpringEmbedding"]
Out[]=