In[]:=
EvolutionPicture2[{{1,2},{2,3}}{{4,1},{4,3},{2,1},{2,3},{4,5}},{{0,0},{0,0}},9]
Out[]=
In[]:=
VertexOutDegree
Out[]=
{1,0,2,0,3,0,3,4,0,0,2,0,0,1,0,2,0,0,2,0,0,2,2,0,2,0,3,2,7,0,2,0,2,2,0,2,0,0,3,2,0,0,1,0,3,2,0,11,1,0,3,4,0,3,0,0,3,2,0,3,0,3,4,0,3,4,0,3,0,0,3,0,3,4,0,3,0,0,3,0,3,0,0,3,8,0,3,0,3,0,0,3,0,3,0,3,0,3,0,0,3,0,3,0,0,3,0,3,0,3,0,3,0,3,0}
In[]:=
Counts[%]
Out[]=
14,057,215,331,45,71,111,81
In[]:=
RemoveDanglingEnds[graph_]:=VertexDelete[graph,Pick[VertexList[graph],#0&/@VertexOutDegree[graph]]]
In[]:=
RemoveDanglingEnds
Out[]=
NeighborhoodGraph
In[]:=
RemoveDanglingEnds
Out[]=
In[]:=
RemoveDanglingEndsU[graph_]:=VertexDelete[graph,Pick[VertexList[graph],#<2&/@VertexOutDegree[UndirectedGraph[graph]]]]
In[]:=
RemoveDanglingEndsU
Out[]=