WOLFRAM NOTEBOOK

Cycles

In[]:=
gtest=Graph[Rule@@@WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}},{{1,2},{1,3}},10,"FinalState"]]
Out[]=
In[]:=
gtestcycs=FindFundamentalCycles[UndirectedGraph[gtest]];
In[]:=
Length[%]
Out[]=
320
In[]:=
HighlightGraph[UndirectedGraph[gtest],Style[#,Red,Thickness[.008]]&/@Flatten[Select[gtestcycs,Length[#]3&]]]
Out[]=
In[]:=
HighlightGraph[UndirectedGraph[gtest],Style[#,Red,Thickness[.008]]&/@Flatten[Select[gtestcycs,Length[#]4&]]]
Out[]=
In[]:=
HighlightGraph[UndirectedGraph[gtest],Style[#,Red,Thickness[.008]]&/@Flatten[Select[gtestcycs,Length[#]5&]]]
Out[]=
In[]:=
HighlightGraph[UndirectedGraph[gtest],Style[#,Red,Thickness[.008]]&/@Flatten[Select[gtestcycs,Length[#]6&]]]
Out[]=
In[]:=
HighlightGraph[UndirectedGraph[gtest],Style[#,Red,Thickness[.008]]&/@Flatten[Select[gtestcycs,Length[#]7&]]]
Out[]=
In[]:=
HighlightGraph[UndirectedGraph[gtest],Style[#,Red,Thickness[.008]]&/@Flatten[Select[gtestcycs,Length[#]8&]]]
Out[]=
In[]:=
HighlightGraph[UndirectedGraph[gtest],Flatten[Select[gtestcycs,Length[#]20&]],EdgeStyleDirective[Red,Thick]]
Out[]=
In[]:=
Flatten[Select[gtestcycs,Length[#]3&]]
Out[]=

Transitive Reduction/Closure

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.