Basic Examples (from EdP)
Basic Examples (from EdP)
In[]:=
EnumerateHypergraph[lhs_,opts:OptionsPattern[]]:=First/@EnumerateWolframModelRules[lhs{},{maxConnectedAtoms[lhs{},Automatic],Automatic},opts]
In[]:=
EnumerateHypergraph[lhs_,type:Automatic|None|All,opts:OptionsPattern[]]:=First/@EnumerateWolframModelRules[lhs{},{maxConnectedAtoms[lhs{},type],type},opts]
In[]:=
EnumerateHypergraph[lhs_,s_Integer,opts:OptionsPattern[]]:=First/@EnumerateWolframModelRules[lhs{},{s,Automatic},opts]
In[]:=
EnumerateHypergraph[{{3,2}}]
Out[]=
In[]:=
Graph[DirectedEdge@@@#,ImageSizeTiny,GraphLayout"SpringElectricalEmbedding"]&/@EnumerateHypergraph[{{3,2}}]
Out[]=
In[]:=
Union[Graph[DirectedEdge@@@#,ImageSizeTiny,GraphLayout"SpringElectricalEmbedding"]&/@EnumerateHypergraph[{{3,2}}],SameTest(IsomorphicGraphQ[UndirectedGraph[#1],UndirectedGraph[#2]]&)]
Out[]=
In[]:=
Union[Graph[DirectedEdge@@@#,ImageSizeTiny,GraphLayout"SpringElectricalEmbedding"]&/@EnumerateHypergraph[{{4,2}}],SameTest(IsomorphicGraphQ[UndirectedGraph[#1],UndirectedGraph[#2]]&)]
Out[]=
In[]:=
Graph[DirectedEdge@@@#,ImageSizeTiny,GraphLayout"SpringElectricalEmbedding"]&/@EnumerateHypergraph[{{4,2}}]
Out[]=
In[]:=
HypergraphPlot[#,ImageSizeTiny]&/@EnumerateHypergraph[{{2,3}}]
Out[]=
[[ Last case killed; ran overnight and did not complete ]]