WOLFRAM NOTEBOOK

In[]:=
RandomChoice[VertexList[euc]]
Out[]=
Book10,Theorem112
In[]:=
Subgraph[euc,VertexOutComponent[euc,"Book"10,"Theorem"112,1],GraphLayout"SpringElectricalEmbedding"]
Out[]=
In[]:=
Subgraph[euc,VertexOutComponent[euc,"Book"10,"Theorem"112,2],GraphLayout"SpringElectricalEmbedding"]
Out[]=
In[]:=
Subgraph[euc,VertexOutComponent[euc,"Book"10,"Theorem"112,3],GraphLayout"SpringElectricalEmbedding"]
Out[]=
In[]:=
LayeredGraphPlot[%,"Book"10,"Theorem"112,AspectRatio1/2]
Out[]=

Color code books in main graph

Wolfram Cloud

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 »

You are using a browser not supported by the Wolfram Cloud. Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.