WOLFRAM NOTEBOOK

In[]:=
gx=
;
In[]:=
FindPath[gx,{{1,5},{0,1,0,0,1}},{{1,2},{0,1,0,1,0}},{1,10},All]
Out[]=
{{{{1,5},{0,1,0,0,1}},{{1,4},{0,1,0,0,0}},{{1,3},{0,1,0,1,0}},{{1,2},{0,1,0,1,0}}},
1905
,{{{1,5},{0,1,0,0,1}},{{1,4},{0,1,0,0,0}},{{1,3},{0,1,0,0,0}},{{1,2},{0,1,0,0,0}},{{1,1},{0,0,0,0,0}},{{1,5},{0,
4
}},{{1,4},{0,0,0,0,0}},{{1,3},{0,0,0,1,0}},{{1,2},{0,0,0,1,0}},{{1,1},{0,1,0,1,0}},{{1,2},{0,1,0,1,0}}}}
large output
show less
show more
show all
set size limit...
In[]:=
Last[%]
Out[]=
{{{1,5},{0,1,0,0,1}},{{1,4},{0,1,0,0,0}},{{1,3},{0,1,0,0,0}},{{1,2},{0,1,0,0,0}},{{1,1},{0,0,0,0,0}},{{1,5},{0,0,0,0,0}},{{1,4},{0,0,0,0,0}},{{1,3},{0,0,0,1,0}},{{1,2},{0,0,0,1,0}},{{1,1},{0,1,0,1,0}},{{1,2},{0,1,0,1,0}}}
In[]:=
PathGraph/@FindPath[gx,{{1,5},{0,1,0,0,1}},{{1,2},{0,1,0,1,0}},{1,10},All]
In[]:=
RandomSample[%470,2]
Out[]=
{
,
}
In[]:=
HighlightGraph[gx,Subgraph[gx,#]&/@%473,EdgeStyleThick]
Out[]=
In[]:=
Graph3D[%]
Out[]=
In[]:=
LayeredGraphPlot[%]
Out[]=
In[]:=
Graph[TMNCGraph[3,{1,2}]]//LayeredGraphPlot
Out[]=
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.